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1.0 SUMMARY 


A program was conducted to develop an optimization procedure for the 
Structural Tailoring of Engine Blades (STAEBL) and to demonstrate the 
proceuure by using it to design two fan blades of composite materials. 

The fan stage of the Energy Efficient Engine which was designed under NASA 
Contract NAS3-20646, was selected as the aerodynamic configuration upon which 
to base the tailoring demonstration. 

Three major computerized capabilities were needed to complete the procedure: 
approximate analysis with the established input variables and trial values of 
design variables, optimization of an objective function, and refined analysis 
for design verification. To perform approximate analyses, an existing 
procedure was modified to evaluate low cycle fatigue, vibratory fatigue and 
foreign object damage for composite blade designs. To incorporate the effects 
of Direct Operating Cost plus Interest (the objective function) into tie 
design, the C0PES/C0NMIN optimization program was used. NASTRAN was used to 
verify that the approximate analysis and optimization procedure had designed a 
blade that met all design criteria. 

To demonstrate the STAEBL procedure in real design situations, it was was used 
to structurally tailor two engine fan blades constructed of composite 
materials without midspan shrouds. The first was a solid blade made from 
superhybrid composites, and the second was a hollow blade with metal-matrix 
composite inlays. 

Mathematical optimization applied to shroudless fan blade structural tailoring 
has been demonstrated to be a very powerful automated design procedure. It 
provides the capacity to simultaneously evaluate many design variables to 
optimize a comprehensive objective function while satisfying numerous design 
constraints. 
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2.0 INTRODUCTION 


Fan and compressor blades are designed to provide aerodynamic performance and 
structural durability at minimum cost to the aircraft/engine operator through 
alternating aerodynamic and structural design iterations. The current 
structural design procedure requires that specified criteria be satisfied. 
These criteria have been derived by correlating particular analyses with 
extensive empirical experience. The designer is provided with an interactive 
computer system that conducts vibration, steady state stress, and ingestion 
analyses of proposed designs, modifies designs for reanalysis, compares 
results of analysis with criteria and assembles input for non-interactive 
flight cycle life analysis. The structural designer uses his personal 
experience to establish the path to follow to improve the design and decide 
when to terminate the search for the best design within the limits of the 
proposed aerodynamic configuration. 

Thus, the current design procedures for turbine engine blades are partly 
engineering and partly art. The quality of the design is often the result of 
the judgment and experience of the engineer or engineering team that performed 
the task. The penalties for less than optimum designs are weight and cost. The 
cost penalty may appear as low efficiency or the wasted time of a long 

development cycle, fixing failures and improving performance. This usually 
results in less than optimum designs because the constraints of correcting a 
problem are always more severe than an original design, i.e. , the space for 
the stage is fixed, the performance of other components interacts or is 
dependent on the part under development, etc. Once the design has been 

corrected, it is usually at the expense of cost or weight and degradation of 
the overall engine performance must be accepted. 

It is apparent that current blade design procedures are limited by the need 
for the design engineer to incorporate his experience in trading design 
variables against each other. This problem is not peculiar to structural blade 
design; it arises to substantially the same degree in the design of other 

components. For these reasons, it is appropriate to initiate development of 
automated procedures to permit the optimized trade-off of variables against 
each other to improve the blade design and establish a foundation for 
application to other components. Such formalized optimum design procedures 
have been developed and used with considerable success for optimum structural 
design of linear static structures, and are now being developed and used with 
some success for the aeroelastic tailoring of fixed aircraft wings. The 

objective of the Structural Tailoring of Engine Blades Program, hereinafter 
referred to as STAEBL, was to develop a formalized optimum design procedure 
for engine blades which will meet all the aerothermomechanical design 
requirements in an aircraft engine environment. The STAEBL procedure will 
reduce human error in the blade design process by automating with mathematical 
precision what was formerly user judgement on an interactive system. 

To meet the objective of the STAEBL program, six technical tasks were 
established as part of NASA Contract NAS3-22525: 
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Task I: STAEBL Procedure - Design of the general STAEBL procedure. 

Task II: Input - Definition of STAEBL procedure input parameters including 

initial blade geometry, material properties, loads, weight and cost 
models, and design constraints. 

Task III: Approximate Analyses - Modification of existing beam analyses to 

perform vibration, stress and foreign object damage evaluations of 
composite blades. 

Task IV: Optimization Procedure - Identify a procedure which optimizes the 

objective function, direct operating cost plus interest, within 
limits of specified constraints. 

Task V: Refined Analyses - Establish a procedure for using NASTRAN to 

validate optimized blade designs. 

Task VI: Demonstration and Documentation - Demonstrate and document the 

STAEBL procedure by using it to tailor tv/o alternate designs of the 
shroudless Energy Efficient Engine fan blade: one a solid blade 
made from superhybrid composites; and the second, a hollow blade 
with metal -matrix composite inlays. 

The facility used for the STAEBL program was an IBM System 370 computing 
system. Most engineering problems were currently programmed for solution on 
three existing IBM 370 computers. Using IBM's latest virtual storage 
technology, these computers could accommodate fully computerized interactive 
design systems, general time-sharing, teleprocessing, real time 
management/information systems, and management and scientific batch processing. 

Section 3.0 of this report presents a description of the STAEBL program 
design. Section 4.0 describes the results of the demonstration of the 
procedure and Section 5.0 presents Conclusions and Recommendations emanating 
from this program. 

Appendix A presents the STAEBL procedure organization, identifying the various 
subroutines used in the overall system. Appendix B presents a complete FORTRAN 
listing of the STAEBL procedure for the hollow blade. The revisions to this 
FORTRAN listing for the superhybrid blade are provided in Appendix C. 
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3.0 STAEBL PROCEDURE 


3.1 OVERVIEW 

Airfoil structural design is a critical part of the aircraft turbine engine 
development process. The limitations imposed by durability requirements for 
the airfoils have a direct bearing on the aerodynamic performance that can be 
achieved. In addition, a significant portion of engine weight and engine cost 
is a simple multiple of airfoil weight. The airfoil design problem is complex. 
Chord, thicknesses at several locations, and internal constructions are 
selected to simultaneously satisfy vibration, ingestion and flight cycle 
durability requirements. Mathematical optimization techniques have been 
developed to expedite solution of this kind of tailoring problem which 
involves many design variables and many requirements. The airfoil application 
is particularly appropriate because the complex shapes defined by optimization 
do not increase manufacturing cost. The basic airfoil aerodynamic shapes are 
fabricated in accordance with three-dimensional numerical definitions which 
are readily modified to accept the results of structural tailoring. 

Problems associated with structural tailoring of engine blades include: 1) 
engine blades are designed to operate in a dynamic environment by application 
of constraints which differ substantially from those applied to linear static 
structures; 2) analysts and/or designers have hesitated to develop 

optimization procedures for blades made from homogeneous materials because 
acceptable designs can be derived from past experience; and 3) finite element 
analyses, which are too time consuming to be used effectively in an 
optimization procedure, have been used in designing blades having advanced 
constructions such as those to be designed in this program. 

The approach taken to assemble a procedure which solves these problems is 
described in Section 3.2. Inputs to the procedure are defined in 3.3. The 
approximate analyses and controlling method used in automated optimization are 
described in Sections 3.4 and 3.5. The substantiative refined analyses are 
described in Section 3.6. 

3.2 GENERAL APPROACH TO STAEBL PROCEDURE DESIGN 

Figure 3.2-1 summarizes the a procedure for the Structural Tailoring of Engine 
Blades. Design variables are initialized by input to the procedure and varied 
during optimization. Approximate analyses for low cycle fatigue, flutter, 
resonance, and foreign object damage are applied to evaluate position relative 
to constraints. 

The objective function optimized in the STAEBL procedure is derived from the 
relationships illustrated in Figure 3.2-2. The complexity encountered in 
finding the design which optimizes this function can be illustrated by 
examining its relationship to blade chord (Figure 3.2-3). It appears to be 
simple, but becomes complicated when structural constraints are introduced 
(Figure 3.2-4). The design that the procedure selects must optimize user 
economics without violating the imposed constraints. 
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Figure 3.2-1 The Structural Tailoring of Engine Blades Procedure 



Figure 3.2-2 


The Objective Function Relates Airline Economics to Blade Design 
Variables 
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Figure 3.2-3 Blade Chord Optimization Appears to be a Simple Design Problem 
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Figure 3.2-4 Design Problem Complexity is Introduced by Structural Constraints 
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The most effective technique available for solving nonlinear optimization 
problems was selected from those available. The COPES/CONMIM (COntrol Program 
for £ngineering Synthesi s/ CQNs trai ned Minimization) optimization program, a 
general purpose routine based on the method of feasible directions and 
developed by G. N. Vanderplaats of the Naval Postgraduate School, was chosen 
for the optimization procedure. 

The above efforts in the STAEBL procedure identify a fine tuned optimum blade 
design that is validated by NASTRAN refined analysis. The procedure was 
demonstrated by the design of two composite material shroudless fan blades. 

TTiis procedure will reduce human error in the blade design process by 
automating with mathematical precision what was formerly user judgement in an 
interactive system. 

3.3 INPUT TO FAN BLADE STRUCTURAL TAILORING PROCEDURE 

3.3.1 Aerodynamic Stage 

The starting point for structural tailoring of an engine blade is a candidate 
aerodynamic stage design which will deliver the required airflow and pressure 
ratio. The geometry of this candidate design is input to the structural 
tailoring procedure in the following form: 

o coordinate definitions of a series of airfoil sections (define 
stagger, camber, edge radii, chord and thickness, all functions of 
radius) ; 

o flowpath boundaries (root and tip radii and convergence angles); 
o number of blades. 

3.3.2 Support Structure 

The dominant variables which control structural tailoring are frequency 
dependent and sensitive to blade attachment flexibility. Since the space 
available for the attachment varies with the airfoil design parameters, 
attachment flexibility is recognized by increasing the effective length of the 
candidate aerodynamic blade design. The additional input is: 

o effective inner radius, 

o dimensions of a rectangular section in the extended region. 

3.3.3 Operating Conditions 

Airfoil peak steady stress is calculated at maximum normal speed to determine 
life. Fatigue is prevented by tuning to avoid critical resonances at any speed 
above minimum cruise. Flutter stability and response to injestion of a 
standard bird are calculated at maximum takeoff rotor speed. The inputs 
required to make these calculations are: 
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o rotor speeds, 


o relative flow velocity, Mach number, incidence and density. 

3.3.4 Materials 

Blade centrifugal stresses and vibratory characteristics result from body 
loads and are, therefore, fully dependent upon the properties of the blade 
materials. Blade life is dependent on the strength of the material subjected 
to a particular stress condition. Composites materials, such as those to be 
used in the blades tailored in this program, are composed of a fixed 
proportion of fiber and matrix elements and can be considered to be 
homogeneous materials with directional properties. Similarly, adhesively 
bonded plies of metal matrix composite can be considered to be a single 
material. The net criticality of a local stress state is determined by 
evaluating a parameter which is a function of the relative criticality of each 
individual stress component. The inputs which define the required properties 
for each material are: 

o density, 

o directional moduli and Poisson's ratios, 

o directional cyclic strengths. 

3.3.5 Objective Function 

The STAEBL procedure optimizes a single benefit which can be related to the 
final design. The benefit may be as simple as airfoil weight or it may be 
total value to the engine operator which considers trades between weight, 
initial cost, maintenance cost and even aerodynamic performance. The benefit 
expression is kept in generalized form by introducing a FORTRAN definition of: 

o an objective function of design variables or quantities which are 
defined by the design variables (constant terms are not required). 

3.3.6 Constraints 

The durability objectives of a blade design are accomplished by imposing 
limits on the quantities that are calculated in the structural analyses. 
Margins are established relative to idealized limits to recognize the effects 
of geometric, material, and operational tolerances and to compensate for 
approximations in the analyses or underlying assumptions. Inputs to the STAEBL 
procedure are: 

o minimum allowable predicted aerodynamic damping, 

o minimum allowable difference between predicted frequencies and 
critical multiples of rotor speed. 
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o maximum allowable local and root bird injestion stress parameters, 
o limits on design variables (for consistency with various assumptions). 
3.3.7 Design Variables 

Scaling techniques are provided within the STAEBL procedure to vary the 
coordinates that define any airfoil section in proportion with changes in 
chord or maximum thickness (fairing to constant edge radii). Logic is also 
included to identify the particular material at any point in a composite blade 
by references to quantities which define the relative position of the limits 
of that material. A fiber orientation angle is associated with each composite 
material. Relevant inputs are coded identification of design variables and 
initial values for starting the iteration and include: 

o root chord (constant scale for all stations), 

o thickness/chord (independent stations), 

o composite material location limits (including the cavity as a zero 
properties composite), 

o composite material fiber orientation angles. 

3.4 APPROXIMATE ANALYSIS 

The Pratt & Whitney Aircraft computerized system for designing conventional 
blade structures consists of a set of analysis programs which are linked to a 
common data library. Computational efficiency is an important consideration in 
the selection of these programs because the system is used so frequently. 
Approximate analyses are used wherever they have been successfully correlated 
with extensive durability experience. This system provides a proven base for 
selection of approximate analyses for the STAEBL system. 

3.4.1 Stress and Vibration Analysis 

3. 4. 1.1 Approach 

The bladed disk vibration analysis program in the existing Pratt & Whitney 
Aircraft system evaluates a blade with coupled bending and torsional degrees 
of freedom mounted on a flexible disk and restrained by offset shrouds. The 
program can operate on blades with two or less shrouds and blade alone 
analyses can be performed. Resonance diagrams, mode shape plots and input data 
to the supersonic flutter prediction program are generated. 

This beam-type analysis was formulated for application to airfoils with cross 
section shapes which are highly variable in the spanwise direction. It 
simulates increments of blade between independently defined airfoil sections. 
The analysis recognizes the effects of unequal deviation-from-radial of the 
directions of principal stiffness of the airfoil's leading and trailing edges. 
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Careful attention to edge stiffness inclination is given because the edge 
material is located at the greatest distance from the section shear center. 

In this system, dynamic influence equations for a section of blade are derived 
by writing the six degree of freedom compatibility equations and six dynamic 
equilibrium equations of a rotating vibrating beam blade increment in finite 
difference form. These increments are then joined by a stacking matrix which 
rotates the variable vector into the local coordinate system of each 
successive blade increment, as defined by the line passing through the shear 
centers of the sections describing the ends of the increment. The shear 
centers are found by integration of the strength of materials thin section 
beam formula. 

This analysis system was adapted to advanced blade constructions, including 
composite materials and hollow regions, by introducing new beam blade 
increment equilibrium and compatibility relationships. With these 
modifications, a spanwise blade increment is visualized as consisting of a 
stack of slices. Figure 3.4-1, where the stiffness properties of each slice 
are derived from lamination theory. Slice load resultants are determined by 
displacing one end of the beam relative to the other, evaluating slice strain 
levels, and multiplying by the local slice stiffness. Area integration of the 
load resultants provides the overall beam stiffness relationship. 

The stack of slices analysis concept was verified with a NASTRAN analysis of 
an assembly of isotropic cantilevered beams of rectangular cross-section as 
shown in Figure 3.4-2. Figures 3.4-3 through 3.4-5 show the results of several 
comparisons with a NASTRAN baseline using a plate breakup. When the beam 
assembly was first analyzed, nodes at each cross-section were constrained 
using rigid body elements, forcing each plane to deform rigidly as shown in 
Figure 3.4-3. The results of this analysis were: 

1. flapwise bending modes gave good agreement, 

2. torsion mode frequencies were too high due to excessive section 
warping constraints, 

3. stiffwise bending modes were too low due to shear flexibilities 
introduced by the guided cantilevered effect of the parallel beam 
components. 

As shown in Figures 3.4-4 and 3.4-5, the torsion mode problem was alleviated 
by relaxing the warping rotation constraints along the cross-section. 
Stiffwise frequencies were improved by refining the spanwise sectional 
breakup. Figure 3.4-4 shows a no warping constraint condition and individual 
beam torsional stiffnesses which resulted in a torsional frequency that is too 
low. 
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Figure 3.4-1 Model Used in Approximate Analyses of a Spanwise Increment of 
Blade 



Figure 3.4-2 Beam Model Verification with NASTRAN Vibration Analysis of 
Assembly of Rectangular, Isotropic, Cantilevered Beams 
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CYCLES PER SECOND 



Figure 3.4-3 Torsional Frequencies Obtained with Planes Remain Plane Section 
Constraint 
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Figure 3.4-4 Low Torsional Frequencies Produced by the Free Warping Condition 


14 



• THIN SECTION TORSIONAL 
STIFFNESS COEFFICIENT 
PER BEAM, 1/3 BT 3 

• THIN RECTANGULAR SECTION 
APPROXIMATE WARPING 
FUNCTION 

• THIN RECANGULAR SECTION 
TORSIONAL STIFFNESS 
COEFFICIENT 


CYCLES PER SECOND 



PLATE 

BEAM 

1ST F 

90.1 

87.6 

1ST T 

524.1 

558.2 

2ND F 

558.3 

535.1 

1ST S 

821.7 

749.4 


Figure 3.4-5 Constrained Warping Condition and Thin Section Torsional 
Stiffness Correlated Well Using an Approximate Section Warping 
Function 


The low torsional stiffnesses were resolved by introducing thin section 
torsional stiffness coefficients and an approximate warping function. The 
warping function was evaluated using: 



This warping function corresponds to the first term of the elasticity solution 
for the torsion of a rectangular section. The effect on natural frequencies of 
imposing the warping function on the NASTRAN solution is shown on Figure 

3.4- 5. As a result of the warping function prescription, each cross-section is 
now reduced to six degrees of freedom, which is consistent with the existing 
beam analysis procedure. Since the warping function that was prescribed 
corresponds rather well with the elasticity solution, little system stiffness 
was added, and the torsion mode frequency was increased by only 2.5 percent. 

The beam assembly procedure was then tested on a plate with a 30 degree 
pre twist between root and tip. Results of this test case are shown on Table 

3.4- 1 and Figure 3.4-6. All frequencies from the combined beam analysis 
procedure were found to be within 10 percent of the NASTRAN plate solution. 

These test cases verify the concept that a beam section may be assembled from 
a collection of beam elements with acceptable results for bending and torsion 
frequencies. 
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TABLE 3.4-1 


NASTRAN TEST CASE FOR PANEL WITH 30 DEGREE PRETWIST 
(Cycles per Second) 



NASTRAN 
PI ate 
Analysi s 

Connected 

Beams, 

Free Warpinq 

Connected 

Beams, 

Warpinq Imposed 

1 st FI ap 

90.1 

87.6 

87.6 

2nd Flap 

480.1 

438.8 

438.8 

1 st Torsion 

535.1 

567.9 

585.5 


CYCLES PER SECOND 



Figure 3.4-6 Results Obtained for a Twisted Flat Plate 
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3. 4. 1.2 Solution Procedure 


The approximate modelling technique for the design of a composite fan blade 
uses a laminated composite beam theory. In this theory, the airfoil is divided 
■into radTal segments with each radial segment being further divided into a 
chordwise array of beams as shown in Figure 3.4-7. Each beam has a rectangular 
cross-section to simplify the composite material characterization. The 
laminated beam derivation parallels classical laminated plate equations. 
Differences in stress components and the definition of the stress and moment 
resultants occur between beam and plate equations. 


THIS ANALYSIS CONSIDERS: 

• ANISOTROPIC MATERIALS 

• THIN-PLATE TORSIONAL 
STIFFNESS 

• SECTION STIFFNESS EQUALS 
THE SUM OF BEAM 
STIFFNESS 



Figure 3.4-7 Radially Stacked Beam Element as Represented by the Laminated 
Composite Beam Theory 
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The laminated beam formulation employs a direct stiffness finite element 
approach. Slice stiffnesses are summed to give the section stiffness. The 
section stiffness matrix is then transformed into transfer matrix form, so 
that it may now replace the influence coefficients of the original analysis 
system. 

The laminated beam formulation begins with the assumption of cubic lateral 
displacement functions and linear membrane and twist displacement functions, 
as shown in Figure 3.4-8. The o subscripts in Figure 3.4-8 refer to neutral 
axis displacements. 


Vg = ai + a2X + agX^ + a4X^ 
Wg = 35 + agX + ayX^ + agX© 

u O = a 9 + a 10 x 
©0 =a 1 1 + a 12 x 



z,w 


Figure 3.4-8 Shape Functions for the Element Displacement Response 


The coefficients of the displacement functions, a, are solved for in terms of 
nodal point displacements, giving: 

| a} = [N] | A | . (2) 

The element shape functions, [N], may, therefore, be readily evaluated. 

Strains may be evaluated from shape function derivatives: second derivatives 

in bending, first derivatives in membrane and twist. Thus, the neutral axis 
strains and curvatures may be related to the shape coefficients, as 

jfo} =CX]ja}. (3) 

Away from the neutral axis, with the assumption that planes remain plane in 
bending, displacements become: 

u(x,y,z) = u Q (x) - y v QjX (x) - z w QjX (x) + C yz d ,x 

v(x ,y,z) = v Q (x) - Cjy u Q>x (x) - xz 9 ,x (4) 

w(x ,y,z) = w Q (x) - c 2 z u 0jX (x) - xy e ,x 


where c is a warping function coefficient, and C] and eg are Poisson 
ratios. Differentiation of these displacements gives the necessary strain 
relationships, which may now be related to nodal point displacements. 
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For the k'th lamina, the rotated stress-strain relation is 



0 

Q 13 

/ ' 
1 ex 

Q 22 

0 

7xy 

0 

Q 33 

I 7 xz 



K l 


( 5 ) 


Integration of the stresses over the laminate gives the beam stress resultants. 



where N is the total number of lamina in the laminate. 


Substituting the lamina stress-strain law and the strain-displacement 
relations into the above, and integrating over the rectangular cross-section 
gives: 



where: 


and 


U. 


33 


2 °33 + Jl_ A 22 




N 

a £ Q fj <Y k 
K=1 J K N 


W 



N 

a/2 J2 
K=1 



(Y 2 - Y 2 ) 
lY K T K-1 1 


( 8 ) 
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N 

a/3 £ 

K=1 



/y 3 y 3j 
Y K Vl ‘ 


with the rectangle dimensions and layup as illustrated in Figure 3.4-9. 



Figure 3.4-9 Rectangular Beam Ply Layup 


The element force resultants at the beam ends may now be expressed in terms of 
the neutral axis strains as: 

Iff = [E] |e 0 | . (9) 

The beam forces may be transferred into the finite element coordinate system, 
using an equilibrium matrix, giving: 


M * [A] ) ft . (10) 


The previous relations may now be combined to yield the element stiffness 
relation: 


| F} = [A] [E] [X] [N] | A} = [K b ] {a} (11) 
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The section stiffness may be generated as the summation of the individual 
stacked beam stiffnesses, when offsets and cross-section warping are accounted 
for through a rigid-body linkage: 


{F s } ■ | (»,], [K b ], [«,) |a s } ■ CS K ] {a s } (12) 

where there are M stacked beams on the section. At the blade root, the warping 
function is set to zero, to impose warping restraint effects on the blade 
model . 


Once the section stiffness has been generated, to make the new element 
compatible in form with the existing beam blade analysis, the section 
stiffness must be transformed to transfer matrix form. Partitioning the 
element equilibrium equation for ends 1 and 2 gives: 

j Fi ) 

If 2 1 

Reordered to transfer matrix form, the element equation becomes: 


S K1 1 J 

S K1 2 

S K1 2 j 

S K22 


I A1 

I A2; 


(13) 



The section masses are treated as lumped mass points at the two end node 
locations. In blade vibration, equilibrium across a concentrated mass point, 
gives: 


^2' 


• • 

?2 + mll 2 = F 2 - w 2 m U 2 . 


(15) 


In matrix form, the mass effect may be expressed as: 



Cm] 



(16) 


Hence, in traversing from the beginning of a beam segment to its end, with 
inertia effects included, it is found: 
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( 17 ) 


K! 

1 

Al) 

1 f 2 ! 

1 — 1 
1 1 

1 — 1 
E 

i — i 

II 

If, ! 


The (m) (k) product above is the final step in making the present theory 
compatible with the existing beam analysis. Notably, only the (m) array has 
terms which are frequency dependent. Hence, this procedure can be made very 
efficient for frequency extraction. 

For a rotating blade, centrifugal accelerations tend to stiffen the blade, and 
must be included in the calculation for vibration frequencies. In the present 
analysis, centrifugal effects are included through a section differential 
stiffness matrix. The section differential stiffness matrix employed, found in 

Reference 1, utilizes the element load resultants and geometry to calculate 
the stiffness increment. 


To determine the static load resultants, and also for the calculation of 
static stresses, a static analysis is performed. 

A lumped mass representation is employed in the static analysis as done 
previously for vibration analysis. At station i+1, a static load, Pi+i 
results from the centrifugal accelerations of the point mass. Thus, with mass 
effects included: 


IV,)' 

( u i ) 

= CKJ 

"W 


blade, from station 


K 1 1 K 1 2 


K 12 K 22 


P i+1 


(18) 


At station 1, the blade root boundary condition, 

U, = C f 1 , 

allows the root to be spring supported or cantilevered. The final equation 
system thus becomes: 


(19) 


( 20 ) 


r-r 

k 


C K-j-j + K 12 


C K 21 + K 22 


N + 


n 


T2 


At station n, the blade tip boundary condition: 

W' - °- 


( 21 ) 


( 22 ) 
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The root load can then be determined, 

{ F i} = “^ C K 21 + K 22^ 1 { P T2 } 

Now, knowing the root loads and deflections, section loads and deflections are 
calculated according to the recursion relationship of (18). 

The components of the centrifugal force acting on a vibrating blade contain 
terms which are proportional to the displacement. These displacement dependent 
terms form the "centrifugal mass matrix" of Reference 2. The "centrifugal mass 
matrix" for the present analysis has been generated at the individual beam 
level. The application of appropriate planar constraints enables the reduction 
of the centrifugal mass to the six degree-of-freedom section level. This 
capability has also been included in the analysis. 

3.4.1 .3 Verification 


Due to intentional similarities between the present stacked beam analysis and 
the NASTRAN Bar element, analysis verification was greatly simplified. 

The approximate static analysis procedure was verified through comparisons 
with NASTRAN test cases for a flat plate and for a plate with a 30 degree 
twist. The model consisted of 8 cross-sections, with 11 beams per section. 
Table 3.4-1 1 summarizes the results of the two test cases, showing nearly 
exact agreement with NASTRAN for both deflections and reaction loads. 

The differential stiffness and centrifugal mass capabilities of the 
approximate analysis were demonstrated by comparing the results of two test 
cases with the results of NASTRAN analyses. In the tailoring operation, these 
restoration effects would only be applied to the vibration analysis but the 
verification was obtained from iterated static analyses. 

The first case, shown in Figure 3.4-10, consisted of a rotating, tilted, flat 
plate. Table 3. 4-1 1 1 shows almost exact comparisons between the present 
analysis and a corresponding NASTRAN beam analysis for the local tip 
deflections. 

The second test case, shown on Figure 3.4-11, consisted of a twisted flat 
plate stacked along a radial line, with a 30 degree twist from root to tip. As 
shown on Table 3. 4- IV, almost exact agreement exists between the present 
analysis and a corresponding NASTRAN beam analysis. 

The vibration analysis capability of the stacked beam solution was verified by 
comparing predicted natural frequencies with NASTRAN predicted natural 
frequencies. Table 3.4-V shows excellent agreement between the approximate 
analysis procedure and a NASTRAN plate model for analysis of a flat plate 
30.5cm x 10.2cm x 1.02cm (1 2i n x 4i n x 0.4in). 

As shown in Table 3.4-V I, when the plate was given a 30 degree twist between 
root and tip, bending frequency agreement remained good between the 
approximate analysis and NASTRAN. The first torsion mode frequencies differed 
by less than 5 percent. 
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To examine a cross-section more representative of an airfoil, a doubly wedged 
plate was analyzed. For this model, the edge thicknesses were taken as one 
quarter of the mid-chord thickness. Good agreement with NASTRAN was obtained, 
as seen on Table 3.4-VII. 


TABLE 3. 4-1 1 

COMPARISON OF STATIC ANALYSIS PROCEDURE WITH NASTRAN TEST CASES 

NASTRAN Static Analysis 

Flat Plate (11 Beams/Section-8 Sections) 

Tip Deflections 



Radial, cm 
(in) 

0.41 71-3 
(0.1642-3) 

0.4168-3 

(0.1641-3) 


Twist, 

( radians) 

0 

0 

Restraint Forces 

Radial, n 
(lb) 

-2327. 

(-0.5232+3) 

-2327. 

(-0.5232+3) 


Twist, n-m 
(in-lb) 

0 

0 


Twi sted 

Plate (11x8 Breakup, 30° twist 

Tip Deflections 

Radial , cm 
(in) 

0.4244-3 

(0.1671-3) 

0.4244-3 

(0.1671-3) 


Twist, 

(radians) 

0.3828-4 

0.3827-4 

Restraint Forces 

Radial, n 
(lb) 

-2330. 

(-0.5239+3) 

-2330. 

(-0.5238+3) 


Twist, n-m 
( i n-1 b ) 

3.11 

(0.2754+2) 

3.11 

(0.2753+2) 
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DEFLECTION (T ) 



Figure 3.4-10 Tilted Flat Plate Used in Approximate Analysis Test Case 


TABLE 3.4-III 

TILTED FLAT PLATE TIP DEFLECTIONS 
(10,000 rpm, 30.5cm x 10.2cm x 1.02cm) 
(1 2in x 4in x 0.4in) 


Local Tip Deflections 



T-| , cm (in) 

T 2 , cm (in) 

R 3 , radians 

Static Analysis 

NASTRAN 

0.04881 

(0.019217) 

1 .9461 
(0.76617) 

0.08524 

STAEBL 

0.04890 
(0.019251 ) 

1 . 9463 
(0.76627) 

0.08526 

Iterated Static Analysis 

NASTRAN 

0.04870 

(0.019175) 

0.88321 

(0.34772) 

0.03474 

STAEBL 

0.04875 

(0.019192) 

0.88326 

(0.34774) 

0.34474 



X 



Figure 3.4-11 Twisted Flat Plate Used in Approximate Analysis Test Case 

TABLE 3.4-IV 


TWISTED (30 Degrees) FLAT PLATE TIP DEFLECTIONS 
(1,000 rpm, 30.5cm x 10.2cm x 1.02cm) 

(12in x 4in x 0.4in) 


Static Analysis 

NASTRAN 

STAEBL 

Iterated Static Analysis 
NASTRAN 

STAEBL 


Local Tip 

Deflections 

T] , cm (in) 
XI 0“ 3 

R-| (radians) 
XI 0“ 4 

0.4246 

(0.16715) 

0.38276 

0.4245 
(0.16711 ) 

0.38272 

0.4246 

(0.16715) 

0.38261 

0.4245 
(0.16711 ) 

0.38264 
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TABLE 3.4-V 


APPROXIMATE ANALYSIS NATURAL FREQUENCIES COMPARED WITH NASTRAN 

(Flat Plate) 



Cycl es 

per second 

Percent 

Mode 

NASTRAN 


STAEBL 

Difference 

First flap 

90 


88.5 

-1.8 

First torsion 

524 


529.7 

+1.0 

Second flap 

558 


552.3 

-1.1 

First stiff 

822 


822.5 

+0.1 


TABLE 3.4-VI 



APPROXIMATE ANALYSIS NATURAL FREQUENCIES COMPARED WITH NASTRAN 

(30 Degree Twisted Plate) 


Cycles 

per second 

Percent 

Mode 

NASTRAN 


STAEBL 

Difference 

First flap 

90 


88.5 

-1.8 

Second fl ap 

480 


474.0 

-1.3 

First torsion 

536 


561.5 

+4.8 

First stiff 

941 


945.0 

+0.4 


TABLE 3.4-VII 



APPROXIMATE ANALYSIS NATURAL FREQUENCIES COMPARED 

(Double-Wedge Plate) 

WITH NASTRAN 


Cycles 

per second 

Percent 

Mode 

NASTRAN 


STAEBL 

Difference 

First flap 

65.6 


65.0 

+0.9 

Second flap 

404.8 


405.5 

+0.2 

First torsion 

442.5 


460.0 

+4.0 

First stiff 

706.4 


705.5 

+0.1 
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Further calibration of the analysis system was obtained by comparing the 
approximate analysis procedure with NASTRAN for frequency predictions of a 
rotating fan blade. The comparison, shown in Table 3.4-VIII, gave agreement 
consistent with the anticipated accuracy of an approximate analysis. 


TABLE 3.4-VIII 

APPROXIMATE PROCEDURE ANALYSIS OF FAN BLADE NATURAL 
FREQUENCY COMPARED WITH NASTRAN 


Mode 

Cycles 

NASTRAN 

per second 

STAEBL 

Percent 

Difference 

First flap 

92.9 

93.6 

+0.8 

First torsion 

185.3 

163.2 

-11.9 

Second flap 

210.2 

205.7 

-2.1 

First stiff 

370.9 

349.0 

-5.9 


When stress distribution predictions were compared between the approximate 
analysis and previous beam analysis, poor correlations were noted. The problem 
was identified to be an assumption that warping faired uniformly from zero at 
the airfoil root to free-beam, as defined by the equations presented in Figure 
3.4-12, at the end of the first increment. This assumption failed to recognize 
the fact that high root stress is a local result of restrained warping. A 
modification changed the torsional stiffness to recognize that: 


twist gradient 1 _ 0 - x / A 
twist moment 


(24) 


x = distance from root 

A = characteristic length associated with warping restraint 

The resulting root centrifugal stress distribution is shown in Figure 3.4-13. 
Agreement with NASTRAN plate element blade analysis is as good as can be 
expected of a beam analysis. 

An additional processing step was added to the approximate static and 
vibratory stress calculations in anticipation of the use of composite material 
in some layers of a tailored blade. A single quantity incorporating all stress 
components is evaluated. It is F-j o' -j + F 2 a ? + Fg cr g + ^11 l 2 + 
F22 a 2 2 + F 66 a 6 2 + 2 Fi 2 o' 1 a 2 wh ere <r -| ana a 2 are the principal 
tensile (or compressive) stresses and o-g is the shear stress. F^ and F^j 
are input directional materials properties which are defined to yield an 
evaluation of the Tsai-Wu failure criteria for a composite material (or 
octahedral shear stress to strength ratio squared in metal). 
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The accuracy of the natural frequency prediction in the STAEBL procedure was 
subjected to an additional check by applying it to the analysis of a hollow 
blade. The same blade geometry, shown in Figure 3.4-14, was analyzed using 
NASTRAN plate elements with properties defined by lamination theory. Bending 
frequencies were in agreement but the error in the torsional frequency 
prediction was excessive. A similar result was obtained from analysis of a 
hollow rectangular section beam. It was found that the torsional stiffness 
equation could be redefined to be in agreement with the formula for a hollow 
rectangular section beam without changing the successful results that had 
previously been obtained for a solid airfoil. 

The revised stiffness expression, for the thin walled airfoil pictured in 
Figure 3.4-15 and 3.4-16, is: 


K 


4G 


b -t/2+5 

y^dydz + 4G 

o -t/2 




(25) 


which agrees with the hollow beam stiffness when thickness, t, approaches a 
constant. The revised stiffness expression also solved the airfoil problem as 
is illustrated by the good agreement presented in Table 3.4-IX. 


s = s 


• RADIAL DEFLECTION, u 


u = (W s - W s ) 0 


w. 


=—f 

AREA J. 


AREA 
S 


t W s ds 


W 


-/ 


S I ' *T 

o 


Rx ds 


0 = TWIST GRADIENT 


• ROTATIONS, R 2 , R 3 
R 2 = — R|\j 9 

R 3 = — R T 0 



Figure 3.4-12 Airfoil Warping Defined by Spanwise Twist Gradient 
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Figure 3.4-13 Approximate Root Centrifugal Stress in the Energy Efficient 
Engine Fan Blade Compared with NASTRAN 
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Figure 3.4-14 NASTRAN Hollow Blade Model 
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higure 3.4-15 Hollow Airfoil Beam 



Figure 3.4-16 Laminated Airfoil Beam 


TABLE 3.4-IX 

HOLLOW BLADE FREQUENCY COMPARISON 



NASTRAN (cps) 

Approximate Analysis (cos) 

Percent 

Difference 

First Frequency 

110.7 

113.5 

+2.5 

Second Frequency 

267.4 

278.8 

+4.3 

First Torsion 

289.8 

295.8 

+2.1 


A final check of the approximate analyses was accomplished by conducting 
comparative NASTRAN and approximate airfoil frequency analyses with composite 
material layers added. The results are presented in Tables 3.4-X and 3.4-XI. 
The trends are correct and the agreement is within the limits that can be 
expected of approximate analysis. 


TABLE 3.4-X 

COMPOSITE REINFORCED BLADE FREQUENCY COMPARISON 
(0° Fiber Orientation) 


Mode 

NASTRAN (cps) 

Approximate 
Analysis (cps) 

Pe rcent 
Difference 

First Bending 

108.4 

111.8 

3.1 

Second Bendi ng 

261.8 

276.2 

5.5 

First Torsion 

298.8 

312.9 

4.7 
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TABLE 3.4-XI 


COMPOSITE REINFORCED BLADE FREQUENCY COMPARISON 
(35° Fiber Orientation) 


Mode 

NASTRAN (cps) 

Approximate 
Analysis (cps) 

Percent 

Difference 

First Bending 

108.4 

111.1 

2.5 

Second Bending 

259.6 

270.0 

4.0 

First Torsion 

295.4 

298.8 

1.2 

3.4.2 Foreign 

Object Damage Analysis 



Bird ingestion 

is a nonlinear transient 

structural dynamics 

problem with fluid 


structure interaction. The blade can fail in the impacted region when local 
strain exceeds material ductility, or away from the impacted region, when a 
few cycles of post-impact strain oscillation substantially exceed material 
strength. Analyses which simulate this behavior have been developed, but high 
computation time prohibits incorporation in the current design system. Simple 
chordwise and spanwise bending stress parameters are included in the current 
Pratt & Whitney Aircraft design system. They represent the effects of moment 
distributions resulting from a bird slice ingestion at the blade tip. They 
have been correlated with titanium blade ingestion experience. 

3. 4. 2.1 Spanwise Bending Damage 

A more refined linear analysis of spanwise bending response was derived by 
examination of an impact event where the differential equation of motion on 
the blade is: 


[m] fxf + [k] |xf = |F(t)} ( 26 ) 

Considering the response to be a superposition of n natural modes of the 
blade, the equilibrium equation may be decoupled into n modal equations of the 
form: 


0 9 





p k (t) 


(27) 


where ? k ( t ) is the modal amplification factor of the k'th mode, is 
the natural frequency, 1 % is the modal generalized mass, and P^ = \|< T 
|F( t)[ is the modal forcing function. 


Assuming that the time of load application is short relative to the time when 
the root stress is most critical, (27) may be solved, giving: 

V t|s i^ 1281 

where 1^ is the modal impulse. 
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Equation (28) provides the means for evaluating the blade root stresses as a 
function of time. Experience has shown that the highest root stresses occur at 
the quarter cycle of the first bending time point. 

3. 4. 2. 2 Local Damage Analysis 


The current design system local impact damage looks at chordwise bending 
stress at the radius of the center of impact. 


The analytical model consists of a blade cross section of incremental span. 
The loading is distributed over a distance determined by blade to gap and the 
velocity of the bird relative to the blade. The applied load is assumed to be 
taken out by the transverse shear and torsional restraint provided by the 
blade cross sections directly above and below the impacted region. Based on 
these considerations, the bending moment variation along the chord can be 
calculated and, since bending stress is inversely proportional to the square 
of the thickness, the stress parameter is moment/thickness^. It peaks at a 
part chord location. 


Scaling to determine an allowable for composite structures has been 
accomplished based upon the plastic hinge moment capability of the airfoil 
section. 


For a titanium cross-section of thickness, h, the plastic hinge moment is: 

M m ax = 1 ' 4<,Y Tlh 2 (29) 

For a cross-section of a superhybrid blade, the moment carrying capability of 
the graphite/epoxy has been neglected, because the low ductility of this 
material would cause it to fracture well before the other blade components 
reach their maximum loads. In the boron/aluminum, sufficient aluminum 
ductility exists in the transverse direction for inclusion in the parameter 
calculation. Hence, on a composite cross-section, the maximum moment becomes: 

n 

M max 1 ? 1 Yi ?i A *i (30) 

The allowable composite local ingestion parameter then becomes the allowable 
metallic parameter multiplied by the scale factor: 


4 


n 

2 

i=l 


a- w <. 


Y. £. 

i *1 




(31 ) 


3.4.3 FI utter Anal ysi s 

Flutter is "a self-excited oscillation of an aerodynamic lifting surface". 
During flutter, the aerodynamic forces couple with the blade elastic and 
inertia forces and increase the kinetic energy of the blade (negative 
damping). When this aerodynamic energy exceeds the positive mechanical damping 
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energy, the blade oscillations grow to destructive amplitudes. Thus, it is 
imperative that flutter conditions must be avoided to prevent high frequency 
fatigue failure of blades. 

Supersonic flutter of fan stages is evaluated by means of an existing analysis 
program. Individual modes of vibration and steady state aerodynamic conditions 
are input to the analysis. Unsteady aerodynamic loads resulting from vibratory 
motion are calculated by the appropriate aerodynamic analysis. Work done on 
both the forward and the backward traveling wave implementation of each mode 
is determined by spanwise integration of the product of resultant unsteady 
load and input vibratory velocity. Work done is non-dimensional i zed by 
dividing kinetic energy by input vibratory mode and expressed as a logrithmic 
decrement. The absolute value of the lowest decrement for any mode traveling 
in either direction represents stage stability limit. 

In the analysis of supersonic unstalled flutter, the method of superposition 
of the basic wave solutions of the linearized flow equation is used to 
simulate the unsteady aerodynamics of a flat plate cascade oscillating in 
compressible flow. The method is generalized to cover supersonic relative flow 
with either subsonic or supersonic axial component (M-| x 1), and thus provide 
a wide range of application. 

The basic assumptions of the analysis are the following: 

o Flow is two-dimensional, unsteady, compressible, inviscid, 
irrotational and isentropic; 

o Cascade is infinite, flat plate, at zero incidence and unstalled; 

o Vibratory motion is small, constant interblade phase angle, 2 degree 
of freedom (twist and flap) at a blade/disk system natural frequency. 

This existing design system analysis was used with evaluation of coefficients 
at six representative airfoil strips to provide the STAEBL system approximate 
fl utter analysi s. 

3.4.4 Approximate Analysis System 

A comprehensive approximate analysis system has been developed using the 
approximate stress and vibration analysis, the root and local foreign object 
damage analysis, and an existing Pratt & Whitney Aircraft aerodynamic damping 
analysis. The flutter and root damage analyses depend on outputs from the 
blade vibration analysis; specifically, the natural frequencies and the mode 
shapes. The intermediate and constraint outputs of the component modules of 
the approximate analyses are listed on Table 3.4-XII. 
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TABLE 3.4-XII 


APPROXIMATE ANALYSIS SYSTEM MODULE OUTPUTS 


Analysi s 

Intermediate Outputs 

Constraints Calculated 

Static Analysis 

Differential Stiffness 

Blade Static Stress 

Vibration Analysis 

Frequencies, Mode Shapes, 
Speed Sensitivity 

Resonance Margins 

FI utter 


Aerodynamic Damping 

Coefficient 

Local Foreign 
Object Damage 


Local Foreign Object 
Damage Parameter 

Root Foreign 
Object Damage 


Root Foreign Object 
Damage Parameter 


3.5 OPTIMIZATION METHOD 

A common engineering design problem is the determination of values for design 
variables which minimize design quantity such as weight, drag, or cost, while 
satisfying a set of auxiliary conditions. In the STAEBL program, the 
structural design of a composite or hollow fan blade is accomplished by 
varying airfoil section thicknesses, chord, titanium skin thickness, etc. to 
minimize a combination of weight and cost subject to constraints on resonance, 
flutter, stress, and foreign object damage. 

3.5.1 General Optimization Theory and Background 

The engineering design process can be modeled as a mathematical programming 
problem in optimization theory. In theoretical terms, this constrained 
minimization problem can be expressed as follows: 

minimize f( >0 , (32) 

subject to the auxiliary conditions, 

g-j (x) < 0, i=l , . . . , m. (33) 

The quantity x = (x-j, ..., x-) is the vector of n design variables. The 
scalar function to be minimized, f(xj, is the objective function; and g-j(_x) 
<0, i=l, ..., m, are the m inequality constraints. Upper and lower bounds on 
the design variables, e.g., 

Lj < Xj < U n - , i=l , . . . , n, (34) 

are referred to as side constraints. The n-dimensional space spanned by the 
design variables is design space. If f(x_) and g-j(x), i=l, ..., m, are all 
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linear functions of x, then the optimization problem is a linear programming 
problem (LP) which can be solved by well-known techniques such as Dantzig's 
simplex method. If f(x) or any of the g-j(x)'s are nonlinear, then it is a 
nonlinear programmi ng TNP) problem for which a number of solution techniques 
are also available. If the objective function, f(x), is to be maximized, then 
the equivalent problem of minimizing -fU) is considered. 

Any choice of variables, x., in design space that satisfies all the 
constraints, (33) and (34), is a feasible point. As shown in Figure 3.5-1, the 
union of all feasible points comprises the feasible region. The locus of 
points which satisfy gi ( x_) = 0, for some i, forms a constraint surface. On 
one side of the surface, g^ U ) < 0 and the constraint is satisfied; on the 
other side, g.,- (_x ) > 0 and tne constraint is violated. Points in the interior 
of the feasible region are free points; points on the boundary are bound 
points. If it is composed of two or more distinct sets, the feasible region is 

disjoint. A design point in the feasible region that minimizes the objective 

function is an optimal feasible point and is a solution of the problem posed 

in (32) through (34). As in any nonlinear minimization problem, there can be 

multiple local minima. In this case, the global minimum is the optimal 
feasible point. If a design point is on a constraint surface (i.e., g-,- U ) = 
0 for some i), then that particular constraint is active. A solution to a 
structural optimization problem is almost always on the boundary of the 
feasible region, and is usually at the intersection of two or more constraint 
surfaces (i.e., there are two or more active constraints). 



Figure 3.5-1 


Feasible Region 
Constraints 


Is Union of All Points that Satisfy All 
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There are two basic approaches to solving the constrained optimization problem 
posed in (32) through (34): direct methods (e.g., methods of feasible 

directions) and indirect methods (e.g., penalty function methods). 

In a direct method, the objective function and constraints are evaluated 
independently, and the constraints are treated as limiting surfaces. 
Zoutendijk's method of feasible directions is an example of a direct method 
and will be discussed further in Sections 3.5.2 and 3.5.3. 


In an indirect method, the problem is reformulated so that (32) through (34) 
are replaced by a single unconstrained minimization problem. For example, in 
an exterior penalty function method, violations of the constraints are added 
onto the objective function to form an augmented objective function. 


where: 


<P (x; R k ) 

= f(x) 

+ R k 

m 2 

2 g.-(x) , 

i=l L 1 J + 

(35) 

[ 9 i ( -] = | 

( 0 ' 

if 

g.;(x) < 0 , 

(36) 

f g^x), 

if 

g^ (x) > 0 . 



Thus, if a particular constraint is satisfied, then it contributes nothing to 
the summation in (35). If a constraint is violated, however, then a penalty 
term is added onto the objective function, which increases as the square of 
the violation. The design points, x, must all satisfy the side constraints 
(34). 

The augmented objective function <t> (x; R|<) is minimized for successively 

increasing values of the penalty parameter R k , i.e. , 


Rl < Rr < R 3 < • • • — 00. (37) 

Linder rather mild conditions, the sequence of minima | _xi » X£, £ 3 , ...f 

corresponding to (37), converge to a local optimum of the constrained 
optimization problem identified in (32) through (34). One advantage of this 
approach is that each of the minimization problems can be solved using a 
standard unconstrained function minimization technique, such as a conjugate 
gradient or quasi-Newton method. 

Several programs are generally available in software libraries (e.g., IMSL = 
international Mathematical and Statistical Libraries, Inc., and HARWELL) that 
can solve the constrained minimization problem using either direct or indirect 
techniques. Because of its versatility in solving structural optimization 
problems at Pratt & Whitney Aircraft, NASA/Langley, General Motors, and Ford 
Motor Co., the COPES/CONMIN computer program was selected for the STAEBL 
contract. This program was developed by G. N. Vanderplaats of the Naval 
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Postgraduate School and has the added capability of solving both constrained 
minimization problems (32) through (34) and unconstrained minimization 
problems (32). COPES (control Program for Engineering Sy^esis) is a 
user-oriented FORTRAN program that prepares an input data set for the 
optimization program CONMIN ( CONs trai ned Minimization). Two solution 
techniques are available for the constrained minimization problem. 

1. Exact analysi s - utilizes the method of feasible directions applied to the 
actual objective function and constraints. This approach is discussed in 
Section 3.5.2. 

2. Approximate analysis - utilizes the method of feasible directions applied 
to Taylor series approximations and to the objective function and 
constraints. This approach is discussed in Section 3.5.3. 

3.5.2 COPES/CONMIN Exact Analysis: Method of Feasible Directions 

In this method, a sequence of designs (xq, xi , ...) is produced which 

converges to a local optimum design, Eopt> provided a feasible region 
exists. The successive designs are generated iteratively as a sequence of 
one-dimensional line searches, i.e., 

xi+l = x i + * £i > (38) 

for i = 0, 1, 2, ..., where s-j is the search direction and are chosen so 
that once the feasible region Fas been entered, all subsequent iterates remain 
feasible and the magnitude of the objective function is reduced at each step. 
If the initial design, xq, is infeasible, then gradients of the violated 
constraints are calculate'? so that search directions can be established which 
lead to the feasible region, provided one exists. 

Once the feasible region has been entered, a particular direction is pursued 
until either: a) a local minimum of the objective function, f(x), has been 
determined or, b) a constraint boundary has been reached. The value of « in 
(38) at the termination point of this one-dimensional line search in the £j 
direction is determined by interpolating polynomial fits of several trial 
values of the objective function and constraints. A schematic of a typical 
case is shown in Figure 3.5-2. The initial design, xq, is infeasible. The 
design point, x^ , is a relative minimum of the objective function. The 
remaining searcfT directions terminate at constant boundaries until Xopt is 
reached. 

If a local minimum of the objective function has been reached, then the 
gradient of the objective function is calculated, and the procedure continues 
in the direction opposite to this (i.e., the "path of steepest descent"). If a 
constraint boundary has been reached first, however, then a new search 
direction can be determined using Zoutendijk's method of feasible directions 
as follows. A direction, ^i » 1s usable if the objective function initially 
does not increase along this path, i.e., 

Si • Ff (xj ) < 0. (39) 
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Figure 3.5-2 Line Search Terminates Either at Minimum of Objective Function 
or at a Constant Boundary. Sequence of line searches converge to 
*opt* 


In addition, Sj is feasible if no active constraints are initially violated 
along this path, i.e. , 


!i • 7gj(xi) < 0, j = 1 , ... NAC, 


(40) 


where a subscript, j, is chosen for each of the constraints that 
*i* As shown schematically in Figure 3.5-2, allowable paths 
from x-j comprise the usable feasible sector. 


are active at 
that emanate 


3.5. 2.1 Choice of Search Parameters for COPES/CONMIN 

In Zontendi jk ' s method, the search direction, s.-, is determined by solvinq a 
sub-optimization problem, i.e., 


maximize j3 , 

subject to: 

ii * ^iii ) + P - 0, 

Ii * ^9j(Xj) + 0j|3 <0, j = 1 NAC (41) 

I £j I bounded. 

The parameter 0j, the push-off factor, determines the orientation of the new 
search direction vector, , in the usable feasible sector by pushing the 
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search away from the constraints into the feasible region. As shown in Figure 
3.5-3, sj approaches the constraint surface, gjU), tangentially as 

0 j— 0, and sj approaches a level curve to tne objective function 

tangentially as 9j — ► « . For a linear constraint, 0j can be set to zero 
and the search can proceed along that particular constraint surface. If 0j 
is too small, then for nonlinear constraints with convex curvature, the same 
constraint will be immediately re-encountered. In this case, the search will 
"skid" along the same constraint boundary with little change in the objective 
function. If 0j is too large, then the search will "zigzag" back and forth 
between two or more constraints, and the objective function will again not be 
reduced rapidly enough. A compromise value of 0j =1 is the default value 
used by COPES/CONMIN for the initial iteration. Since many of the constraints 
(e.g. , flutter, resonance, etc.) in the STAEBL optimization problems were 
nearly linear (at least locally), the value 0j = 0.3 was used for the 
initial iteration to give more rapid convergence. 
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Figure 3.5-3 New Search Direction, Sj, Lies in the Usable Feasible Sector. 

The value of the push-off factor, 0j, determines the 
orientation of the new search direction. 


The rate of convergence is also affected by the value of CT, the constraint 
thickness parameter in COPES/CONMIN. For theoretical purposes, the i th 
constraint is satisfied if g^ (_x ) <. 0 and is active if g n ' (><_) =. 0. For 
computational purposes (as shown in Figure 3.5-4), COPES/CONMIN considers the 
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constraint to be satisfied if g-jU)— CT and to be active if 

I gi ( x) I < -CT, where CT i s a negative number. If 1 CT 1 is too small, then one 

or more constraints can be active on one iteration and inactive on the next, 
only to become active again on a subsequent iteration - another instance of 
"zigzagging". A proper choice of CT ensures that two or more constraints will 
often be simultaneously active when a new search direction is chosen. In this 
case, as shown in Figure 3.5-5, the search will proceed down the "valley" 
formed by the constraint surfaces. The default value in COPES/CONMIN is 
CT = -0.1 (i.e., a constraint is considered active if it is within 10 percent 

of its specified value). For many STAEBL applications, a value CT = -0.1 was 

too large since too many constraints were simultaneously active during the 
early iterations, and new search directions could not be established. 
Consequently, the value CT = -0.05 was used. 


During the COPES/CONMIN optimization procedure, the values of CT and 0j are 
updated as follows. After the first few iterations, the value of CT is 
decreased monotonically so that fewer constraints will be active when new 
search directions are established. A minimum value of |CT| is given by CTMIN; 
the default value in COPES/CONMIN is CTMIN = 0.004. In addition, the value of 
the push-off factor, 0j, is also readjusted at each iteration according to 
the value of the active constraint to which it applies and to the current 
value of CT. Thus, 0j is a quadratic function of these parameters, i.e.. 


9i (xj ) 
CT 



where d Q is the initial value of 0j (for STAEBL we have 

0.3). A maximum value of 0j = 50 is al so J imposed. 


(42) 

chosen 0 Q = 


The iteration is terminated under three conditions in COPES/CONMIN: 


1. If the objective functions for three successive iterates are all within a 
prescribed error tolerance, then the procedure has converged to a local 
optimum. COPES/CONMIN uses default values of DELFUN = 0.0001 for the 
relative change in objective function and (DABFUN = 0.0001 ) x initial 
objective value for absolute change in the objective function as its 
convergence criteria. For STAEBL application, 1 percent differences in the 
objective function were adequate for convergence so that DELFUN = DABFUN = 
0.01. These increased values also reduced the number of function calls 
required for convergence. 

2. If convergence has not been obtained after a certain number of iterations 
inside the feasible region, the procedure is terminated. Either this 
design can be accepted or else the optimization procedure can be restarted 
if progress toward an optimum is obviously being made. COPES/CONMIN uses a 
default value of 20 for the total number of iterations. 


3. If the feasible region cannot be located after a certain number of 
iterations (the COPES/CONMIN default value is 10), then the process is 
terminated. At this time, either a new starting guess should be chosen, or 
else the objective function and constraints should be examined to 
determine whether or not a feasible region exists. 
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FEASIBLE REGION 



Figure 3.5-4 Constraint Thickness Parameter, CT, Determines when a Constraint 
is Satisfied, Violated, or Active 



Figure 3.5-5 For Proper Choice of CT, Two Constraints Become Simultaneously 
Active so that Search Proceeds down the "Valley" Formed by the 
Constraints 
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3. 5. 2. 2 Scaling of Design Variables in COPES/CONMIN 


Performance of the method of feasible directions can be greatly affected by 
the scaling of the design variables. At the beginning of each iteration in 
COPES/CONMIN, a new search direction is established according to Zoutendijk's 
method (41). This procedure is based upon the gradient of the objective 
function and each constraint with respect to each of the design variables. The 
choice of the search direction is very sensitive to the components of these 
gradients. For example, in a two design variable problem, suppose that a 1 
percent change in x.j leads to a 10 percent change in the objective function, 
f(_x); whereas a 1 percent change in X£ leads to only a 0.1 percent change in 
fU). To reduce the objective function most rapidly, the search direction will 
be primarily in the x-| direction. The "weak" variable, X£> will be 
virtually unchanged, at least for several iterations. To obtain the optimal 
design, a relatively large change in X£ must be made to affect the objective 
function and constraints. 


In a well -formulated problem, the components of the gradient of the objective 
function with respect to the design variables should all be roughly the same 
order of magnitude. The scaling option in COPES/CONMIN can be used to 
equilibrate the gradient components as follows. The i th design variable, 

x. , is scaled by dividing it by its initial value x^ 0 , i.e.; 

V x i° ,43) 

_ x. L 

provided x.° is nonzero. Using (43) in the chain rule, the i Ln component 
of the scaled gradient with respect to the nondimensional variable, £ . , 
is given by: 1 


9f _3f 

" 3 £i X i 



(44) 


Thus, the ratio of the i^h components in the scaled gradients is given by: 



(45) 


The effect of scaling was exhibited by the optimal design of a hollow fan 
blade with a titanium outer skin. The four design variables were: x-| and 
x 2 (blade thicknesses, t root and t tl -_, at root and tip, respectively); 
X 3 (distance, d root , from bottom of hollow section to the blade root); and 
X 4 (titanium skin thickness, tjj). The objective function, f(x_), was blade 
weight. As shown in Table 3.5-1, the components of the gradient of the 
objective function varied by two orders of magnitude since 9 f/dxg = 0.027 
and 9f/9x 4 = 2.7. Consequently, without scaling, the minimization proceeded 
by varying the titanium skin thickness, x*. and leaving X 3 virtually 
unchanged - an optimum design was not achieved. When scaling was introduced 
according to (43), the gradient components in Table 3.5-1 were all of the same 
order of magnitude. In this case, the search direction varied all four design 
variables (including the hollow section location) simultaneously so that an 
optimal design was obtained. 
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TABLE 3.5-1 


UNSCALED AND SCALED VALUES OF GRADIENT OF OBJECTIVE 
FUNCTION RELATIVE TO THE DESIGN VARIABLES FOR 
HOLLOW FAN BLADE 


Design Variable, 

. Initial value 
cm (inches) 

i. L. 

i tn Component of 
Gradient = df/dx^ 

Unsealed 

Scaled 

X 1 = Voot 

2.22 (0.875) 

0.460 

0.403 

x 2 = kip 

0.85 (0.334) 

0.140 

0. 047 

x 3 = koot 

24.51 (9.650) 

0.027 

0.260 

x 4 = t Ti 

0.30 (0.120) 

2.700 

0.324 


The scaling options in COPES/ CONMIN are controlled by the input parameter 
NSCAL and are given as follows: 


1 

r > 0 : 

Rescale design variables 
every NSCAL iteration, 

by dividing 

by current 

values 

NACAL > 


No scaling (default value). 



(46) 

' 

A 
o 
• • 

Scale design variables by 
variables 

dividing by 

user-i nput 

seal i ng 


For STAEBL demonstration, scaling was always used. The value NSCAL = n+1 
(where n = number of design variables) was recommended by G. Vanderplaats 
since this strategy worked well for unconstrained minimization problems using 
the conjugate gradient method. 

3. 5.2. 3 Number of Function Calls for COPES/CONMI N 


Engineering design problems are considered small or large according to the 
number of design variables as follows: 

Smal 1 : n < 1 0 , 

Moderate: 10 < n < 50 , (47) 

Large: n > 50. 

The number, N, of function calls required for convergence of the method of 
feasible directions for COPES/CONMIN can be approximated as follows. As 
indicated in Figure 3.5-2, each iteration consists of a gradient evaluation of 
the objective function and constraints to determine the search direction, 
followed by a one-dimensional line search in that direction. When the 
gradients are not known analytically (as is the case for the STAEBL 
application), a backward difference gradient approximation is used. For n 
design variables, n function calls are required for the finite difference 
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gradient calculation. The one-dimensional line search usually requires 3 
additional function evaluations to update the objective function and 
constraints and to determine where the search should terminate. Thus, for m 
iterations, with n+3 function calls per iteration, we have: 

N = m (n + 3). (48) 

Typically, convergence is attained in approximately 10 iterations so that 
W«10n + 30. Note that N increases roughly linearly as a function of the 
number, n, of design variables. 

The limiting feature in these analyses is the computer time required per 
function call to evaluate the objective function and constraints. For example, 
calculation of three natural frequencies, mode shapes, resonance function, 
flutter parameters, stresses, weight, and bird ingestion parameters for a gas 
turbine engine fan blade requires approximately 25 seconds on an IBM 3033 
computer. In this case, 10 iterations for a 12 design-variable optimization 
problem would require approximately 150 function calls and 1 hour of computer 
time. Sometimes the number of function calls can be reduced by using the 
approximate analysis version of C0PES/C0NMIN, discussed in Section 3.5.3. 

3.5.3 COPES/CONMIN Approximate Analysis: Taylor Series Expansions 

In the exact analysis version of COPES/CONMIN for the method of feasible 
directions, the actual vibration, flutter and stress computer programs are 
implemented for every function call to calculate the objective function and 
constraints. In the approximate analysis version of COPES/CONMIN, the 
objective function and constraints are all represented numerically by second 
order Taylor series expansions about some nominal design point. After the 
objective function and constraints have been evaluated for several distinct 
design points, linear and quadratic polynomial surfaces can be curve-fit 
through these points. Then, instead of implementing the actual vibration, 
flutter, and stress programs, the objective function and constraints can be 
closely approximated by evaluating the Taylor series expansions. As higher 
order terms in the series are determined, the approximate analyses become 
increasingly accurate. 

In general, the Taylor series expansion through quadratic terms for an 
arbitrary function, f, ( representing either the objective function or 
constraints) is given by: 


f(x) = f { xq ) + vf(xp) ' (x-xq) + _L_ (x.-xq) ’ HUo) * (x-xq) > (49) 

2 


where x = (x-| , X 2 > ..., Xji) T is a vector of 

is the nominal design (center of expansion), and 
i.e., jj*v = u^v, where T denotes transpose. The 
and Hessian matrTx, Mxg), are given by: 


n design variables, 

• denotes dot product, 
gradient vector, 7f(xg)> 


46 




af/ax 1 


a 2 f/ax 2 a 2 f/ax ] 3x 2 


3f/3x 2 


3 2 f/ax 2 ax 1 3 d f/3x 2 

II 

4 - 

1^ 

• 

• 

, H = 

• • 

• • 


L 8f/9 V 


3 2 f/ax fl 3x 1 a 2 f/ax n ax ? 


3 2 f/3X 1 3X n 

3 2 f/3x 2 3x n 

(50) 


3 2 f/3x 2 3x 2 


The coefficients in the Taylor series expansion ( i . e . , f ( xo ) , and all the 
terms in the gradient vector and Hessian matrix) in (49) are unknown. Since 
the Hessian matrix is symmetric, the total number, Nq, of unknowns in (49) 
is given by: 


Nq = 1 + n + n(n+l )/2. (51 ) 

After Nq linearly independent function evaluations have been made, all 
unknown coefficients in (49) are determined, and the quadratic Taylor series 
approximations are available. Thus, the method of feasible directions can then 
be applied to the quadratic approximations themselves instead of calling the 
actual vibration and stress programs. By evaluating the weight, natural 
frequencies, aerodynamic damping parameters, etc. using the Taylor series 
approximations, COPES/CONMIN can reduce the number of expensive calls to the 
vibration programs and thereby reduce the total computer time of the 
optimization program. In addition, since the objective function and 

constraints are expressed in terms of quadratic polynomials, the gradient 
calculations required by the method of feasible directions can be performed 
analytically rather than by finite differences. 

The approximate optimization technique is performed sequentially. The first 
design, xq, (the nominal design) is used to determine the constant term, 
f(xQ), in the Taylor series approximation. Another nearby design is selected 
so that one term in the gradient vector in (49) can be determined. As more 
designs are evaluated, more terms in the Taylor series can be evaluated. After 
each new approximation is made, the method of feasible directions is applied 
to the current approximation to obtain a new local optimum. This new 
approximate optimum design is then evaluated using the actual vibration and 
stress programs. This new design point is then appended to the sequence of 
previous designs so that the next term in the quadratic Taylor series can be 
determined. After n + 1 linearly independent designs have been determined, 
then all the first order (gradient) terms in the Taylor series (49) are known. 
The next n(n+l)/2 design evaluations are used to determine the Hessian matrix. 
A sequence of local optimum designs determined by applying the method of 
feasible directions to a sequence of local Taylor series approximations is 
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illustrated schematically in Figure 3.5-6. In Figure 3.5-6(A), only linear 
approximations to the objective function and constraints can be made. In 
Figure 3 . 5-6 ( B ) , more than n+1 design points are known so that some curvature 
in the objective function and constraint surfaces can be modeled. Eventually, 
in Figure 3. 5-6(0, more than Nq design points have been evaluated so that a 
full quadratic approximation can be made. 



(C) QUADRATIC TERMS 


Figure 3.5-6 Sequence of Approximate Analyses Using the Method of Feasible 
Directions Becomes Increasingly More Accurate as More Terms in 
the Taylor Series Are Determined. 
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Since some of the initial approximations to the problem can have unbounded 
solutions, upper and lower bounds are placed on the design variables to limit 
the excursion between successive iterates. Once all Ng terms in (49) have 
been determined, successive iterates should be close together and converge to 
a local optimum design. Convergence is obtained when the local optima of two 
successive approximate problems agree within a certain tolerance. If more than 
Nq linearly independent designs are determined, then a weighted least 
squares fit of the redundant data is used to determine the Taylor series 
coefficients in (49). A default value for the upper limit in the number of 
function calls is approximately 3Ng in COPES/CONMIN. 


Assuming that m = 10 iterations are required for convergence for the exact 
analysis, the number of function calls is given approximately by (48) as N = 
lOn + 30. For the quadratic Taylor series approximation, there are Ng = 1 + 
n + n(n+l)/2 unknowns. Equating N and Ng, we find that the break even point 
is approximately n = 20 design variables. Further, since the number of 
function calls for the quadratic Taylor series approximation and exact 
analysis are 
series method 


proportional to n^ and n, respectively, the quadratic Taylor 
rapidly becomes noncompetitive for n>2. 


In some cases, certain reduced approximations can be made which can lead to 
further reductions in the number of function calls required for convergence. 
Two options are available in COPES/CONMIN in which not all Ng unknowns in 
(49) need to be determined. First, if the off-diagonal terms in the Hessian 
matrix are neglected, then there are only n diagonal terms to be determined. 
In this model, the total number of unknowns in equation (49) is reduced to: 

Nq = 1 + n + n, (52) 

so that Nq is now a linear function of n. Before using the diagonal Hessian 
matrix option, it is sometimes instructive to analyze the problem using the 
full Hessian matrix option to determine how large the off-diagonal terms are 
compared to the diagonal terms. If there are several large off-diagonal terms 
in critical functions (i.e., objective function or active constraints), then 
the full quadratic approximation may converge more rapidly than the diagonal 
Hessian option. 

A second reduced approximation is available in COPES/CONMIN by neglecting all 
the quadratic terms in the Taylor series. The approximating model is now 
strictly linear and the total number of unknowns in (49) is given by: 

N l = 1 + n. (53) 

Since a sequence of constrained linear optimization problems is solved until 
convergence is obtained, this approach is known as "sequential linear 
programming". Each linear subproblem can be solved using either the method of 
feasible directions or the Simplex method. 

In summary, the linear and diagonal Hessian Taylor series approximations 
require the fewest function evaluations and should be used whenever possible. 
The success of the approximate techniques depends upon how accurately the 
Taylor series approximate the objective function and active constraints in a 
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neighborhood of a local optimum. If the actual functions are relatively smooth 
(e.g., differentiable with no rapid fluctuations) then the Taylor series fits 
should be very accurate. On the other hand, if the objective function or 
constraints are nonsmooth (e.g., discontinuous or rapidly varying), then the 
approximate techniques may not provide accurate representations of these 
surfaces near a local optimum. (It should he pointed out that the finite 
difference gradient calculations for the exact analysis may also experience 
difficulty in these cases.) Plots of level curves in two-variable function 
space (i.e. , plotting objective function and constraint values as functions of 
only two design variables while holding the other design variables constant) 
demonstrate that airfoil weight, resonance margin, and aerodynamic damping 
exhibit nearly linear variation (at least locally) with blade thickness 
throughout a large portion of design space. Thus, in many STAEBL applications, 
quadratic, diagonal Hessian, and sequential linear Taylor series 
approximations have provided rapid and accurate results. 

Convergence difficulties for the approximate optimization methods can occur 
due to linear dependence among the designs. The unknown coefficients in the 
Taylor series approximation are determined by solving systems of simultaneous 
equations. For example, if (49) were evaluated at Nq designs, then there 
would be Nq simultaneous linear equations to be solved for the Nq unknown 
coefficients for the objective function and each of the constraints. If two of 
the Nq designs were identical or numerically very "close" however, then the 
coefficient matrices for the linear systems of equations would be singular or 
numerically singular, respectively (i.e., the designs would be linearly 
dependent or numerically dependent, respectively). This situation can arise, 
for example if an initial design either coincides with, or was very close to, 
a local optima. In this case, it is very possible that this local optimum 
design point would be generated several times during the first Nq 
iterations. Whenever a previously generated design is appended to the sequence 
of designs, the resulting system of equations would be linearly dependent and 
could not be solved. By taking several new starting points, COPES/CONMIN 
attempts to determine a new linearly independent design. There is also an 
option for the user to supply a priori his own set of linearly independent 
design vectors. In this case, COPES/CONMIN evaluates the objective function 
and constraints at these user-supplied points and then determines the surface 
fits through these points. 

The approximate analysis option in COPES/CONMIN is especially useful if only a 
limited amount of data for the objective function and constraints are 
available. For example, some finite element programs (such as NASTRAN or MARC) 
for structural analyses are so time consuming that only a few function calls 
can be afforded for an optimization program. In other cases, data may be 
obtainable only through experiments so that only a limited number may be 
available. In the approximate analysis option, the available data can be 
entered a priori and the method of feasible directions can be applied to the 
Taylor series approximations. 

3.5.4 COPES/CONMIN Interfaces to Vibration, Flutter, and Stress Programs 

The COPES/CONMIN program is limited via subroutine ANALIZ to the approximate 
vibration, flutter, stress, and foreign object damage programs used for the 
structural analysis of blades at Pratt & Whitney Ai rc raft/Commercial Products 
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Division via subroutine analyse as shown in Figure 3.5-7. Once an optimal 
feasible design has been obtained by COPES/CONMIN, this blade design must be 
evaluated by the refined analysis (finite element program) for further 
tailoring and possible re-optimization. 



Figure 3.5-7 COPES/CONMIN Is Linked Via Subroutine ANALYSE to Approach 
analyses 

Subroutine ANALIZ is called by COPES/CONMIN in order to evaluate the objective 
function and constraints. There are 3 options, designated by different values 
of the parameter ICALC, utilized by COPES/CONMIN when calling subroutine 
ANALIZ: 

ICALC = 1: Read data, set the parameters that are used throughout the 

analysis, an analyze the initial design. 

ICALC = 2: Analyze the current design. 

ICALC = 3: Write output data and parameters and results of analysis on 

final design. 
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In order to accomplish these tasks, subroutine ANALIZ calls the vibration, 
flutter, stress, and FOD programs whenever necessary. The transfer of 
information between COPES/CONMIN and these approximate analyses is 

accomplished by accessing the data in common block GLOBCM. In Table 3.5-II, 
the global locations in GLOBCM and the FORTRAN names are given for the design 
variables, objective function, and constraint information used in the STAEBL 
procedure included in Appendix B. 


TABLE 3. 5- I I 

FORTRAN NAMES AND GLOBAL LOCATIONS IN BLOB CM FOR DESIGN VARIABLES, 
OBJECTIVE FUNCTION, AND CONSTRAINTS FOR STAEBL BLADE APPLICATIONS 


Global 

FORTRAN 


Location 

Name 

Definition 

1 

OBJF 

Airfoil weight 

2-6 

FN 

Frequencies (Root 1 - Root 5) 


7-11 

DLAR 

Aerodynamic damping parameter (Root 1 - Root 5) 

12-32 

THKVAL 

Airfoil thicknesses (max. of 21 stations) 

33-37 

RF 

Resonance margin for 1st order (Root 1 - Root 5) 

38-42 

RF 

Resonance margin for 2nd order (Root 1 - Root 5) 

43-47 

RF 

Resonance margin for 3rd order (Root 1 - Root 5) 

48-52 

RF 

Resonance margin for 4th order (Root 1 - Root 5) 

53 

BRCC 

Root Chord 

54-74 

FODLSB 

LSBIP = Local stress bird ingestion parameter 

75 

DLE 

Distance to hole from leading edge 

76 

DTE 

Distance to hole from trailing edge 

77 

DROOT 

Distance to hole from root edge 

78 

DTIP 

Distance to hole from tip edge 

79 

TTI 

Thickness of titanium 

80 

TLT 

Thickness of borsic titanium 

81 

OBJFUN 

Objective function 

82-89 

SMAX1S 

Root Tsai-Wu (layer 1-8) 

90-89 

SMAX2S 

Hole Tsai-Wu (layer 1-8) 

98-105 

SMAX3S 

Spanwise bending ingestion Tsai-Wu (layer 1-8) 

106-113 

SMAXLS 

Leading edge Tsai-Wu (layer 1-8) 

114-121 

SMAXTS 

Trailing edge Tsai-Wu (layer 1-8) 

122-128 

Theta 

Fiber direction (7 layers) 

129 

HLRTIO 

Hole to length ratio 

130 

ECRTIO 

Edge to chord ratioi 

1 31 -1 51 

TOVB 

t/b 1 s 

152 

FODMAX 

Max LSBIP 

153 

TIS 

Titanium skin thickness 

154 

TIC 

Titanium center thickness 

155 

PCBA 

% boron aluminum 

156 

VAL 

2/TIS + TIC) /THKVAL ( 1 ) 
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3.5.5 Test Cases for STAEBL Optimization Procedure 

Several test cases were used to demonstrate certain features of the STAEBL 
optimization procedure. Since the first three examples involved two design 
variables, the two-variable function space option of COPES/CONMIN was used. 
With this feature, the objective function and constraints were evaluated over 
a rectangular grid of points so that the constraint curves and level curves 
for the objective function could be presented. 

Ca se 1 : Local optimum design for disjoint feasible region 

Determine (t r , t-t) that minimize blade weight: 

Subject to: 

0.25 < t r <0.5 1 30< oj 1 <173 

0.1 < t t < 0.3, 272< ca2 < 320 

390< co 3 < 504. 

For this problem, (t r , tt) are the maximum blade thicknesses (in inches) 
at the root and tip, respectively, and w-j, i =1, 2, 3, are the first three 
blade frequencies (in Hertz). The level curves for the blade weight were 
equally spaced lines. Due to the strongly nonlinear behavior of ^ 3 , the 
feasible region was composed of two distinct components. As shown in Figure 
3.5-8, the initial design was infeasible, and the STAEBL optimization 
procedure converged to a local optimum design after five iterations. 



MINIMIZE WEIGHT: 

130 < Wj < 173 
272 < u 2 < 320 
390 < < 504 


Figure 3.5-8 STAEBL Optimization Procedure May Not Converge to Global Optimum 
if Feasible Region is Disjoint 
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Case 2 : Global optimum design for disjoint feasible region with three flutter 

constraints 

This example had the same objective function and constraints as Case 1 except 
that the following constraints on the first three aerodynamic damping 
parameters were imposed: 6^ 0.015, i =1, 2, 3. As shown in Figure 3.5-9, 
these flutter constraints forced the search into a relatively small feasible 
region containing the global optimum, so that convergence was achieved rather 
quickly. 



Figure 3.5-9 STAEBL Optimization Procedure with Three Flutter Constraints 
Converges to Global Optimum 
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Case_3: Exact and approximate optimization procedures converge to the same 

1 ocal optimum 


Again, this example had the same objective function and constraints as Case 1. 
in this case, a comparison was made between the exact method of feasible 

the c ^ tia . dr . at ' ic . Jaylor series approximate optimization method. 
Starting from the same infeasible initial design shown in Figure 3.5-10, both 
methods converged to the same local optimum design. The exact method required 
19 function calls. The quadratic Taylor series had Nn = 6 unknowns and 

achieved convergence using only six function call s. 



FUNC, 

CPU 


CALLS 

(sec.) 

EXACT 

19 

139 

APPROX. 

6 
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Figure 3.5-10 Exact and Approximate Analyses for STAEBL Procedure Converqe to 
Same Local Optimum 
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Case 4: Hollow fan blade with titanium skin 


Determine (t r , t^, d r , tyj ) that minimizes blade weight + manufacturing 
cost + maintenance cost: 

Subject to: 

t r >0 5,->0 

t t >0 0.025<t r /b<0.1 

d r >2.0 0.025 <t t /b <0.1 

t Tl ->0.03 LSBIP < max. 

BBIP <max. 

For this problem, d r is the distance between blade root and the bottom of 
the hole, tjj is the thickness of the titanium skin, b is the blade chord, 

LSBIP = Local _Stress JBi rd Digestion Parameter, and BBIP = Bending I3ird 
Digestion Parameter. After beginning with a feasible initial design, up to 
five constraints were active for some iterates. As shown in Table 3.5-III, 
convergence was achieved after seven iterations and three constraints were 
active at the final design. 


Root stress < max. 

Hole stress < max. (55) 

Leading edge stress < max. 
Trailing edge stress < max. 


TABLE 3.5-III 

HOLLOW FAN BLADE HAS 3 ACTIVE 
CONSTRAINTS FOR FINAL DESIGN 


Iteration 

V 

*t 

d r 

t Ti 

Objecti ve 
Function 

Acti ve 

Constrai nts* 

0 

0.8750 

0.3340 

9.65 

0. 1 200 

1 .464 

32,33 

1 

0.8744 

0.3388 

9.07 

0.0974 

1.379 

1 ,32,33 

2 

0.8742 

0.3396 

9.02 

0.0920 

1.360 

1,7,8,32,33 

3 

0.8741 

0.3397 

8.01 

0.0922 

1.328 

1 ,7,8,32,33 

4 

0.8988 

0.3318 

7.04 

0.0930 

1.304 

1,7,8,32,33 

5 

0.8974 

0.3362 

5.06 

0. 0931 

1.229 

1 ,7,8,32,33 

6 

0.9000 

0.3358 

5.04 

0.0920 

1.224 

oo 

7 

0.9078 

0.3318 

4.88 

0.0922 

1.221 

1,8,33 


*Active Constraints Notes 


1: 6] (i niti ally violated) 

7: LSBIP (next to last relevant station) 

8: LSBIP (last relevant station) 

32: t r /b = 0.1 
33: t t /b = 0.025 
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3.6 REFINED ANALYSIS 


NASTRAN was selected for use as the refined analysis method for the STAEBL 
procedure. It is used regularly to determine steady stresses in solid titanium 
fan blades for flight cycle life evaluation. A plate element blade model is 
analyzed in this application. NASTRAN is also used to calculate the vibratory 
characteristics of composite material fan blades. Equivalent anisotropic 
material properties are calculated for each finite element using thin 
laminated plate theory. 

Engineering effort in setting up and analyzing solid titanium and composite 
material blades is minimized through the use of pre-and post-processors. 
Available processing capabilities include: 

o an airfoil pre-processor which generates a NASTRAN plate model of a 
blade from the airfoil coordinate descriptions, 

o a laminate pre-processor which calculates the laminate effective 

stiffness matrices for each finite element and outputs them in a form 
acceptable to NASTRAN as input data, 

o a NASTRAN module to calculate laminate strains from element stresses, 

o a post-processor to calculate ply stresses from NASTRAN element 

stresses. 

The flight cycle life and vibratory characteristics of the hollow titanium 
Energy Efficient Engine fan blade were also evaluated using NASTRAN analysis. 
But separate models of the concave and convex airfoil walls were employed to 
verify that a sufficient number of ribs were provided. This made the analysis 
cumbersome and impractical for use in the STAEBL procedure. 

It was proposed that hollow blades could be analyzed using a laminated plate 
model with the central lamina having zero stiffness and density. The Energy 
Efficient Engine was re-analyzed to substantiate this approach. The airfoil 
breakup was chosen so that internal ribs are coincident with loci of nodal 
points. The rib properties are represented by beam elements connecting these 
nodes. Vibration analysis of the lamination model agrees very well with the 
more cumbersome original analysis as shown in Figure 3.6-1. The breakup in the 
region of the airfoil root and solid-to-hollow transition was refined and the 
centrifugal stresses presented in Figures 3.6-2 and 3.6-3 were obtained. These 
stresses are consistent with those predicted by the original design analysis. 

The procedure for predicting supersonic flutter of fan stages can evaluate the 
stability of structural modes which are defined by finite plate element 
analysis. This ability combines the chordwise bending degree of freedom with 
the flap and twist degrees of freedom included in approximate beam blade 
analysis. The use of the lamination model for blade modal analysis makes it 
practical to use the expanded flutter prediction procedure for refined 
analysis. Results of flutter analyses of the Energy Efficient Engine blade are 
compared in Figure 3.6-4. The original design flutter analysis reduced the 
plate element blade mode shapes to equivalent beam blade modes and concluded 
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FREQUENCY (H 


that the blade would not flutter. The refined analysis supports this 
conclusion and provides a more accurate technique to evaluate thinner airfoils 
which are likely to result from structural tailoring. 


NASTRAN PLATE ANALYSIS 
— — - — ORIGINAL MODEL 
— LAMINATION MODEL 



ROTOR SPEED (REVOLUTIONS PER MINUTE) 


Figure 3.6-1 Refined Analysis of the Energy Efficient Engine Hollow Fan Blade 
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Figure 3.6-2 Energy Efficient Engine Hollow Fan Blade Airfoil Root Stress 
Predicted by Refined Analysis 
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Figure 3.6-3 Energy Efficient Engine Hollow Fan Blade Internal Surface 
Stress at Solid-to-Hollow Transition Predicted by Refined 
Analysi s 
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Figure 3.6-4 


Refined Analysis of the Energy Efficient Engine Hollow Fan 
Blade Supports the Conclusion that It Would Not Flutter 
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4.0 RESULTS 


4.1 INTRODUCTION 

Structural Tailoring of Engine Blades (STAEBL) was demonstrated by tailoring 
two shroudless fan blades: 1) a hollow titanium blade with metal matrix 
composite inlays, and 2) a solid blade made from superhybrid composites. These 
blades were alternate constructions of the Energy Efficient Engine shroudless 
fan blade designed by Pratt & Whitney Aircraft as part of NASA Contract 
NAS3-20646. As a consequence of demonstration blade selection, several 
features of the Energy Efficient Engine were taken into account in the STAEBL 
demonstration. Those features and other design considerations will be 
presented in Section 4.2 while a description of the actual tailored blades 
will be presented in Section 4.3. 

4.2 DEMONSTRATION CONSIDERATIONS 

4.2.1 Aerodynamic Design 

Engine configuration-dependent parameters of the Energy Efficient Engine fan 
component design were held constant while others were allowed to vary. Those 
parameters that were held constant include: the airflow through the fan 
component of the Energy Efficient Engine, which is 622.7 kg/sec (1372.8 
lbm/sec); the tip speed of 456 m/sec (1496 ft/sec); and the average pressure 
ratio of 1.7. The hub/tip radius ratio of 0.34, the tip/root chordal taper of 
1.46, and associated airfoil stagger and camber angles were also held constant 
duri ng structural tailoring. 

The basic blade chord was allowed to vary and the number of blades was changed 
inversely with chord to maintain constant aerodynamic gap/chord ratio at any 
radial location. The spanwise distribution of airfoil section maximum 
thickness was allowed to vary but the ratio of thicknesses at any two fraction 
of chord positions was held approximately constant. Maximum thickness was 
never allowed to exceed ten percent of local chord. 

4.2.2 Objective Function 

The procedure used to establish an objective function for the STAEBL 
demonstration was modeled after the economic assessment procedure used to 
guide the design of the Energy Efficient Engine. The Energy Efficient Engine 
design process was guided by an economic performance assessment of a study 
airplane defined in the Component Development and Integration Program phase of 
the contract. Hie overall airplane characteristics are shown in Table 4.2-1. 
The aircraft is designed for the full specified payload and range, but the 
economic analysis is conducted for the typical mission payload and range. 

The economic analysis evaluates the effect of changes in engine weight, 
maintenance cost and first cost against the changes in the aircraft takeoff 
gross weight and fuel burned to assess the economic effect on the airline. The 
basis for this analysis is a well developed trade factor technique derived 
from consideration of airplane aerodynamics, flight mechanisms, propulsion 
system integration, and weight estimation. The changes in airplane takeoff 
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gross weight reflect a "rubber" airplane analysis, i.e. improvements to the 
engine configuration will result in further improvements to the airplane 
configuration. For example, a concept which reduces engine weight will result 
in a fuel savings which, in turn, further reduces aircraft weight and aircraft 
structural component weight, permitting reductions in wing size and engine 
thrust requirements. Consequently, the initial engine weight benefit 
"snowballs" in its impact on the aircraft benefit. 


TABLE 4.2-1 

ENERGY EFFICIENT ENGINE STUDY AIRPLANE CHARACTERISTICS 


Domestic 

Trijet 


Number of Engines 

Range - kilometers (nautical miles) 
Design mission 
Typical mission 

Passengers 

Design mission 
Typical mission 


3 

5550 (3000) 

1295 (700) 


400 

55% load factor 


Design takeoff gross weight - kilograms (pounds) 231,000 (510,000) 


Cruise Mach number 

Initial Cruise Altitude - meters (feet) 
Takeoff field length - meters (feet) 


0.80 

10,700 (35,000) 
2440 (8,000) 


The life cycle ownership costs determined in this analysis are expressed as 
direct operating costs plus interest (DOC +1). A trade factor technique 
derived from considerations of total airline economics provides the basis for 
this analysis, and includes crew cost, fuel cost, airframe and engine 
depreciation, airframe and engine maintenance cost, insurance cost, and 
overhead cost. These trade factors are applied to the specific engine and 
airplane for which each engine change has been determined. Trade factors for 
changes in engine weight, maintenance cost, and first cost are applied 
independently to determine the effect of each engine change on a given 
economic parameter. Individual effects are then combined to evaluate the total 
effect of the advanced concept on that parameter. DOC + I is an extension of 
DOC in that it includes the "cost of money". In other words, it includes an 
expected return to the airline for their investment in the aircraft/engine 
system. DOC + I is an appropriate substitution for ROI (return on investment) 
and includes all of the engine related terms in ROI, and is, therefore, an 
appropriate parameter for evaluating the effect of engine changes on an 
airline's economics. 
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The ground rules for the airline economic model are shown in Table 4. 2-1 1 for 
the Energy Efficient Engine. The 15 percent cost of capital shown is the 
"interest" in the parameter "DOC + Interest" (DOC + I). 

TABLE 4.2-II 


ENERGY EFFICIENT ENGINE AIRLINE ECONOMIC MODEL 


o 1977 Dollars 

o $0. 105/Liter ($0. 40/Gal Ion) Domestic Fuel Cost 

o 0.5% Per Year Insurance 

o Spares - 5% Airframe, 30% Engine 

o Maintenance - Labor Rate = $9. 70/Hr, Burden = 200% 

o Airplane Price - P«WA Equation 

o Depreciation - 15 Year Straight Line to 10% Residual 

o Non-Revenue Flying - 2% Factor on Fuel and Maintenance 

o Ground Time - 15 minutes (Domestic) 

- 20 minutes (International) 

o Cost of Capital = 15% 

The resulting function is: 


A{% DOC + I) = 1.14 X 
+ 0.54 X 
+ 0.80 X 


A engine wt (kg) 

rm — 


A engine cost ($) 

$ 100,000 

A engine maint. cost ($/EFH)\ 
$T0 ) 


) 


) 


This function was redefined in terms of blade design variables to provide the 
objective function for the STAEBL procedure demonstration. 

4. 2. 2.1 Engine Weight 


Individual airfoil weight is an output of the subroutine which was assembled 
to modify existing approximate analyses for application to composite blades 
and it is a function of all design variables. Total airfoil weight is the 
product of individual airfoil weight and number of blades, which is inversely 
dependent upon the blade chord design variable. Disk and containment case 
design requirements relate to individual and/or total airfoil weight. 
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FAN SYSTEM WEIGHT, KILOGRAMS 


A study was conducted to evaluate these relationships using preliminary design 
procedures which are regularly applied in estimating engine weight. Three 
different blade constructions were assumed and blade chord was varied over a 
range of relevant aspect ratios. Individual foil weights and fan system weight 
were calculated. Cross-plotting the results generated the unexpected 
conclusion that, within engineering accuracy, fan system weight is a simple 
function of individual airfoil weight. This function is depicted in Figure 
4. 2-1 . 



0.75 1.49 2.24 2.98 3.73 4.48 5.22 5.97 6.72 7.46 8.21 

FAN FOIL WEIGHT, KILOGRAMS 


Figure 4.2-1 Fan System Weight Is a Simple Function of Individual Airfoil 
Wei ght 
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4. 2. 2. 2 Engine Cost 


Information from reference 3 was used as a basis for estimating costs of 
individual fan blades. The hollow blade is made from laminations of titanium 
and borsic-titanium sheet with hollow cavities produced using Teachable iron 
cores. The stacked laminates are canned, hipped and isothermally forged to 
shape. The superhybrid blade is made from plies of graphite-epoxy, boron- 
aluminum, and titanium with adhesi .• - 1.1 '-H Pur metal ply bonding. Stacked 
plies are vacuum debulked and molded. Materials cost depends on amount of each 
component material which is related to the design variables by the composite 
blade approximate analysis subroutine. Labor cost depends on blade size as 
indicated by the design variables root chord and root thickness. Total blade 
cost is the product of individual blade cost and the number of blades which is 
inversely proportional to the blade chord design variable. The change in 
engine cost for changes in design variables is the change in total blade cost 
plus an experience-based assessment of costs of related structures which 
reduces to cost per unit engine length multiplied by change in blade chord. 

4. 2. 2. 3 Maintenance Cost 


Engine maintenance histories show that the dominant factor in fan maintenance 
cost is the number of blades which must be discarded after an ingestion event 
because they are damaged beyond repair. Service experience provides a 

definition of the frequency of major ingestion events, the percentage of 

blades damaged by an event and the solid titanium blade repair/scrap ratio. A 
hollow blade is expected to have a lower ratio because damage in or near the 
cavity is not repairable. The controlling parameter is expected to be the 

design variable distance from the airfoil leading edge to the forward boundary 
of the cavity. Experience and judgement have been applied to generate the 
definition, shown in Figure 4.2-2, of hollow blade scrap life from known end 
points. Life is increased in proportion with swept flowpath area when the 

cavity inner bound is outboard of the airfoil root. Superhybrid blades are 
assumed to be unrepairable. Total maintenance cost per flight hour is equal to 
blade set fabrication cost divided by scrap life. 

4.2.3 Constraints on Behavior Variables 

Constraints were imposed during tailoring to ensure that the optimized designs 
would not be prone to failure from high frequency fatigue, would endure 

repeated cyclic acceleration to takeoff power, and could injest seagulls 

without experiencing damage which would cause engine shutdown. These 
constraints were consistent with criteria observed during the Energy Efficient 
Engine fan component design. 

4. 2.3.1 High Frequency Fatigue 

High frequency fatigue in resonant vibration was avoided by tuning natural 
frequencies so they did not coincide with the frequencies of strong 

excitations. In the Energy Efficient Engine fan component design, the critical 
excitation frequencies were recognized to be the first through fourth integer 
order multiples of rotor speed when the engine is operating at any power 

between minimum cruise and maximum takeoff. High frequency fatigue in flutter 
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is avoided by deriving a design which has positive predicted aerodynamic 
damping in any natural mode of vibration at airflow conditions corresponding 
to maximum takeoff power. In the Energy Efficient Engine fan component design, 
minimum stability for any feasible interblade phase angle was evaluated for 
vibration in each of the first three modes of individual blade vibration. 



I I I I I 

O 2.54 5.08 7.62 10.16 

LEADING EDGE TO CAVITY DISTANCE. CENTIMETERS 


Figure 4.2-2 Full Span Hollow Fan Blade Life Is Derived from Solid Blade 
Experience Limits 


4.2.3. 2 Flight Cycle Fatigue 


Flight cycle fatigue is evaluated by assuming that operating stresses cycle 
between zero at shutdown and maximum at standard day takeoff power. In the 
Energy Efficient Engine fan component design, the operating stress was assumed 
to be that imposed by centrifugal force on a radially stacked blade because 
bending caused by tilt is equal and opposite to bending caused by air load at 
the critical root section. 
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4. 2. 3. 3 Bird Injestion 


Two types of damage are recognized in designing a fan blade to tolerate bird 
ingestion: 1) loss of an excessive quantity of local leading edge material, or 
2) fracture of the airfoil root. Both of these types of failures of the Energy 
Efficient Engine fan blade were evaluated using an ingestion stress parameter 
based on linear elastic analysis calibrated by application to many ingestion 
experiences. 

4.3 STAEBL PROCEDURE DEMONSTRATION 
4.3.1 Reference Blade 

The Energy Efficient Engine shroudless fan blade design provides a logical 
baseline for evaluating the blade designs defined by the tailoring 
demonstration. It is an all titanium blade which is hollow over the outer 
two-thirds of the airfoil span. The cavity wall thickness is tapered in the 
spanwise and chordwise directions. A dynamically equivalent constant wall 
thickness hollow titanium blade with the same external shape and cavity 
planform location was derived. It provided a reference design consistent with 
the composite material blade designs which could be defined by the parameters 
that were varied in the demonstration. 

The reference blade dynamic characteristics are equivalent to those of the 
Energy Efficient Engine shroudless fan blade design. Therefore, the dynamic 
resonance and flutter constraints observed in designing that blade were 
directly applicable to tailoring demonstration blades. 

The reference blade stress levels are similar to, but not identical with, 
those in the Energy Efficient Engine blade. The demonstration was made most 
meaningful by setting limits equals to reference blade levels multiplied by 
Energy Effcient Engine blade allowable-to-actual ratios. Realistic stress 
concentrations and local material conditions are automatically covered by this 
approach. 

The local bird ingestion stress parameter was limited to the Energy Efficient 
Engine blade design allowable level. The root dynamic stress response to bird 
ingestion was a new uncalibrated analysis. The limit was set to be in 
proportion with the Energy Efficient Engine blade root stress parameter margin 
of safety. This limit is much higher than material static strength. 

The Tsai-Wu parameter for each material is calculated from ratios of 
directional stress to directional strength. Therefore, a search for the 
maximum value found in any material yields a single critical level which is 
compared with a material independent limit level. The local bird ingestion 
stress parameter is evaluated in a consistent fashion by ratioing each layer’s 
contribution in proportion with chordwise directional strength. 

Preliminary studies had shown that resonance constraints, which create 
disjoint feasible regions, could lead to tailoring a locally optimum blade 
design which is not globally optimum. Therefore, the initial optimization of 
each of the two types of blades was conducted without resonance constraints 
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and then, starting with the partially tailored design, was finalized with 
resonance constraints added. Both of the resultant tailored blades had the 
same basic resonance characteristics as the reference hollow titanium blade 
(Figure 4.3-1), increasing confidence that global optimums were achieved. 
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Figure 4.3-1 Reference Blade Resonance Diagram 
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4.3.2 Tailored Blades 


Each tailoring demonstration started with a configuration that was similar to 
the reference blade (2.5 aspect ratio based on root chord and average length). 
Each demonstration consisted of two passes through automated exact 
optimization and subsequent separate refined analyses. During the automated 
optimization, seventy-four percent of the central processing unit time was 
spent in approximate structural analysis and twenty-six percent of the time 
was spent in unsteady aerodynamic (flutter) analysis. The time spent on 
optimization calculations was negligible. The four optimization efforts 
successfully identified feasible designs as evaluated by approximate analyses. 
The first refined analyses generated correction factors which were applied to 
the approximate analyses for reoptimization. The particular demonstrations are 
described in the following paragraphs. 

4. 3. 2.1 Hollow Blade with Composite Inlay 

In Table 4.3-1, data describing the tailoring of a hollow titanium blade with 
a borsic titanium inlay in the area of the cavity are compared with the 
reference blade. Thirteen geometric quantities were varied in this 
demonstration. Chord at every station was changed in proportion with root 
chord. The properties which were assumed for borsic-titanium are compared with 
titanium in Table 4. 3-1 1. 


TABLE 4.3-1 

HOLLOW BLADE WITH COMPOSITE INLAY 



Reference 



First 

Second 


Blade 

Limits 

Tailori ng 

Tailori i 

Design Variables 






Root Chord - cm (inches) 

23.2 

— 


16.9 

19.0 


(9.12) 



(6.64) 

(7.46) 

Thick ness/ Chord 






Root 

0.096 



0.077 

0.084 

25 % 

0.075 

0.02 

5< 

0.089 

0.092 

50 % 

0.055 

t/b < 0. 1 00 

0.084 

0.045 

75 % 

0.033 



0.038 

0.025 

Tip 

0.025 



0.033 

0.028 

Cavity Boundaries - cm (inches) 





From Leading Edge 

2.20 

>1. 

27 

3.12 

1.37 


(1.00) 

(0.5) 

(1.23) 

(0.54) 

From Trailing Edge 

2.20 

>1. 

27 

2.48 

3.48 


(1.00) 

(0.5) 

(0.98) 

(1.37) 

From Root 

25.2 

>5. 

46 

12.97 

7.52 


(9.90) 

(2.15) 

(5.10) 

(2.96) 

From Ti p 

0.635 

>0.635 

0.635 

0.635 


(0.25) 

(0.25) 

(0.25) 

(0.25) 
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TABLE 4.3-1 (Continued) 


Reference First 



Blade 

Limits 

Tailori ng 

Cavity Wal 1 - cm (inches) 

Titanium Skin 

0.305 

> 0.076 

0.076 

Composite 

(0.120) 

(0.030) 

(0.030) 

- 

- 

0.086 


— 

- 

(0.034) 

Borsic Fiber Angle - rad 

- 

- 

-0.012 


Blade Weight - kilograms (pounds) 



8.7 

- 

3.32 


(19.2) 

- 

(7.3) 

Objective Function - A(%D0C+I) 

Engine Weight 
Engine Cost 
Maintenance Cost 
Total 



-0.42 

-0.14 

-0.09 

-0.65 

Constraints 

Resonance Margin - Afn/fn 

First Mode 2E 

0.08 

>0.05 

0.34 

Second Mode 3E 

0.05 

>0.05 

-0.02 

Second Mode 4E 

0.08 

0.05 

0.16 

Thi rd Mode 4E 

0.05 

>0.05 

0.01 

Flutter - Log Decrement 

First Mode 

0.006 

> 0 

0.004 

Second Mode 

0.001 

> 0 

0.011 

Third Mode 

0.007 

> 0 

0.001 

Bird Ingestion 

Local Stress Parameter 

52.0 

£80.0 

66. 0 

Root Tsai-Wu 

0.9 

<10.0 

n.g. 

Steady Stress - Tsai-Wu 

Root Edge 

0.20 

< 0.22 

0.32 

Root Local 

0.25 

< 0.29 

0.32 

Cavity Local 

0.26 

< 0.31 

0.32 


Second 

Tailoring 

0.076 

(0.030) 

0.160 

(0.063) 

-0.013 


4.23 

(9.3) 


-0.33 

-0.15 

+0.03 

"TU75F 


0.28 

-0.03 

0.19 

0.06 


0.005 

0.001 

0.002 


48.0 

2.5 


0.08 

0.21 

0.08 
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TABLE 4.3-1 1 


MATERIALS PROPERTIES 
(Divided by Titanium Value) 

Adhesively Laminated 

Borsic-Titanium Boron-Aluminum Graphite Epoxy 


Elastic Modulus 


Fiber Direction 

2.06 

1.73 

1.15 

Normal Direction 

1.80 

1.11 

0.10 

Shear 

3.70 

1.41 

0.14 

Density 

0.81 

0.55 

0.35 

Strength 
Fiber Tension 
Di recti on 

1.54 

1.14 

1.45 

Fiber Compression 
Di recti on 

1.54 

1.64 

1 .45 

Normal Tension 
Di recti on 

0.45 

0.12 

0.07 

Normal Compression 
Di recti on 

0.45 

0.26 

0.23 

Shear 

0.47 

0.20 

0.16 


Thickness/chord distribution was defined by straight lines connecting 
independent levels at five stations. A lower limit was imposed to prevent 
chordwise bending flutter and an upper limit to avoid aerodynamic performance 
penalties. The cavity quadrilateral planform boundaries were parallel to 
adjacent airfoil planform extremities and the cavity walls were laminates of 
titanium and borsic-titanium. The titanium was of uniform thickness and was 
located at the airfoil surface. The borsic-titanium was also of uniform 
thickness and it was located between the titanium surface and the internal 
cavity. Design variables were the distances from the cavity boundaries to the 
airfoil extremities and the thickness of the individual materials which 
comprised the cavity wall. Limits were imposed based on anticipated 
maintenance penalties in excess of those recognized by the objective function 
(the root limit ensured that the supporting attachment would be solid 
titanium). Borsic fiber angle was the final variable. 

The first tailoring converged in thirteen iterations. The root Tsai-Wu due to 
bird ingestion was observed to have varied in an illogical manner which was 
traced to an error in the attachment section scaling with root chord and 
thickness. No other parameters were seriously effected. Refined analysis 
results, which were presented in Table 4.3-1, showed that approximate analysis 
error had permitted violation of resonance limits, that the second mode 
frequency be at least five percent higher than three times rotor speed and 
that the third mode frequency be at least five percent higher than four times 
rotor speed, both at maximum speed. Root steady stress limits were also 
violated at the edge and away from the edge. 
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The attachment scaling logic was corrected and correction factors from the 
refined analysis of the first tailored blade were applied to the approximate 
analyses predicted frequencies and steady stresses. A second tailoring, 
starting with the configuration defined by the first tailoring, converged in 
ten iterations. Refined analysis showed that the use of correction factors had 
eliminated all but one limit violation. Comparison of approximate and refined 
analysis predicted frequencies, Table 4.3-III, showed that the approximate 
analysis error in the second mode frequency prediction was erratic. Tailoring 
was terminated since there was no reason to expect that continued iteration 
would lead to convergence of corrected approximate and refined frequency 
analyses or to a more realistic design. Central processing unit time averaged 
5.9 minutes per iteration. 


TABLE 4.3-III 

HOLLOW COMPOSITE BLADE WITH COMPOSITE INLAY NATURAL FREQUENCY 

(Hertz) 

First Tailoring Second Tailoring 


Mode 

Approximate 
Analysi s 

Ref i ned 
Analysis 

Approximate 

Analysis* 

Refined 

Analysis 

1 

100 

88 

106 

94 

2 

187 

208 

205 

208 

3 

300 

287 

312 

295 


*Without correction 


The weight of the individual tailored blade is less than half the reference 
blade weight and the optimized objective function indicates that total weight 
and cost are both reduced even though more blades are required to hold 

aerodynamic gap/chord. Maintenance cost penalty is minimal. These benefits 
were achieved by the use of composite material, chord reduction and extension 
of the cavity toward the airfoil root. The limiting constraints appear to be 
resonance and flutter fine tuned by the location of the transition from the 
thick root to the thin tip and by the chordwise location of the cavity. 

4. 3. 2. 2 Superhybrid Composite Blade 

Table 4. 3- IV presents data describing the tailoring of a solid blade made of 
superhybrid composite material. Eleven quantities were varied in this 

demonstration. Chord and thickness were defined as they were in the hollow 
blade optimization. The blade was sheathed with a uniform thickness titanium 
skin. The internal construction consisted of a uniform thickness central 

titanium ply with the balance being composite material, boron-aluminum 

external to graphite epoxy. The titanium thicknesses and the constant fraction 
of composite which was boron-aluminum were design variables. A limit was 
imposed on the titanium skin thickness to avoid a maintenance penalty in 
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excess of that recognized by the objective function. Boron and graphite fiber 
angles were also varied. The properties which were assumed for the composite 
materials were compared with titanium in Table 4.3-1 1 . 

TABLE 4 . 3- IV 

SUPERHYBRID COMPOSITE BLADE 


Fi rst Second 

Limits Tailori ng Tailori ng 

Design Variables 


Root Chord - cm (inches) 

- 

19.12 

22.2 


- 

(7.53) 

(8.32) 

Thickness/Chord * 

Root 

1 

0.100 

0.097 

25% 

0.025 — 

0.099 

0.100 

50% 

t/b <0.100 

0.049 

0.053 

75% 

1 

0.026 

0.025 

Tip 

1 

0.026 

0.025 

Titanium Thickness - cm (inches) 

Skin 

> 0.076 

0.147 

0.142 

Central 

(0.030) 

(0.058) 

(0.056) 

- 

0 

0.066 


- 

0 

(0.026) 

B/Al /Composite 

- 

0.828 

0.835 

Boron Fiber Angle - radians 

- 

0.002 

0.002 

Graphite Fiber Angle - radians 

- 

0.093 

0.093 

Blade Weight - kilograms (pounds) 


- 

4.13 

5.49 


- 

(9.1 ) 

(12.1) 

Objective Function - A(%D0C+I) 

Engine Weight 


-0.34 

-0.23 

Engine Cost 


-0.23 

-0.18 

Maintenance Cost 
Total 


-0.57 

+0.05 

-0.36 

Constraints - Afn/fn 
Resonance Margin 

First Mode 2E 

0.05 

0.19 

0.15 

Second Mode 3E 

0.05 

0.05 

0.12 

Second Mode 4E 

0.05 

0.15 

0.09 

Third Mode 4E 

0.05 

0.03 

0.12 
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TABLE 4 . 3-1 V (Continued) 


First Second 

Limits Tailori ng Tailori ng 


Flutter - Log Decrement 


First Mode 

> 0 

-0.006 

0 

Second Mode 

> 0 

0.004 

0.001 

Third Mode 

> 0 

0.003 

0.009 

Bird Ingestion 

Local Stress Parameter 

< 80.0 

77.0 

80.0 

Root Tsai-Wu 

< 10.0 

2.6 

1.7 

Steady Stress - Tasi-Wu 

Root Edge 

< 0.22 

0.16 

0.12 

Root Local 

< 0.29 

0.22 

0.24 


The rectangular section attachment used to simulate hollow blade support 
structure flexibility did not have a logical material composition when applied 
to the superhybrid blade so the airfoil root was extended inward an equivalent 
distance. Tin's simulated the transition to a curved attachment which has been 
used in hybrid construction to avoid composite ply inner ends in highly 
stressed regions. 

A review of tailoring progress after five iterations exposed undue influence 
of the leading edge stress limit applied to the forward extremity of the 
composite core material. Since this limit is based on the particular 
characteristics of titanium material, it was subsequently applied only to the 
titanium skin. The local limit was applied to the composite material at any 
1 ocation. 

The first tailoring converged after ten additional iterations. The refined 
analysis results, which were presented in Table 4.3-IV, showed that 
approximate analysis error had permitted violation of the third mode resonance 
limit and the first mode flutter stability. A second tailoring with correction 
factors converged in thirteen iterations. The differences between the 
approximate and refined analysis predicted frequencies, Table 4.3-V, were less 
than they were in the hollow blade demonstration and the refined analysis 
showed all limits to be satisfied. Central processing unit time averaged 5.1 
minutes per iteration. 

The tailored superhybrid composite blade weight and optimized objective 
function are not as beneficial as those provided by the tailored hollow blade 
with composite inlays, but they represent considerable improvement over the 
reference blade. Chord reduction and the boron aluminum portion of the 
composite material core appear to have provided the benefits achieved. Flutter 
stability appears to be the dominant constraint. Local bird ingestion capacity 
established the thickness of the titanium skin. 
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TABLE 4.3-V 


SUPERHYBRID COMPOSITE BLADE NATURAL FREQUENCIES 

(Hertz) 


First Tailoring Second Tailoring 


Mode 

Approximate 

Analysis 

Refined 

Analysis 

Approximate 
Analysi s* 

Refined 

Analysis 

1 

106 

104 

113 

108 

2 

229 

218 

247 

230 

3 

302 

289 

338 

314 


*Uncorrected 
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5.0 CONCLUSIONS AND RECOMMENDATIONS 


Mathematical optimization applied to shroudless fan blade structural tailoring 
has been demonstrated to be a very powerful automated design procedure. It 
provides the capacity to simultaneously evaluate many design variables to 
optimize a comprehensive objective function while observing numerous design 
constraints. The fan blade application of this study is relatively novel 
because dynamic design constraints preponderate and, since critical 
excitations can be avoided by making structural frequencies higher or lower, 
disjoint feasible regions are a practical possibility. This did not introduce 
1 imiting problems. 

The composite blade tailoring application demonstrated the capacity of the 
STAEBL procedure to select values for a large number of design variables 
because the fabricated internal constructions could be changed in many ways 
without affecting aerodynamic performance. But checkout studies also 
demonstrated that the procedure is a useful tool for homogeneous material 
blade tailoring. The various natural modes of vibration are sensitive to 
spanwise distribution of airfoil thickness to a level of refinement that can 
only be defined by several variables. Even the most experienced design analyst 
would only be able to find an approximation of the best distribution and, in 
some instances, he might not find any acceptable distribution when the 
feasible region is small. 

Unresolved discrepancies between the final corrected approximate analysis of 
one of the demonstration blades and the subsequent refined analysis exposed an 
apparent limitation of the STAEBL procedure. It is suspected that the 
approximations which are inherent in simple beam theory limit accuracy when 
the procedure is applied to a composite material blade and, to a lesser 
degree, when it is applied to a shroudless fan blade of any material. But the 
fact that a finite beam element approach was used to derive a practical 
composite material blade analysis indicates that a special purpose plate 
element blade analysis could also be used in a tailoring procedure. It would 
eliminate the problem by improving consistency between the approximate and 
refined analyses. 

Spanwise thickness distribution has been shown to be an important 
characteristic of an airfoil dynamic design. Chordwise distribution within 
aerodynamical ly allowable limits may also be significant but it can not be 
pursued effectively because of the inexact nature of the stress parameter used 
to evaluate local edge damage caused by bird ingestion. An existing nonlinear 
finite element analysis has the desired technical capability but it is too 
cumbersome for inclusion in a tailoring procedure. It is feasible that the 
critical features of the local response simulation could be incorporated in a 
fast linear analysis. It is recommended that the STAEBL procedure be revised 
to include a special purpose plate element for airfoil stress and vibration 
analyses. It is also recommended that the STAEBL procedure be revised to 
include another special purpose plate element for analysis of linearized large 
deflection local edge response to foreign object damage impact. 
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APPENDIX A 


BLADE OPTIMIZATION PROGRAM ORGANIZATION 

The COPES/CONMIN pr&gram forms the basis for the blade optimization program. 
COPES/CONMIN, through subroutine ANALIZ, calls the blade vibration, flutter, 
and foreign object damage analyses for evaluation of the constraints and the 
objective function of the design vector. 

Table A-I shows a tabulation of the 74 subroutines developed or acquired under 
this contract, along with a list of other routines called by each routine, and 
a brief statement of the function of each subroutine. Table A-I, then, serves 
as an effective flow chart, detailing the precise program organization. On 
Table A-II are listed the Pratt & Whitney Aircraft proprietary routines and/or 
analysis systems which were used but not developed in the current program. The 
curve fit and matrix inversion routines may be replaced by standard routines 
from mathematical packages. MNW137 does the frequency and mode shape 
determination for the STAEBL generated beam stiffness, using a determinant 
search technique. MNT983 is the driving routine for a proprietary supersonic 
fl utter analysi s. 
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TABLE A- I 


APPROXIMATE ANALYSIS SUBROUTINE LIST 


Routine 

External 

References 

Function 

Main Program 

MY TIME 
COPE 01 
ANALIZ 
C0PE02 
COPE! 8 
C0PE04 

C0PE05 
C0PE06 
C0PE07 
C0PE09 
COP El 4 

Main Program for COPES/CONMIN Constrained 
Optimization Program 

ANALIZ 

MYTIME 

RDW137 

RDDATA 

TMAX 

WTW137 

CALCTH 

MNW1 37 
RSFUNC 
OBJ TV 
ITT983 
WTT983 

Constraint Calculation for COPES/CONMIN 

BBIP 

TSAIWV 

MATPRN 

Multi-Mode Root Bird Ingestion Stress 

BCOORD 



Beam Local Coordinate Systems 

BEAM 

MATPRN 

MATMPY 

Beam Stiffness Calculation 

BIRDF 

MATPRN 


Bird Impulse Calculation 

CALCTH 



Input Blade Thickness Calculation 

CNMN01 



Gradient Information 

CNMN02 



Descent Vector 

CNMN03 

CNM04 


One-Dimensional Search 

CNMN04 



One-Dimensional Function Minimum 

CNMN05 

CNMN08 


Search Direction 

CNMN06 

CMMN07 

CNMN04 

One-Dimensional Search 

CNMN07 



Zero of I-D Function 

CNMN08 



Special Linear Optimization 

CONMIN 

CNMN01 

CNMN02 

CNMN05 

CNMN03 

CNMN06 

Constrained or Unconstrained Function 
Minimization 
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TABLE A- I (Cont'd. ) 


Routi ne 

Ex ternal 

References 

Function 

C0PE01 

C0PE08 


Control Input for COPES 

C0PE02 

CONMIN 

C0PE03 

Control Optimization 

C0PE03 

ANAL I Z 


Buffer Betwen CONMIN and COPES 

C0PE04 

ANALIZ 

C0PE02 

Sensitivity Information 

C0PE05 



Print Sensitivity Information 

C0PE06 



Two Variable Function Space 

C0PE07 



Print Two Variable Function Space 

C0PE08 



Convert Data Input 

C0PE09 

COPEIO 
COP El 2 

C0PE15 

Approximate Optimization 

C0PE10 

COP El 1 


Set-Up Taylor Expansion 

COP El 1 



Nominal Design for Approx. Optimization 

COP El 2 

COPE1 3 


Least Squares Fit 

COPE! 3 



Least Squares Fit Evaluation 

COPE! 4 



Print Approximate Optimization Results 

COPE1 5 

COPE! 6 

COPE! 7 

Function Evaluation, Approx. Optimization 

COP El 6 



Approximate Function Evaluation 

COPE1 7 



Gradient Evaluation, Approx. Optimization 

COP El 8 



Print Optimization Results 

C0RD2R 

BCOORD 


Blade Coordinate Systems 

ESTIFF 

MATPRN 


Beam Material Stiffness Matrix 

EXNECK 

MATPRN 

MATMPY 

Rectangular Extended Airfoil Neck 

FOD 

MATPRN 


Local Ingestion Parameter 

FRPM 

MATMPY 

MATPRN 

Centrifugal Force Calculation 
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TABLE A-I (Cont'd. ) 


Routine External References 


HOLLOW 

MATPRN 


HOLZER 

THICK 

PARTN 


WARP 

MINV 


SECTN 

MATPRN 

MATMPY 

INPUT 

ITT983 

WTT983 

MNT983 

NDT983 

KDGG 

MATPRN 


LAMINA 

LAMIN1 

L0AD2 

MATPRN 

MATMPY 

MATADD 

MATMPY 

MATPRN 

MODMAS 

SHAPE 

MATMPY 

MODSTR 

SHAPE 

MODMAS 


MATPRN 

BIRDE 


ZSTRES 

MATMPY 

NDT983 
OBJ TV 

PARTN 

MATPRN 


PP1 

MATPRN 


RBE2 

MATMPY 

MATPRN 


RDDATA 
RDT983 
RDW1 37 


Function 

Hollow Blade Lamination 
Holzer Transform Generation 

Material and Geometry Input 
Flutter Nodal Diameter Iteration 

Differential Stiffness Calculation 
Lamina Stress-Strain Relation 
Composite Blade Layup 
Loads for Holzer Solution 
Perform Matrix Addition 
Perform Matrix Multiplication 
Matrix Print 
Modal Mass determination 
Modal Stress Driver 

Flutter Nodal Diameter Selection 
Objective Function Calculation 
Matrix Partition Routine 
Matrix Reordering 
Rigid Body Coupling Matrices 
Optimization Input Information 
Flutter Input 
Blade Model Input 
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TABLE A- 1 (Cont'd. ) 


Routine 

External 

References 

Function 

RSFUNC 



Resonance Function 

SECTN 

BCCORD 

MATPRN 

ESTIFF 

BEAM 

MATMPY 

RBEZ 

FRPM 

Section Stiffness Matrix 

SHAPE 

PPI 

MATMPY 

Eigenvector Transformation 

SMULT 

MATMPY 

MATPRN 

Holzer String Multiplication 

ST ABEL 

INPUT 

CORDZR 

LAMINA 

PPI 

HOLZER 

STATIC 

FOD 

ZSTRES 

TSAIWU 

MATMPY 

MATPRN 

Stacked Beam Analysis Driver (Versions 
Differ for Hollow and Superhybrid blades) 

STAEBL 

PBMFIT 

CUBIC 

HOLLOW 

LAMINI 

Blade Interpolation for Approximate 
Analysis (Versions Differ for Hollow and 
Superhybrid Blades) 

STATIC 

MATPRN 

PARTN 

MATMPY 

MATADD 

MINV 

Blade Static Solution 

THICK 



Layer Thickness Evaluation 

TMAX 



Section Maximum Thickness 

TSAIWU 

MATPRN 


Tsai-Wu Failure Criterion 

WARP 

MATPRN 


Thin Section Warping 

WTT983 



Flutter Output Routine 

WTW137 



B1 ade Analysi s Output 

ZSTRES 

MATPRN 

MATMPY 

Composite Layer Stress 
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Routi ne 
CUBIC 

MI NV 
MNT983 

MNW137 

MYTIME 

PBMFIT 


TABLE A-I I 

PRATT & WHITNEY AIRCRAFT PROPRIETARY ROUTINES 

External References Functio n 

Function Evaluation for Parametric Beam 
Fit 


Matrix Inversion by Gaussion Elimination 

Pratt & Whitney Aircraft Flutter 
Analysis System 

Pratt & Whitney Aircraft Beam Analysis 
System, Modified Through STABEL Analysis 
Package for Hollow and Composite Blades 

Clock Times, Used to Bookkeep Analysis 
Time Consumption 

Parametric Beam Fit Coefficient Evluation 
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APPENDIX B 


COMPILED FORTRAN FOR HOLLOW BLADE 
DEMONSTRATION CASE 



DATE 82 . 141/10.47.36 


PAGE 1 



♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

REQUESTED OPTIONS: AUTODBU DBL4 ), SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZE! 3) LINECCUNTt 60 ) SIZE(MAX) AUTODBU DBL4 ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFCRMAT C05TMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 


ISN 0002 
ISN 0003 
ISN 0004 
ISN 0005 
ISN 0006 
ISN 0007 

ISN CG03 
ISN 0009 
ISN 0010 

ISN 0011 
ISN 0012 
ISN 0013 

ISN 0014 

ISN 0015 


ISM 0016 


ISN 0017 
ISN 0013 


ISN 0019 
ISN 0020 
ISN 0021 
ISN 0022 
ISN 0023 
ISN 0024 
ISN 0025 
ISN 0026 
ISN 0027 


ISN 0028 
ISN 0029 
ISN 0030 
ISN 0031 
ISN 0032 
ISN 0033 
ISN 0034 


C DATA SET U498DSTAEB AT LEVEL 019 AS OF 03/15/82 

C DATA SET U498DSTAEB AT LEVEL 018 AS OF 01/20/82 00001 

C DATA SET U49CSTAEBL AT LEVEL 015 AS OF 10/06/31 00002 

C DATA SET U49SSTAE3L AT LEVEL 013 AS CF 00/24/81 00003 

C DATA SET U4SSSTAEBL AT LEVEL 012 AS Or 00/14/81 00004 

SUBROUTINE STAEBL 00005 

COMMON /BLKCW/ XP(3,53,21) , NP(21) , IND(21) , INP 00006 

COMMON /BLK 2/ NOACR , NOACRl , NSTA » NSTAl , POISSN,MST2,MST3 00C07 

COMMON /BLK 4/ RPM , XNOACR , BR , PI , TERM , KBS 00003 

COMMON /BLK 7/ AREA( 21 ) , CF(21) , AA(21) , AKG(21) , IT(7,21) 00009 

COMMON /BLK12/ XBARX( 21 ) , XIMAX121) , XIMIN(21) , YBARY( 21 ) , 0CC10 

1 TLTA( 21 ) 0C011 

COMMON /BLK A A/ ALFHINt 21 ) , XSC(21) , YSC(21) , XX(21) , YY(21) 00012 

COMMON /BLK3/ SN3( 21 ) , ITTLE( 18 ) , VARH 235 ) ,TMAX( 21 ) .HALPHAt 21 ) 00013 

COMMON /BLK A/ ALPHA! 21) , HA(21) , HMNTt 21 ) , HALMINt 21 ) , 00014 

1 HINERT( 21 ) 00015 

COMMON /BLK 9/ DELTAC( 21 ) , DELTAZ( 21 ) , P(21) , R(21) , SHNT(21) 00016 
COMMON /INPUTT/ XSAVEl 1000), YSAVE(IOOC), ZSAVE(ICGO), TSAVE( 1000 J00017 
COMMON /SC/ XSCSV(21) , Y3C5V(21> , ZSC3V(21) , 00018 

1 ALSAVEl 21 ) , POLARK21) , ASAVEl 21 ) 00019 

COMMON /ANAL33/ DLED , DTED , OROOTO , DTIPO , TTID , TLTD , NCD 00020 

1 , MCK , TSKIN , TCENTR , PBT , FEE 00021 

DIMENSION YU C 53,21) , XM(53,21) , Tt:C(53,21) , T(120) , TML(53,21 J00022 

1 , XHF( 50 ,21 ) , YMF( 50 ,21 ) , TMLF(5C,21) , >.'CS(53,21) , YCG( SO , 21 J00023 

2 , XSCCGt 21 ) , YSCCG( 21 ) , XSCG(21) , YSCG(21) , Z5CG(21 ) , 00024 

3 XG( 50,21) , YG( 50 , 21 ) , ZG(E0,21) 00025 

4 , XSCR( 21 ) , YSCR( 21 1 , ZSCR(21) 00026 

5 , X( 50 , 21 ) , Y( 50, 21 ) , Z(50,21 ) 00027 

REAL*4 A(51),B(51),C(51),D(51),A1(51),B1(51),C1(51),C1(51), 00023 

1 A2(51),B2(51),C2(5I),D2(51),A3(51),B3(51),C3(51), 00029 

2 03(51 ),S1(51 ) ,S2(51 ) C0G30 

REAL*4 XM.K51 ) , YMIK51 ) ,TMM(51 ) ,XXMF( 25 ) , YYKFt 25 ) ,TTMLF( 25 ) 00C31 

REAL*4 SONE.STKO 00032 

C 00033 

C CALCULATE MEAN Y VALUE AND THICKNESS NORMAL TO THE CHORD 00034 

C 00035 

NBR = 1 00036 

DO 20 I = NBR, NSTA 00037 

NPS = NP( I ) 00C33 

DO 10 N = 1 >NPS 00C39 

YM(N,I) = ( XPl 2 ,N, I ) + XP( 3,N, I ) ) / 2.0 00040 

XM(N,I) = XP( 1 ,N,I ) 00041 

TMC(N,I) = XP(2,N,I) - XP(3,N,I) 00042 

10 CONTINUE 00043 

20 CONTINUE CC044 

C 0CC45 

C CALCULATE THICKNESS NORMAL TO MEANLINE 00046 

C 00047 

DO 40 I = NSR.NSTA 00C48 

NPS = NP( I )-l C0049 

TML( 1,1) =0.0 00050 

TML(NPS+1,I) = 0.0 CG051 

DO 30 N =2, UPS 00052 , 

THT1 =ATAN2( ( YM(N, I ) - YM(N-l.D) ,(XN(N,I) - XM(N-l.I))) 00C53 

THT2 =ATAN2 ( ( YM( N+ 1 , I ) - YM( N,I ) ) ,(XH(N+1,I) - XM(N.I))) 00054 



+VERSION 1.3.0 

(01 

MAY SO) STAEEL SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

DATE 82.141/10 

ISN 

0035 



THT = ( THT1 + THT2 ) / 2.0 

00055 

I£H 

0036 



TML(N.I) = TMC(Ntl) * COS(THT) 

C0056 

is;i 

0037 


30 

CONTINUE 

00057 

ISM 

0033 


40 

CONTINUE 

00058 

ISM 

0039 



NSTNS = NSTA - HSR 

00059 

ISM 

00 00 



DO 45 I = NER j HSTA > NSTNB 

00060 

ISM 

0041 



NFS = NP(I) 

00031 



c 


KRITE (6,900) ( YH( N,I ) ,H=1 ,NPS ) 

C0062 



c 


KRITE (6,900) (XM(N,I),N=1,NPS) 

00063 



c 


NRITE (6,900) (TMC(N,I),N=1,NFS) 

00064 



c 


HRITE (6,900) (TML( N,I ) ,M=1 ,MPS ) 

0CC65 

ISM 

0042 


45 

CONTINUE 

00036 



c 



00067 



c 


SAVE MEAN Y VALVES AND X VALVES IN AN ARRAY AND INTERPOLATE 

00068 



c 


FOR EqUAL INCREMENT X VALVES . REFEAT FOR THICKNESSES 

00069 



c 



00070 

ISM 

0043 



DO 1101 = NER, NSTA 

00071 

ISM 

0044 



NPF = 15 

00072 

ISM 

CO 45 



NFS = NP( I ) 

00073 



c 



00074 



c 


FILL IN DUMMY ARRAYS XMM,YMM,TMI1 FROM XK, YM.TI1L VECTORS 

00075 



c 



00076 

ISM 

0046 



DO 201 K = l.NPS 

00077 

ISM 

0047 



TMM(K) = TML( K , I ) 

00073 

ISM 

0C4S 



XNM(K) = XM(K,I) 

00079 

ISM 

0049 

201 

YMM(K) = YN(K,I) 

00080 



c 



00031 



c 



00032 



c 


CALL PBMFIT FOR CURVE FIT 

00033 



c 



00064 

ISM 

0050 



CALL PEMFIT(XNM, YMM, 1 . , 1 . , NPS, 0 , A ,B ,C,D , A1 ,81, Cl, 01, SI) 

00085 



c 



C0C26 

ISM 

0051 



CALL F3UFIT(XMM,TMM, 1 . , 1 . ,NPS, 0 , A2,B2,C2 ,D2, A3,B3,C3,D3,S2 ) 

00087 



c 



00083 



c 


EqUAL BREAKUP ARC- LENGTH 

00089 



c 



0CC90 

ISH 

0052 



SARC = SI (NPS) / NPF 

COO 91 



c 



00092 



c 


NON SEARCH SI ARRAY FOR INTERVAL VALUE 

00093 



c 



0C094 

ISM 

C053 



NODE = 1 

00095 

ISM 

0054 



ARC1 = SARC / 2. 

00096 

ISM 

0055 

205 

H = 1 

00097 

ISM 

0056 

210 

IF( ARC1 .LE. SUN)) GO TO 220 

00093 

ISM 

0033 



N = N + 1 

00099 

ISM 

0059 



GO TO 210 

00100 

ISM 

0060 

220 

DIST = ( ARC1 - S1(N-1 ) ) / (S1(N) - SKU-l ) ) 

00101 

ISM 

0061 



SOME = (Sl(N) - S1(N-1 ) ) # DIST 

00102 

ISM 

0062 



STNO = (S2(N) - S2( N-l ) ) it DIST 

03103 



C 



00104 

ISM 

0063 



CALL CU3IC( A(N-1 ) ,B(N-1 ) ,C(N-1 ) ,D(H-1 ) , SOME, XXMF( NODE ) ) 

00105 

ISM 

0064 



CALL CU3IC(A1 (N-l ),B1( N-l ),C1( N-l ),D1( N-l ),SCME,YYilF( NODE)) 

OCltS 

ISM 

0065 



CALL CU3IC( A3( N-l ), B3( N-l ),C3(M-1), D3( N-l), STNO, TTMLF(NODE) ) 

00107 



C 



00103 

ISM 

0066 



NCDE = NODE + 1 

00109 

ISM 

0C67 



ARC1 = ARC1 + SARC 

cono 

ISM 

0068 



IF(NOQE .LE. NPF) GO TO 205 

00111 



C 



00112 



C 


FILL IN THE XMF.YMF.TKLF VECTORS WITH THE INTERPOLATED VALUES 

00113 
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C 



00114 

ISN 

0070 



DO 230 K = l.NPF 

00115 

ISU 

0071 



XMF( Ki I ) = XXMF(K) 

00116 

ISN 

0072 



YI1F(K» I ) = YYMF(K) 

00117 



C 


WRITEl 6, 902 ) I,K,XtlF( K,I ) , YMF(K,I ) 

00118 

ISH 

0073 

902 

FORMAT! 5X , ‘ I ,K , XMF , YMF • , 215 , 2E12.5 ) 

00119 

ISN 

0074 

230 

TIILF(K.I) = TTMLF(K) 

00120 



C 



00121 

ISN 

0075 


110 

CONTINUE 

00122 



C 



00123 



c 


TRANSLATE COORDINATES TO AN ENGINE AXIS SYSTEM 

00124 



c 



00125 

ISN 

0076 



DO 130 I = NSR.NSTA 

00126 



c 



00127 

ISN 

0077 



XCHORD = SM3 ( I ) 

00128 



c 



00129 

ISN 

0073 



XSCLE = XCHORD - XSC(I) 

00130 



c 



00131 

ISN 

0079 



XSCCG(I) = XSCLE - (XCHORD - XBARX(I)) 

00132 

ISN 

0030 



YSCCG(I) = YSC(I) - YBARY(I) 

00133 



c 



00134 

ISN 

0081 



DO 120 N = 1 iNPF 

00135 

ISN 

0032 



XCG(N.I) = XMF(N.I) - (XCHORD - XEARX(D) 

00136 

ISN 

0083 



YCG(N,I) = YMF(NjI) - YBARY(I) 

00137 

ISN 

0084 


120 

CONTINUE 

00133 

ISN 

0CS5 


130 

CONTINUE 

00139 



c 



00140 



c 


SHIFT XY PLANE TO ENGINE AXIS YZ 

00141 



c 



00142 

ISN 

0036 



DO 150 I = NBRiNSTA 

00143 

ISN 

0037 



XSCG(I) = R(I) 

00144 

ISN 

0083 



YSCG(I) = YSCCG(I) 

00145 

ISN 

0089 



ZSCG(I) = XSCCG(I) 

00146 

ISN 

0090 



DO 140 N = 1 jNPF 

00147 

ISN 

0091 



XG(N,I) = R(I) 

00148 

ISN 

0092 



YG(N,I) = YCG(N.I) 

00149 

ISN 

0093 



ZG(N,I) = XCG(N.I) 

00150 

ISN 

0094 


140 

CONTINUE 

00151 

ISN 

0095 


150 

CONTINUE 

00152 



c 



00153 



c 


ROTATE THRU ALPHA CHORD - 90.0 

00154 



c 



00155 

ISN 

0096 



DO 170 I = NER.NSTA 

00156 



c 


ALPHA! I ) = 90. * .0174533 

00157 

ISN 

0097 



AN3 =-ALPHA(I) + 90.0 # .0174533 

00158 

ISN 

0093 



EM = COS(ANG) 

00159 

ISN 

0099 



EN = SIN(ANG) 

00160 

ISN 

0100 



XSCR(I) = XSCG(I) 

00161 

ISN 

0101 



YSCR(I) = YSCG(I) * EM + EN * ZSCG(I) 

00162 

ISN 

0102 



ZSCR(I) = EM * ZSCG(I) - EN * YSCG(I) 

00163 



c 


WRITE (6,900) ANG, EN , Etl , XSCR(I) , YSCR(I) , ZSCR(I) , 

AREA( 1)00164 

ISN 

0103 



DO 160 N = l.NPr 

00165 

ISN 

0104 



X( N, I ) = XG ( N , I ) 

00166 

ISN 

0105 



Y ( H > I ) = YG(N»I )* EM + EN * ZG(N,I) 

00167 

ISN 

0106 



Z( N, I ) = EM * ZG(N,I ) - EN * YG(N,I) 

00163 

ISN 

0107 


160 

CONTINUE 

00169 

ISN 

0103 


170 

CONTINUE 

00170 



c 


DO 175 I = NSR.NSTA, NSTNB 

00171 



c 


WRITE (6,900) CXCG(H,I),N=1,NPF) 

00172 
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C 


WRITE (6,900) ( YCG(N> I ) ,N=1 >MFF ) 


00173 



C 


WRITE (6,900) ( XG(N,I ) ,N-1 ,NFF ) 


00174 



C 


WRITE (6,900) ( YG( N> I ) ,H=1 »HPr ) 


00175 



C 


WRITE (6,900) ( ZG( N, I ) ,U=1 ,NPF ) 


00176 



C 


WRITE (6,900) ( X( N,I ) ,N-1 ,NFF ) 


00177 



c 


WRITE (6,900) (Y(N,I),N=1,NPF) 


00178 



c 


WRITE (6,900) (Z(N,I),N=1,NPF) 


00179 



c 


WRITE (6,900) (TMLF(N»I ) ,H=1 ,NPF ) 


00180 



c 

175 

CONTINUE 


00181 

ISN 

0109 



IJ = 1 


00182 

ISN 

0110 



IF( IJ . EQ. 1) GO TO 811 


00183 



c 




00184 



c 


T03902 GENERATED NODES AND THICKNESSES 


00165 



c 




C0186 

ISN 

0112 



DO 800 I = NER.NSTA 


00187 

ISN 

0113 



DO 801 J = 1 , NPF 


00188 

ISN 

0114 

601 

REAO( 5,602 ) Y( J , I ) ,Z( J , I ) 


00189 

ISN 

0115 

602 

FORWAT( /, 32X, 2F8 . 0 ) 


00190 



C 




00191 

ISN 

0116 



DO 805 J = 1 »NPF 


00192 

ISN 

0117 



READ(5,603) PI , P2 


00193 

ISN 

0113 

603 

FORMAT! 24X»F3.0 ,//, 24X , F8 . 0 ) 


00194 

ISN 

0119 

805 

TWLF(J.I) = (PI + P2) / 2. 


00195 



C 




00196 



c 


13UTE(6,810) I 


00197 



C310 

FORMAT! 5X, 1 T039 NODES AND THICKNESSES FOR SECTION M5) 

00198 



C 


NRITE( 6 , 900 ) (X(N,I ) ,H=1 ,NPF ) 


00199 



C 


WRITE( 6 ,900 ) ( Y( N, I ) ,N=1 ,NPF ) 


00200 



C 


WRITE! 6 , 900 ) ( Z(N,I ) ,N=1 ,NFF ) 


00201 



C 


WRITE! 6, 900) ( TMLFCH.I ) ,M=1 ,NPF ) 


00202 



C 




00203 

ISN 

0120 

800 

CONTINUE 


00204 

ISN 

0121 

811 

CONTINUE 


00205 



C 




002C6 

ISN 

0122 



J = 0 


00207 

ISN 

0123 



K = 0 


00208 

ISN 

0124 



DO 190 I = NER.NSTA 


00209 

ISN 

0125 



K = K + 1 


00210 

ISN 

0126 



XSCSV(K) = XSCR(I) 


00211 

ISN 

0127 



YSCSV(K) = YSCR(I) 


00212 

ISN 

0126 



ZSCSV(K) = ZSCR(I) 


00213 

ISN 

0129 



ALSAVE(K) = ALPHA! I) 


00214 

ISN 

0130 



POLARI(K) = XIMIN(I) + XIMAX(I) 


00215 

ISN 

0131 



ASAVE(K) = AREA! I) 


00216 

ISN 

0132 



DO 180 N = l.NPF 


00217 

ISN 

0133 



J = J +1 


00218 

ISN 

0134 



XSAVE(J) = X(N,I) 


00219 

ISN 

0135 



YSAVE(J) = YIN, I) 


00220 

ISN 

0136 



ZSAVE(J) = Z ( N > I ) 


00221 

ISN 

0137 



TSAVE(J) = TMLF(N.I) 


00222 



c 


WRITE (7,901) XSAVE(J) , YSAVEU) , ZSAVEU) 

, TSAVE(J) 

00223 

ISN 

0133 


160 

CONTINUE 


00224 

ISN 

0139 


190 

CONTINUE 


00225 

ISN 

0140 



K = 0 


00226 

ISN 

0141 



00 200 I = NER.NSTA 


00227 

ISN 

0142 



K = K + 1 


00228 



c 


WRITE (7,901) XSCSV(K) , YSCSV(K) , ZSCSV(K) 

, ALSAVE(K) 

00229 



c 


1 , POLARKK) , ASAVE(K) 


00230 

ISN 

0143 


2C0 

CONTINUE 


00231 
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ISN 0144 

NTMNR = NSTA - NBR + 1 

00232 

ISN 0145 

IF (NCD .Eq. 1) 

00233 


1CALL HQLLCH (OLED , DTED , OROOTD , DTIPD , 

00234 


2 TTID , TLTD , NPF , NTMNR) 

00235 

ISN 0147 

IF (NCD .EG. 2) 

00236 


1 CALL LAMIN1 (TSKIN , TCENTR , PBT , FGE , NPF , NTMNR) 

00237 

ISN 0149 

901 FORMAT (6E12.5) 

00238 

ISN 0150 

900 FORMAT (1X.9F8.5) 

00239 

ISN 0151 

RETURN ! 

00240 

ISN 0152 

END 

00241 


^OPTIONS IN EFFECT*NAME( MAIN ) OPTIMIZE! 3) LINECOUNT(60) SIZE(MAX) AUTODBK DBL4 ) 

*0PTIGN3 IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NCMAP NOFORMAT GOSTNT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
^STATISTICS* SOURCE STATEMENTS = 151, PROGRAM SIZE = 141916, SUBPROGRAM NAME =STAEBL 

*STATISTICS* NO DIAGNOSTICS GENERATED 
St#**** END OF COMPILATION ****** 


2972K BYTES OF CORE NOT USED 
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REQUESTED OPTIONS: AUT0DBL(DBL4) .SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNT(60 ) SIZE(MAX) AUTODBLt DBL4) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOAHS F TERM IBM FLAG! I) 




C 

DATA SET U498DSTABE AT LEVEL 048 AS OF 03/31/82 




c 


00001*35 

ISH 

0002 


SUBROUTINE BBIP ( NC ) 

00002*35 

ISN 

0003 


IMPLICIT REAL*S!A-H,0-Z) 

00003*35 



C 


00004*35 



C 

MULTI-MODE BENDING BIRD INGESTION PARAMETER 

00005*35 



C 


00006*35 

ISN 

0004 


COMMON /FAIL/ VV(42 ) .TSAI (8, 25) 

00007*35 

ISN 

0005 


COMMON /SMAXX/ SMAX1 ( 8 ) , SMAX2( 8 ) ,SMAX3( 8 ) , SMAXLE( 8 ) » SMAXTE( 8 ) 

00008*37 

ISN 

0006 


COMMON /M0DAL1/ STRESS! 3.3,8,25 ) .FACTOR ( 3 ) >RMASS( 3) 

00009*35 

ISN 

0007 


COMMON /BLK15/ DIANOD( 100 ) ,FN1( 100 ) ,FILL1( 300 ) 

00010*35 

ISN 

0008 


DIMENSION SEFF( 3,8,25) 

00011*35 



c 


00012*35 



c 

CALCULATE TIME TO 1/4 OF FIRST BENDING 

00013*35 



C 


00014*35 

ISN 

0009 


TIME = 0.25 / FNKl) 

00015*35 



c 


00016*35 

ISN 

0010 


WRITE( 6 , 200 ) TIME 

00017*35 

ISN 

0011 

200 

FORMAT(//,5X» 'BBIP CALCULATION , MODAL SUFERPOSITION METHOD',/, 

00018*35 




15X, 'QUARTER OF FIRST BENDING (SECONDS) =' ,E12.5,//) 

00019*35 



c 


00020*35 



c 

EFFECTIVE STRESS CALCULATION - MODAL SUPERPOSITION 

00021*35 



c 

FOR EACH LAYER, EACH BEAM - THREE COMPONENTS 

00022*35 



c 


00023*35 

ISN 

0012 


ARG = FNKl) * 2. * 3.141593 * TIME 

00024*35 

ISH 

0013 


FS1 = FACTOR! 1 ) * DSIN( ARG ) 

00025*35 

ISN 

0014 


ARG = FN1(2) * 2. * 3.141593 * TIME 

00026*35 

ISN 

0015 


FS2 = FACTOR! 2) * DSIN( ARG ) 

00027*35 

ISH 

0016 


ARG = FN1(3) * 2. * 3.141593 * TIME 

00028*35 

ISN 

0017 


FS3 = FACTOR! 3) * DSIN( ARG ) 

00029*35 



c 


00030*35 

ISN 

0018 


DO 100 I = 1,3 

00031*35 

ISN 

0019 


DO 100 J = 1,8 

00032*35 

ISN 

0020 


DO 100 K = 1 >NC 

00033*35 

ISN 

0021 

100 

SEFF( I, J,K ) = STRESS! 1 >1, J,K ) * FS1 + STRESS! 2 ,1, J,K) * FS2 + 

00034*35 




1 STRESS! 3,1, J ,K ) * FS3 

00035*35 



c 


00036*35 



c 

TSAI-WU FAILURE CALCULATION 

00037*35 



c 


00038*35 

ISN 

0022 


CALL TSAIWU ( SEFF.NC ) 

00039*35 



c 


00040*35 



c 

PICK OUT THE MAX TSAI-WU FOR EACH LAYER OVER ALL BEAMS 

00041*35 



c 


00042*35 

ISN 

0023 


DO 110 I = 1,8 

00043*35 

ISN 

0024 


SMAX3! I ) = 0. 

00044*36 

ISN 

0025 


DO HO J = 1 ,NC 

00045*35 

ISN 

0026 

110 

IF! SMAX3! I ) .LT. TSAI(I,J)) SMAX3(I) = TSAI(I,J) 

00046*36 



c 


00047*36 

ISN 

0028 


WRITE! 6, 300) 

00046*36 

ISN 

0029 

300 

FORMAT! //,5X,'** MAX TSAI-WU ROOT STRESS ANALYSIS **') 

00049*36 

ISN 

0030 


CALL MATPRNtSMAXl, 8,1, 'MAXI' ) 

00050*36 

ISN 

0031 


WRITE(6,301 ) 

00051*36 

ISN 

0022 

301 

FORMAT!//, 5X, •** MAX TSAI-WU HOLLOW SECTION ANALYSIS **■ ) 

00052*36 

ISN 

0033 


CALL MATPRN(SMAX2,8,1, 'MAX2' ) 

00053*36 

ISN 

0034 


WRITE! 6, 302) 

00054*36 
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ISN 

0035 

302 FORMAT!//, 5X» '## MAX TSAI-UU BBIP 

ANALYSIS ##* ) 

00055*36 

ISN 

0036 

CALL MATFRN(SMAX3>8, 1 , 'MAX3* ) 


00056*36 

ISN 

0037 

WRITE(6,303) 


00057*37 

ISN 

0038 

303 FORMAT! //,5X, '## TSAI-WU AT LE AND 

TE ##') 

0005S*37 

ISN 

0039 

CALL MATFRN ( SMAXLE.8, 1 , ’ LE 1 ) 


00059*37 

ISN 

0040 

CALL MATPRN (SMAXTE.8, 1 , 1 TE *) 


00060*37 



C 


00061*35 

ISN 

0041 

RETURN 


00062*35 

ISN 

0042 

END 


00063*35 


^OPTIONS IN EFFECT*NAME( MAIN ) OPTIMIZE! 3) LINECOUNT(60) SIZE(MAX) AUTODEL! DBL4 ) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG! I) 
^STATISTICS# SOURCE STATEMENTS = 41, PROGRAM SIZE = 6244, SUBPROGRAM NAME = BBIP 

^STATISTICS# NO DIAGNOSTICS GENERATED 
****** END OF COMPILATION ###### 


3012K BYTES OF CORE NOT USED 



DATE 02.141/10.47.48 


PAGE 


♦VERSION 1.3.0 (01 NAY 80) SYSTEN/370 FORTRAN H EXTENDED (ENHANCED) 

REQUESTED OPTIONS: AUT0D8L! DBL4) .SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUT0DBL1DBL4) 
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C 


00064*35 



C 


00065*35 

ISN 

0002 


SUBROUTINE BIRDF( NR, NC.ISTA.BFORCE, SQUASH ) 

00066*35 

ISN 

0003 


IMPLICIT REAL*8 (A-H.O-Z) 

00067*35 



C 


00068*35 



C 

CALCULATES THE BIRD IMPACT FORCE 

00069*35 



C 

ASSUMPTIONS 1. 2 INCHES FROM TIP 

00070*35 



C 

2. 2.5 LB BIRD - 4 INCH DIAMETER 

00071*35 



C 

3. VBIRD = ISO KNOTS 

00072*35 



c 

4. LOADED OVER SqUASH-UP TIME 

00073*35 



c 

5. SLICE FROM CENTER OF SPHERE 

00074*35 



C 


00075*35 

ISN 

0004 


COMMON /INPUTT/ X( 1000 ) ,Y( 1000 ) ,Z( 1000 ) ,T( 1000 ) 

00076*35 

ISN 

0005 


COMMON /BLK 3/ FN, BLADES, BETA, THR .THT.MST1 ,NBB 

00077*35 

ISN 

0006 


COMMON /BC/ C(6,6 ) ,RPM 

00078*35 

ISN 

0007 


COMMON /SC/ XSC( 21 ) , YSC( 21 ) ,ZSC( 21 ) , ALPHA! 21 ) ,SECIP( 21 ) ,SECA( 21 ) 

00079*35 

ISN 

0003 


COMMON /BLK 8/ SMB( 21 ) ,ITTLE( 18 ) , VARI( 235 ) ,TMAX( 21 ) ,HALPHA( 21 ) 

00080*35 

ISN 

0009 


DIMENSION BFORCE( 6 , 1 ) 

00081*35 



c 


00082*35 



c 

IMPACT STATION , ISTA 

00083*35 



C 


00084*35 

ISN 

O01O 


ISTA = 1 

00035*35 

ISN 

0011 


XTOP = X(NR * NC) - 2. 

00036*35 

ISN 

0012 

51 

NODE = (ISTA-1) * NC + 1 

00067*35 

ISN 

0013 


IF(X(N0DE) .GT. XTOP) GO TO 50 

00088*35 

ISN 

0015 


ISTA = ISTA + 1 

00089*35 

ISN 

0016 


GO TO 51 

00090*35 

ISN 

0017 

50 

CONTINUE 

00091*35 



C 


00092*39 

ISN 

0018 


ISTA = ISTA - 1 

00093*39 

ISN 

0019 


NODE = NODE - NC 

00094*39 



c 


00095*39 



c 

URITEt 6 ,300 ) NODE, ISTA 

00096*35 



C300 

FORMAT( //»5X, 1 ** IN BIRD **»NODE»ISTA‘ ,215) 

00097*35 



C 


00098*35 



C 

CALCULATE THE IMPACT PARAMETERS 

00099*35 



C 


00100*35 

ISN 

0020 


VBLADE = X( NODE ) * RPM 

00101*35 

ISN 

0021 


VBIRD = 180. * 1.688 * 12. 

00102*35 

ISN 

0022 


VREL = DSQRT( VBLAOE**2 + VBIR0**2 ) 

00103*35 

ISN 

0023 


ARG = VBIRD / VBLADE 

00104*35 

ISN 

0024 


PHI = DAT AN (ARG) 

00105*35 

ISN 

0025 


THETA = ALPHA! ISTA) - PHI 

00106*35 

ISN 

0026 


GAP = 2. * 3.141593 * X(NODE) / BLADES 

00107*35 

ISN 

0027 


SL = GAP * DTAN (PHI) 

00108*35 

ISN 

0028 


RBIRD = 2. 

00109*35 

ISN 

0029 


SQUASH = 2. * RBIRD / VREL 

00110*35 

ISN 

0030 


RHO = 0.036 / 386.4 

00111*35 

ISN 

0031 


BMASS = SL * 3.141593 * RBIRD**2 * RHO 

00112*35 



c 


00113*35 

ISN 

0032 


F = BMASS * VREL * OSIN! THETA) / sqUASH 

00114*35 



c 


00115*35 



c 

CENTER OF IMPACT , COI 

00116*35 



c 


00117*35 

ISN 

0033 


COI = SL / 2. / DSIN(PHI) 

00118*35 



ID 

-P» 


♦VERSION 1.3.0 


ISN 0034 
ISM 0035 


ISN 0036 
ISN 0037 
ISN 0038 
ISN 0039 
ISN 0040 
ISN 0041 


(01 

C 

c 

c 


HAY 00) 


BIRDF 


SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 


MOMENT ARM 


TORqUE = SMB(ISTA) / 2. - COI 
TORqUE = TORqUE * F 

FORCE VECTOR , BFORCE 


C 

C 

C 

C 

C200 

C 

C 

C 


BFORCE (1,1) 
BFORCE(2,l) 
BFORCE( 3, 1 ) 
BFORCE (4,1) 
BF0RCE(5,1 ) 
BF0RCE( 6 , 1 ) 
CALL MATPRN 


= 0 . 

= F 
= 0 . 

= TORQUE 
= 0 . 

= 0 . 

( BFORCE, 6, 1, 'BFOR' ) 


HRITE(6»200 ) ISTA, NODE, VBLAOE.VBIRD.VREL, PHI, THETA, SL.RBIRD, 

1 SQUASH , RHO , BNASS , F , COI , TORQUE 

FORMAT!//, 5X, 'BBIP ANALYSIS' ,/,5X, 'STATION, NODE, VBLADE , VBIRD ' , 

1 2I5,2E12.5,/,5X, 'VREL, PHI, THETA, SL.RBIRD, SQUASH' .6E12.5, 

2 /,5X, 'RHO, BMASS.F, COI, TORQUE' ,5E12. 5,/) 


DATE 02.141/10.47.48 
00119*35 
00120*35 
00121*35 
00122*35 
00123*35 
00124*35 
00125*35 
00126*35 
00127*35 
00128*35 
00129*35 
00130*35 
00131*35 
00132*35 
00133*36 
00134*35 
00135*36 
00136*36 
00137*36 
00138*36 
00139*36 
00140*35 
00141*35 
00142*35 


PAGE 


ISN 0042 RETURN 

ISN 0043 END 

*OPTIONS IN EFFECT *NAME ( MAIN ) OPTIMIZED) LINECOUNT(60 ) SIZE(MAX) AUT0D3L( DBL4 ) 

*OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK 03JECT NO.'lAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
*STATISTICS* SOURCE STATEMENTS = 42, PROGRAM SIZE = 1068, SUBPROGRAM NAME = BIRDF 

*STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 3012K BYTES OF CORE NOT USED 



+VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10. <(8.02 PAGE 1 

REQUESTED OPTIONS: AUT0DBL(DBL4 ) .SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTODBLf DBL4 ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FUG(I) 




C 


00143 

ISN 

0002 


SUBROUTINE BCOORD(IP,IPP,BLOCAL) 

00144 



C 


00145 



C 

THIS ROUTINE CALCULATES THE BEAM LOCAL COORDINATE SYSTEM, BLOCAL 

00146 



C 

THE SYSTEM IS LOCATED AT THE BEAM END 1 

00147 



C 


00148 

ISN 

0003 


IMPLICIT REAL#8( A-H.Q-Z) 

00149 

ISN 

0004 


COMMON /INPUTT/ X( 1000 ) ,Y( 1000 ) ,Z( 1000 ) ,T( 1000 ) 

00150 

ISN 

0005 


COMMON /COCROl/ CLOCAL( 3, 3, 1000 ) 

00151 

ISN 

0006 


DIMENSION B LOCAL! 3,3) 

00152 



C 


00153 



C 

LONGITUDINAL VECTOR , X 

00154 



C 


00155 

ISN 

0007 


XI = X(IPP) - X(IP) 

00156 

ISN 

0003 


X2 = Y(IPP) - Y( IP) 

00157 

ISN 

0009 


X3 = Z(IPP) - Z(IP) 

00158 

ISN 

0010 


XMAG = DSQRT( Xl##2 + X2##2 + X3##2 ) 

00159 

ISN 

0011 


XI = XI / XMAG 

00160 

ISN 

0012 


X2 = X2 / XMAG 

00161 

ISN 

0013 


X3 = X3 / XMAG 

00162 



c 


00163 



c 

LOCAL Z UNIT VECTOR = X CROSS Y 

00164 



c 


00165 

ISN 

0014 


Z1 = X2 # CLOCAL! 2 , 3>IP) - X3 * CLCCAL( 2,2, IP) 

00166 

ISN 

0015 


Z2 = X3 # CLOCALI 2, 1 ,IP) - XI * CLOCAL(2,3,IP) 

00167 

ISN 

0016 


Z3 = XI # CLOCAL( 2 ,2, IP) - X2 # CLGCAL( 2, 1 ,IP) 

00168 

ISN 

0017 


ZMAG = DSQRT( Zl##2 + Z2##2 + Z3#«2 ) 

00169 

ISM 

0013 


Z1 = Z1 / ZMAG 

00170 

ISN 

0019 


Z2 = Z2 / ZMAG 

00171 

ISN 

0020 


Z3 = Z3 / ZMAG 

00172 



c 


00173 



c 

THE LOCAL Y UNIT VECTOR = Z CROSS X 

00174 



c 


00175 

ISN 

0021 


BLOCAL! 2,1) = Z2 # X3 - Z3 # X2 

00176 

ISN 

0022 


BLOCAL! 2,2 ) = Z3 # XI - Z1 # X3 

00177 

ISN 

0023 


BLOCAL( 2,3) = Z1 # X2 - Z2 # XI 

00178 



c 


00179 

ISN 

0024 


BLOCAL! 1,1) = XI 

00180 

ISN 

0025 


BLOCAL! 1,2) = X2 

00181 

ISN 

0026 


BLOCAL! 1,3) = X3 

00182 

ISN 

0027 


BLOCAL! 3,1) = Z1 

00183 

ISN 

0023 


BLOCAL! 3, 2) = Z2 

00184 

ISN 

0029 


BLOCAL! 3,3 ) = Z3 

00185 



c 


00186 

ISN 

0030 


RETURN 

00187 

ISN 

0031 


END 

00188 


^OPTIONS IN EFFECT*NAME ( MAIN ) OPTIMIZE(3) LINECOUNT( 60 ) SIZE(MAX) AUT0DBL( DBL4 ) 

^OPTIONS IN EFFECT«SGURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
^STATISTICS# SOURCE STATEMENTS = 30, PROGRAM SIZE = 718, SUBPROGRAM NAME =BCCORD 

^STATISTICS# NO DIAGNOSTICS GENERATED 
*«**»» END OF COMPILATION ##*«*# 


3016K BYTES OF CORE NOT USED 



+VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82. 141/10. 48. 06 PAGE 1 

REQUESTED OPTIONS: AUT0DBL(DBL4) .SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LIHECOUNT(60) SIZE(MAX) AUT0DBL(DBL4) 

SOURCE EBCDIC NOLIST NODECK OBJECT HOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 



C 


001S9 

ISN 0002 


SUBROUTINE BEAM( NC , IBEAM , BLOCAL .ECMGG ,RFM ) 

00190 


C 


00191 


C 

THIS ROUTINE DEFINES THE FOLLONING MATRICES; 

00192 


C 

CN( 12,12) — COEFFICIENT MATRIX 

00193 


c 

X( 6 , 12 ) — STRAIN-DISPLACEMENT MATRIX 

00194 


C 

A( 12,8) — EQUILIBRIUM MATRIX 

00195 


C 

BM( 12,12)- THE BEAM MASS (NO ROTATIONAL INERTIA) 

00196 


c 

BCMGG( 12,12) - THE BEAM CENTRIFUGAL RESTORING MATRIX 

00197 


c 

THEN FINDS THE BEAM STIFFNESS MATRIX , BK(12,12) 

00193 


C 


00199 

ISN 0003 


IMPLICIT REAL«3(A-H,0-Z) 

00200 

ISN 0004 


COMMON /BSTIFF/ BK( 12, 12 ) ,BM( 12 , 12 ) 

00201 

ISN 0005 


COMMON /ESTIF/ E(8,6) 

00202 

ISN 0006 


COMMON /LAYER/ TH( 7,25 ) ,BMAS5( 25) ,BSPAN( 25) ,B!)IDTH( 25) 

00203 

ISM 0007 


COMMON /REORDR/ P( 12, 12 ) ,PT( 12, 12) 

00204 

ISN 0008 


DIMENSION CH( 12 , 12 ) ,X( 6 , 12 ) , A( 12 ,8 ) ,BLOCAL( 3,3 ) ,BCMGG( 12, 12 ) 

00205 

ISN 0009 


DIMENSION D1(6,12),D2(6,12),D3( 12,12),CM3G( 12, 12 ) ,BL( 12, 12 ) 

00206 

ISN 0010 


DIMENSION BLT( 12,12) 

00207 


c 


00208 


c 

FIRST ZERO ALL MATRICES TO BE USED 

00209 


c 


00210 

ISN 0011 


DO 100 I = 1,12 

00211 

ISN 0012 


DO 100 J = 1,12 

00212 

ISN 0013 


BL(I,J) = 0. 

00213 

ISN 0014 


CM3G(I,J) = 0. 

00214 

ISN 0015 

100 

CN( I, J ) = 0. 

00215 


c 


00216 

ISN 0016 


DO 101 I = 1,6 

00217 

ISN 0017 


DQ 101 J = 1,12 

00218 

ISN 0018 

101 

X(I,J) = 0. 

00219 


c 


00220 

ISN 0019 


DO 102 I = 1,12 

00221 

ISM 0020 


DO 102 J = 1,8 

00222 

ISN 0021 

102 

A( I, J ) = 0. 

00223 


c 


00224 


c 

BEGIN LOOP FOR BEAM (J) 

00225 


c 


00226 


c 


00227 


c 

THE COEFFICIENT MATRIX , CN( 12,12) 

00228 


c 


00229 

ISN 0022 


S = BSPAN( IBEAM) 

00230 

ISN 0023 


S2 = S**2 

00231 

ISN 0024 


S3 = S»*3 

00232 

ISN 0025 


CN( 1,1) = 1. 

00233 

ISN 0026 


CN( 2,2) = -1. 

00234 

ISN 0027 


CN( 3, 1 ) = -1. / S 

00235 

ISN 0028 


CN( 3,3) = 1. / S 

00236 

ISN 0029 


CN(4,2) = -1. / S 

00237 

ISN 0030 


CN(4,4) = 1. / S 

00238 

ISN 0031 


CN(5>5) = 1. 

00239 

ISN 0032 


CN( 6,6) = 1. 

00240 

ISN 0033 


CN( 7,5) = -3. / S2 

00241 

ISN 0034 


CN( 7,6 ) = -2. / S 

00242 

ISN 0035 


CN(7,7) = 3. / S2 

00243 


♦VERSION 1.3.0 

(01 

NAY 80) BEAM SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

DATE 82.141/10 

ISN 0036 


CN( 7>8 ) = -1. / S 

00244 

ISN 0037 


CN( 8>5) = 2. / S3 

00245 

ISN 0033 


CN( 8>6 ) = 1. / S2 

00246 

ISN 0039 


CN( 8>7) = -2. / S3 

00247 

ISN 0040 


CN( 8>8 ) = 1. / S2 

00248 

ISN 0041 


CN( 9,9) = 1. 

00249 

ISN 0042 


CN(10,10) = -1. 

00250 

ISN 0043 


CN( 11,9) = -3. / S2 

00251 

ISN 0044 


CHt 11,10) = 2. / S 

00252 

ISN 0045 


CN(11>11) = 3. / S2 

00253 

ISN 0046 


CN( 11,12) = 1. / S 

00254 

ISN 0047 


CN( 12,9) = 2. / S3 

00255 

ISN 0043 


CN( 12,10) = -1. / S2 

00256 

ISN 0049 


CN( 12,11) = -2. / S3 

00257 

ISN 0050 


CN( 12,12) = -1. / S2 

00258 


C 


00259 


c 

STRAIN-DISPLACEMENT MATRIX , X(6,12) 

00260 


c 


00261 

ISN 0051 


X( 1 ,3) = 1. 

00262 

ISN 0052 


X(2,4) = 1. 

00263 

ISN 0053 


X(3,7) = 2. 

00264 

ISN 0054 


X(4,7) = 2. 

00265 

ISN 0055 


X( 4,8 ) = 6. * S 

00266 

ISN 0056 


X(5, 1 1 ) = 2. 

00267 

ISN 0057 


X( 6 , 1 1 ) = 2. 

00268 

ISN 0053 


X( 6 , 12 ) = 6. * S 

00269 


c 


00270 


c 

THE EQUILIBRIUM MATRIX , A(12,8) 

00271 


c 


00272 

ISN 0059 


A( 1 , 1 ) = -.5 

00273 

ISN 0060 


A( 1 ,3) = -.5 

00274 

ISN 0061 


A( 2 ,2 ) = -.5 

00275 

ISN 0062 


A( 2 ,4 ) = -.5 

00276 

ISN 0063 


A( 3, 1 ) = .5 

00277 

ISN 0064 


A(3,3) = .5 

00278 

ISN 0065 


A( 4, 2 ) = .5 

00279 

ISN 0066 


A(4,4) = .5 

00280 

ISN 0067 


A(5,5) = -1. / S 

00231 

ISN 0068 


A(5,6 ) = 1. / S 

00282 

ISN 0069 


A( 6 ,5 ) = -1. 

00263 

ISN 0070 


A(7,5) = 1. / S 

00234 

ISN 0071 


A( 7,6 ) = -1. / S 

00285 

ISN 0072 


A( 8,6 ) = 1. 

00286 

ISN 0073 


A( 9,7 ) = -1. / S 

00287 

ISN 0074 


A( 9,8) = 1. / S 

00288 

ISN 0075 


A( 10 >7 ) = 1. 

00239 

ISN 0076 


A( 1 1 , 7 ) = 1. / S 

00290 

ISN 0077 


A( 11,8) = -1. / S 

00291 

ISN 0073 


A( 12 ,8 ) = -1. 

00292 


c 

CALL MATPRNtCN, 12,12, 'CN •) 

00293 


c 

CALL MATFRNtX, 6,12, ‘X •) 

00294 


c 

CALL MATPRN( A, 12 ,8, ‘ A ') 

00295 


c 


00296 


c 

BK = A(12,6)*E(8,6)*X(6,12)*CN(12,12) 

00297 


c 

INTERMEDIATE MATRICES: D1 = X * CN 

00298 


c 

D2 = E * D1 

00299 


c 


00300 

ISN 0079 


CALL MATMPY(X,CN,D1 ,6 , 12, 12 ) 

00301 

ISN 0080 


CALL MATMPY(E, 01, 02,8,6, 12) 

00302 


PAGE 2 



♦VERSION 1.3.0 (01 MAY 80) BEAM SYSTEH/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.48.06 


ISN 

0081 

C 

CALL MATMPY(A,D2,BK,12,8,12) 



00303 

00304 



C 

REORDER THE BEAM STIFFNESS, BK, TO 

LOOK 

LIKE A NASTRAN VECTOR 

00305 



c 

BK = P * BK * P( TRANS) 



00306 



c 




00307 

ISH 

0082 


CALL MATMPY(BK,PT,D3, 12, 12,12) 



00308 

ISN 

0033 

c 

CALL HATMPY( P>03,EK, 12,12,12) 



00309 

00310 



c 

FORM THE BEAM MASS MATRIX, BM 



00311 



c 




00312 

ISN 

0084 


DO 15 I a 1,12 



00313 

ISH 

0085 


DO 15 J = 1,12 



00314 

ISN 

0085 

15 

BM( I, J ) = 0. 



00315 

ISN 

0087 


BUM = BMASS(IBEAM) / 2. 



00316 

ISN 

0088 


BH( 1,1) = BMM 



00317 

ISN 

0089 


BM ( 2 , 2 ) = BMM 



00318 

ISN 

0090 


BM( 3,3 ) = BMM 



00319 

ISN 

0091 


EM(7,7) = BMM 



00320 

ISN 

0092 


BM(6,8) = BMM 



00321 

ISN 

0093 

C 

BM( 9,9 ) = EMM 



00322 

00323 



C 

THE BEAM CENTRIFUGAL RESTORING MATRIX , 

BCMGG 

00324 



c 

— FIRST DEFINE THE TRANSFORMATION 

MATRIX , BL 

00325 



c 




00326 

ISN 

0094 


IRON = 1 



00327 

ISN 

0095 


DO 90 I = 1,4 



00328 

ISH 

0095 


DO 90 J = 1,3 



00329 

ISN 

0097 


ICOL = (1-1) * 3 + 1 



00330 

ISH 

0098 


DO 91 K = 1,3 



00331 

ISN 

0099 


BL( IRON, ICOL) = BLOCAL(J.K) 



00332 

ISN 

0100 

91 

ICOL = ICOL + 1 



00333 

ISN 

0101 

90 

IRON = IRON + 1 



00334 



C 




00335 

ISN 

0102 


DO 92 I = 1,12 



00336 

ISN 

0103 


DO 92 J = 1,12 



00337 

ISN 

01C4 

92 

BLT(I.J) = BL( J,I) 



00338 



C 




00339 



C 

NONZERO VALUES OF THE CENTRIFUGAL RESTORING MATRIX 

00340 



C 

WHEN DEFINED IN THE GLOBAL COORDINATE SYSTEM 

00341 



c 




00342 

ISN 

0105 


CMGG( 2 ,2 ) = BMASS(IBEAM) / 2. * RPM*«2 


00343 

ISN 

0106 

c 

CMGG( 8,8 ) = CMGG( 2,2 ) 



00344 

00345 



c 

TRANSFORM CMGG TO THE LOCAL BEAM SYSTEM 

TO FIND BCMGG 

00346 



c 

BCMGG = BL * CMGG * BLT 



00347 



c 




00348 

ISH 

0107 


CALL MATMPY(CMGG,BLT,D3, 12, 12, 12 ) 



00349 

ISN 

0103 

c 

CALL MATMPY(BLiD3, BCMGG, 12,12,12) 



00350 

00351 



c 

CALL MATPRN(BL, 12,12, ‘ BL ') 



00352 



c 

CALL MAT PRH ( CMGG » 1 2 > 1 2 » ' CMGG 1 ) 



00353 



c 

CALL MATPRN(BCMGG, 12, 12, 'BCMG 1 ) 



00354 



c 




00355 



c 

NRITE(6,7) 



00356 



C7 

FORMAT! / ,5X , 1 BEAM STIFFNESS , BK ' , / ) 



00357 



c 

CALL MATFRN(BK,12,12,'B;< ') 



00358 



c 

WRITE(6,16) 



00359 



C16 

FORMAT! /,5X, 'BEAM MASS , BM',/) 



00360 



C 

CALL MATPRNfBM, 12,12, 'BM ') 



00361 


PAGE 3 



SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 


DATE 82. 141/10.48.06 

00362 

00363 

00364 


+VERSICN 1.3.0 (01 MAY 80) BEAM 

C 

XSN 0109 RETURN 

ISM 0110 END 

^OPTIONS IN EFFECT*NAME(MAIN) OPTIMIZED) LINECOUNTt 60 ) SIZE(MAX) AUTODBK DBL4 ) 

^OPTIONS IN EFFECT*SCURCE EBCDIC HOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT MOXREF NOALC NOANSF TERM IBM FLAG(I) 
’'STATISTICS* SOURCE STATEMENTS = 109, PROGRAM SIZE = 10198, SUBPROGRAM NAME = BEAM 

^STATISTICS* NO DIAGNOSTICS GENERATED 

****** end OF COMPILATION ****** 2996K BYTES OF CORE NOT USED 


PAGE 



o 

o 


♦VERSION 1.3.0 (01 MAY SO) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.48.12 PAGE 1 

REQUESTED OPTIONS: AUTODSU DBL4) > SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) 0PTIMIZE(3) LINEC0UNT(60) SIZE(MAX) AUTODBU DBL4 ) 

SOURCE EBCDIC NOLIST NODECK OBJECT HOMAP NOFOP.HAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 


C 00365 


ISN 

0002 


SUBROUTINE CORD 2R ( XP , YP , ZP , ISPAN , ICHORD ) 





00366 

ISN 

0003 


IMPLICIT REAL*8(A-H,0-Z) 





00367 

ISU 

0004 


COMMON /COORD 1/ CLOCAL( 3, 3, 1000 ) 





00368 

ISN 

0005 


DIMENSION XP( 1 ) , YP( 1 ) ,ZP( 1 ) ,BLOCAL( 3,3) 





00369 

ISN 

0006 


NLCNPC=ICHORD 





00370 

ISN 

0007 


NLRNFR=ISPAN 





00371 



C 






00372 



c 

THIS ROUTINE CALCULATES THE CORD2R FOR THE 

BLADE 


00373 



c 






00374 

ISN 

0008 


IP = 1 





00375 

ISN 

0009 


DO 100 I = 1, ISPAN 





00376 

ISN 

0010 


IP = (1-1) * NLCNPC + 1 





00377 

ISM 

0011 


DO 101 J = 1, ICHORD 





00378 



c 






00379 

ISN 

0012 


IF( ICHORD .Eq. 1) GO TO 200 





00380 



c 






00381 

ISN 

0014 


IF(I.Eq.l.AND.J.Eq.l) GO TO l 





00382 

ISN 

0016 


IF( I . Eq . 1 . AND . J . GT . 1 . AND . J . LT. NLCNPC ) GO 

TO 2 



00383 

ISN 

0018 


IFU.Eq.l. AND. J.EQ. NLCNPC) GO TO 3 





00334 

ISN 

0020 


IF ( I . GT . 1 . AND . I . LT . NLRNFR . AND . J . EQ . 1 ) GO 

TO 4 



00385 

ISN 

0022 


IF ( I . GT . 1 . AND . I . LT . NLRNPR . AND . J . GT . 1 . AND , 

• J. 

LT. 

•NLCNPC) GO TO 5 

00386 

ISN 

0024 


IF( I. GT.l. AND. I. LT. NLRNPR. AND. J.EQ. NLCNPC) 

GO 

TO 

6 

00387 

ISN 

0026 


IF(I. EQ. NLRNPR. AND. J. EQ. 1 ) GO TO 7 





00388 

ISN 

0028 


IF ( I . EQ . NLRNPR . AND . J . GT . 1 . AND . J . LT . N LCNPC ) 

GO 

TO 

8 

00339 

ISN 

0030 


IF(I.EQ. NLRNFR. AND. J.EQ. NLCNPC) GO TO 9 





00390 

ISN 

0032 


GO TO 10 





00391 

ISN 

0033 

1 

XI = XP( IP+NLCNPC) - XP(1) 





00392 

ISN 

0034 


X2 = YP( IP+NLCNPC) - YP( 1 ) 





00393 

ISN 

0035 


X3 = ZP( IP+NLCNPC) - ZP(1) 





00394 

ISN 

0036 


Z1 = 0. 





00395 

ISN 

0037 


Z2 = YP( IP+1 ) - YP( 1 ) 





00396 

ISN 

0038 


Z3 = ZP(IPtl) - ZP(1) 





00397 

ISN 

0039 


GO TO 10 





00398 

ISN 

0040 

2 

XI = XP( IP+NLCNPC) - XP(IP) 





00399 

ISN 

0041 


XZ = YP( IP+NLCNPC) - YP(IP) 





00400 

ISN 

0042 


X3 = ZP( IP+NLCNPC) - ZP(IP) 





00401 

ISN 

0043 


Z1 = 0. 





00402 

ISN 

0044 


Z2 = YP( IP+1 ) - YP(IP-l) 





00403 

ISN 

0045 


Z3 = ZP(IP+1) - ZP(IP-l) 





00404 

ISN 

0046 


GO TO 10 





00405 

ISN 

0047 

3 

XI = XP( IP+NLCNPC) - XP(IP) 





00406 

ISN 

0048 


X2 = YP( IP+NLCNPC) - YP(IP) 





00407 

ISN 

0049 


X3 = ZP( IP+NLCNFC ) - ZP(IP) 





00408 

ISN 

0050 


Z1 = 0. 





00409 

ISN 

0051 


Z2 = YP(IP) - YP(IP-l) 





00410 

ISN 

0052 


Z3 = ZP(IP) - ZP(IP-l) 





00411 

ISN 

0053 


GO TO 10 





00412 

ISN 

0054 

4 

XI = XP( IP+NLCNPC) - XP( IP-NLCNPC) 





00413 

ISN 

0055 


X2 = YP( IP+NLCNPC) - YP( IP-NLCNPC) 





00414 

ISN 

0056 


X3 = ZP( IP+NLCNFC) - ZP( IP-NLCNPC) 





00415 

ISN 

0057 


Z1 = 0. 





00416 

ISN 

0058 


Z2 = YP( IP+1 ) - YP(IP) 





00417 

ISN 

0059 


Z3 = ZP(IP+1) - ZP(IP) 





00418 

ISN 

0060 


GO TO 10 





00419 
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ISN 

0061 

5 

XI = XP( IP+NLCNPC) - XP( IP-NLCHPC ) 

00420 

ISM 

0062 


X2 = YP( IP+NLCNFC ) - YP( IP-NLCNPC ) 

00421 

ISN 

0063 


X3 = ZP( IP+NLCNPC) - ZP( IP-NLCNPC) 

00422 

ISN 

0064 


Z1 = 0. 

00423 

ISN 

0065 


Z2 = YP( IP+1 ) - YP(IP-l) 

00424 

ISN 

0066 


Z3 = ZP(IP+1) - ZP(IP-l) 

00425 

ISN 

0067 


GO TO 10 

00426 

ISN 

0068 

6 

XI = XP( IP+NLCNPC) - XP( IP-NLCNPC) 

00427 

ISN 

0069 


X2 = YP( IP+NLCNPC) - YP( IP-NLCNPC) 

00423 

ISN 

0070 


X3 = ZP( IP+NLCNPC) - ZP( IP-NLCNPC) 

00429 

ISN 

0071 


Z1 = 0. 

00430 

ISN 

0072 


Z2 = YP(IP) - YP(IP-l) 

00431 

ISN 

0073 


Z3 = ZP(IP) - ZP(IP-l) 

00432 

ISN 

0074 


GO TO 10 

00433 

ISN 

0075 

7 

XI = XP(IP) - XP( IP-NLCNPC) 

00434 

ISN 

0076 


X2 = YP(IP) - YP( IP-NLCNPC) 

00435 

ISN 

0077 


X3 = ZP(IP) - ZP( IP-NLCNPC) 

00436 

ISN 

0073 


Z1 = 0. 

00437 

ISN 

0079 


Z2 = YP( IP+l ) - YP(IP) 

00438 

ISN 

0080 


Z3 = ZPdP+l) - ZP(IP) 

00439 

ISN 

0031 


GO TO 10 

00440 

ISN 

0082 

8 

XI = XP(IP) - XP( IP-NLCNPC) 

00441 

ISN 

0083 


X2 = YP(IP) - YP( IP-NLCNPC) 

00442 

ISN 

0084 


X3 = ZP(IP) - ZP( IP-NLCNPC) 

00443 

ISN 

0085 


Z1 = 0. 

00444 

ISN 

0086 


Z2 = YP( IP+1 ) - YP(IP-l) 

00445 

ISN 

00S7 


Z3 = ZP(IP+1) - ZP(IP-l) 

00446 

ISN 

0083 


GO TO 10 

00447 

ISN 

0039 

9 

XI = XP(IP) - XP( IP-NLCNPC) 

00448 

ISN 

0090 


X2 = YP(IP) - YP( IP-NLCHPC) 

00449 

ISN 

0091 


X3 = ZP(IP) - ZP( IP-NLCNPC) 

00450 

ISN 

0092 


Z1 = 0. 

00451 

ISN 

0093 


Z2 = YP(IP) - YP(IP-l) 

00452 

ISN 

0094 


Z3 = ZP(IP) - ZP(IP-l) 

00453 

ISN 

0095 

10 

CONTINUE 

00454 



C 

NON FORM THE UNIT VECTORS , FIRST LOCAL Z THEN Y AND FINALLY 

X 00455 

ISN 

0096 


ZMAG =DSQRT(Z1**2 + Z2**2 + Z3**2) 

00456 

ISN 

0097 


Z1 = Z1 / ZMAG 

00457 

ISN 

0093 


Z2 = Z2 / ZMAG 

00453 

ISN 

0099 


Z3 = Z3 / ZMAG 

00459 

ISN 

0100 


XMAG =DSQRT(X1#*2 + X2**2 * X3**2 ) 

00460 

ISN 

0101 


XI = XI / XMAG 

00461 

ISN 

0102 


X2 = X2 / XMAG 

00462 

ISN 

0103 


X3 = X3 / XMAG 

00463 



C 

LOCAL Y UNIT VECTOR , Z CROSS X 

00464 

ISN 

0104 


Y1 = Z2*X3 - Z3«X2 

00465 

ISN 

0105 


Y2 =-Zl*X3 + Z3*X1 

00466 

ISN 

0106 


Y3 = Z1*X2 - Z2*X1 

00467 

ISN 

0107 


YMAG =DSQRT(Y1**2 + Y2**2 + Y3#*2 ) 

00463 

ISN 

0108 


Y1 = Y1 / YMAG 

00469 

ISN 

0109 


Y2 = Y2 / YMAG 

00470 

ISN 

0110 


Y3 = Y3 / YMAG 

00471 



C 

LOCAL X UNIT VECTOR , Y CROSS Z 

00472 

ISN 

0111 


XI = Y2*Z3 - Y3#Z2 

00473 

ISN 

0112 


X2 =-Yl*Z3 + Y3*Z1 

00474 

ISN 

0113 


X3 = Y1#Z2 - Y2*Z1 

00475 

ISN 

0114 


A1=0 

00476 

ISN 

0115 


A2=0 

00477 

ISN 

0116 


A3=0 

00478 


PAGE 2 
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ISN 

0117 

200 

CONTINUE 

00479 

ISN 

0118 


IF( ICHORD .EQ. 1) GO TO 201 

00480 

ISN 

0120 


GO TO 202 

00481 

ISN 

0121 

201 

CLOCAL( 2, 1 ,IP) = 0. 

00482 

ISN 

0122 


CLOCALt 2 , 2 , IP ) = 1. 

00433 

ISN 

0123 


CLOCALf 2,3,IP) = 0. 

00484 



C 


00485 

ISN 

0124 


II = IP 

00486 

ISN 

0125 


IF( I .EQ. ISPAN) II = IP - 1 

00487 

ISN 

0127 


III =11+1 

00488 

ISN 

0123 


CALL BCOORD( II ,III,BLOCAL) 

00489 



C 


00490 

ISN 

0129 


DO 400 K = 1,3 

00491 

ISN 

0130 


DO 400 L = 1,3 

00492 

ISN 

0131 

400 

CLOCAL(K,L,IP) = BLOCAL(K.L) 

00493 

ISN 

0132 


GO TO 302 

00494 



C 


00495 

ISN 

0133 

202 

CONTINUE 

00496 



C 


00497 

ISN 

0134 


IIP=IP+1000 

00498 

ISN 

0135 


C LOCAL! 1 , 1 ,IP) = XI 

00499 

ISN 

0136 


CLOCAL( 1 ,2, IP) = X2 

00500 

ISN 

0137 


CLGCAL( 1,3, IP) = X3 

00501 

ISN 

0136 


CLOCALt 2 , 1 ,IP) = Y1 

00502 

ISN 

0139 


CLOCALt 2 , 2 , IP ) = Y2 

00503 

ISN 

0i40 


CLOCALt 2, 3, IP) = Y3 

00504 

ISN 

0141 


CLOCALt 3,1, IP) = Z1 

00505 

ISN 

0142 


CLOCALt 3, 2, IP) = Z2 

00506 

ISN 

0143 


CLOCALt 3, 3, IP) = Z3 

00507 

ISN 

0144 

302 

CONTINUE 

00508 



C 

WRITE(6,300) IP 

00509 



C300 

FORMATt 5X, 'CLOCAL FOR NODE 1 , 15) 

00510 



C 

WRITEt 6 1 301 )(( CLOCALt K , L, IP) ,L=1,3),K=1,3) 

00511 



C301 

FORMATt 5X.3E 12. 5) 

00512 



C 


00513 

ISN 

0145 

101 

IP = IP + 1 

00514 

ISN 

0146 

100 

CONTINUE 

00515 

ISN 

0147 


RETURN 

00516 

ISN 

0143 


END 

00517 


^OPTIONS IN EFF ECT*NANE ( MAIN ) 0PTIMIZE(3) LINECOUNT( 60 ) SIZE(MAX) AUT0DBL(DBL4) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
^STATISTICS* SOURCE STATEMENTS = 147, PROGRAM SIZE = 2588, SUBPROGRAM NAME =CORD2R 

*STATISTICS* HO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 2992K BYTES OF CORE HOT USED 
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REQUESTED OPTIONS: AUT0DBL(DBL4) .SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) OPTIHIZE(3) LINECOUNT( 60 ) SIZE(MAX) AUT0DBL(DBL4) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FUG(I) 


ISN 0002 


ISN 0003 
ISN 0004 
ISN 0005 
ISN 0006 
ISN 0007 
ISN 0008 
ISN 0009 


ISN 0010 
ISN 0011 
ISN 0012 


ISN 0013 
ISN 0014 
ISN 0015 
ISN 0016 
ISN 0017 
ISN 0018 
ISN 0019 


ISN 0020 
ISN 0021 
ISN 0022 
ISN 0023 
ISN 0024 
ISN 0025 
ISN 0026 

ISN 0027 
ISN 0028 
ISN 0030 


ISN 0032 
ISN 0033 
ISN 0034 
ISN 0035 
ISN 0036 
ISN 0037 
ISN 0038 
ISN 0039 
ISN 0040 
ISN 0041 


C 00518 

SUBROUTINE ESTIFF( ISEC.NC.NR , I ) 00519*35 

C 00520 

C THIS ROUTINE DETERMINES THE MATERIAL STIFFNESS MATRIX , E , 00521 

C FOR EACH BEAM . EVALUATED AT EACH END 00522 

C 00523 

IMPLICIT REAL*8(A-H,0-Z) 00524 

COMMON /ESTIF/ E(8,6) 00525 

COMMON /QIJ/ Ql 3.3,7) 00526 

COMMON /LAYER/ TH( 7,25 ) ,BMASS( 25 ) ,BSPAN( 25 ) ,BNIDTH( 25) 00527 

COMMON /INPUTT/ X( 1000 ) ,YY( 1000 ) ,Z( 1000 ) ,T( 1000 ) 00528*35 

COMMON /BLK 8/ SMB( 21 ) ,ITTLE( 18 ) , VARK 235) ,TMAX( 21 ) ,HALPHA( 21 ) 00529*35 

DIMENSION Y(8 ) 00530 

C 00531 

C DETERMINE THE LAYER THICKNESSES 00532 

Y( 1 ) = -CTH(l.I) + TH( 2, 1 ) + TH( 3,1 ) + TH(4,I)/2.) 00533 

DO 101 J = 2,8 00534 

101 Y(J) = Y(J-l) + TH( J-l ,1 ) 00535 

C 00536 

C FIND A11.A22 00537 

C 00538 

All = 0. 00539 

A22 = 0. 00540 

DO 102 J = 1,7 00541 

All = All + Q( 1 , 1 , J ) * (YU+1) - Y(J)) 00542 

102 A22 = A22 + Q(2,2,J) * (YU+1) - Y(J)) 00543 

All = All * EWIDTH(I) 00544 

A22 = A22 * BWIDTH(I) 00545 

C 00546 

C FIND B11.B13 00547 

C 00548 

Bll = 0. 00549 

B13 = 0. 00550 

DO 103 J = 1,7 00551 

Bll = Bll + Qtl.l.J) * (Y(J+1)**2 - Y(J )**2 ) 00552 

103 B13 = B13 + Q( 1 , 3, J ) * (Y(J+1)**2 - YU)**2) 00553 

Bll = Bll * BHIDTH(I) / 2. 00554 

B13 = B13 * BWIDTH(I) / 2. 00555 

C ROUND OFF BIJ VALUES TO ZERO IF LESS THAN 10. 00556 

CHECK = 10. 00557 

IF ( DABS ( El 1 ) .LT. CHECK) Bll = 0. 00558 

IF(DABS(B13) .LT. CHECK) B13 = 0. 00559 

C 00560 

C FIND D11.D33.D13 00561 

C 00562 

Dll = 0. 00563 

D13 = 0. 00564 

D33 = 0. 00565 

DO 104 J = 1,7 00566 

Dll = Oil + Q( 1 ,1 , J ) * (YU+1 )**3 - YU )**3) 00567 

D13 = 013 + Q( 1 ,3, J ) * (YU+1 )**3 - Y(J)**3) 00568 

104 D33 = D33 + Q(3,3,J) * (Y(J+1)**3 - Y(J)**3) 00569 

Dll = Dll * BNIDTH(I) / 3. 00570 

D13 = D13 * BNIDTH(I) / 3. 00571 

D33 = D33 * BWIDTH(I) / 3. 00572 
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C 

ROUND OFF D13 TO ZERO IF LESS THAN CHECK 

= 10. 

00573 

ISH 

0042 


IF(DABS(D13) .LT. CHECK) D13 = 0. 


00574 



C 



00575 



C 

WRITE(6 , 1 ) I, All, A22,B11,B13, 011,013,033 


00576 



Cl 

FORMAT! 5X, 'ESTIFF FOR BEAM' , 15, 5X, ‘ All ,A22 ,B1 1 ,B13,D11 ,D13,D33' , 

00577 



C 

1/,5X,7E10.3) 


00573 



c 



00579 



c 

FORM THE E MATRIX 


00580 



c 



00581 

ISN 

0044 


DO 105 J = 1,8 


00582 

ISN 

0045 


DO 105 JJ = 1,6 


00533 

ISN 

0046 

105 

E(J,JJ) = 0. 


00584 

ISN 

0047 


E ( 1 , 1 ) = All 


00585 

ISN 

0048 


Ed, 2) = 2. * B13 


00586 

ISN 

0049 


E(l, 3) = -Bll 


00537 

ISN 

0050 


E( 2, 1 ) = B13 


00533 

ISN 

0051 


TOTAL = Y(8) - Yd) 


00589 

ISN 

0052 


E( 2,2 ) = 4. * 033 


00590*37 



C 



00591*35 

ISN 

0053 


E( 2,3) = -D13 


00592 

ISN 

0054 


E( 3,1 ) = All 


00593 

ISN 

0055 


E( 3,2 ) = 2. * B13 


00594 

ISN 

0056 


EC 3,4 ) = -Bll 


00595 

ISN 

0057 


E(4,l ) = B13 


00596 

ISN 

0058 


E(4,2) = E( 2,2 ) 


00597 



c 



00598*35 

ISN 

0059 


E(4,4) = -D13 

1 

00599 

ISN 

0060 


E(5,l ) = -Bll 


00600 

ISN 

0061 


E( 5,2 ) = -2. * 013 


00601 

ISN 

0062 


E(5,3) = Dll 


00602 

ISN 

0063 


E(6,l) = -Bll 


00603 

ISN 

0064 


E(6 ,2 ) = -2. * D13 


00604 

ISN 

0065 


E(6,4) = Dll 


00605 

ISN 

0066 


E( 7,5 ) = BNIDTH( I )**2/12. * All 


00606 

ISH 

0067 


E(8,6 ) = E( 7,5 ) 


00607 



c 



00608*41 



c 

ROOT WARPNIG RESTRAINED ( (2,2) TERM HOT 

CHANGED ) 

00609*41 



c 



00610*41 

ISN 

0068 


IFdSEC .GT. 1) RETURN 


00611*41 

ISN 

0070 


Ed, 2) = Ed, 2) / 2. 


00612*41 

ISN 

0071 


E( 5,2 ) = E(5,2 ) / 2. 


00613*41 



c 



00614 



c 

CALL MATPRfKE, 8,6, ' E ') 


00615 



c 



00616 



c 



00617 

ISN 

0072 


RETURN 


00618 

ISN 

0073 


END 


00619 


^OPTIONS IN EFFECT*NAME(NAIN) OPTIMIZED) LINECOUNTt 60 ) SIZE(MAX) AUT0DBUDBL4) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FUG(I) 
^STATISTICS* SOURCE STATEMENTS = 72, PROGRAM SIZE = 1290, SUBPROGRAM NAME =ESTIFF 

^STATISTICS* NO DIAGNOSTICS GENERATED 
****** end OF COMPILATION ****** 


3C04K BYTES OF CORE NOT USED 
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REQUESTED OPTIONS: AUT0DBLIDBL4), SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNT( 60 ) SIZE(IIAX) AUTODBLt DBL4 ) 

SOURCE EECDIC NOLIST HODECK OBJECT NOMAP NOFCRMAT GOSTMT NQXREF NOALC NOANSF TERM IBM FUG(I) 


ISN 0002 


ISN 0003 
ISN 0004 
ISN 0005 
ISN 0006 
ISN 0007 

ISN 0003 
ISN 0009 
ISN 0010 
ISN 0011 
ISN 0012 

ISN 0013 

ISN 0014 
ISN 0015 
ISN 0016 
ISN 0017 


ISN 0018 
ISN 0019 
ISN 0020 

ISN 0021 
ISN 0022 
ISN 0023 
ISN 0024 
ISN 0025 
ISN 0026 
ISN 0027 
ISN 0028 
ISN 0029 
ISN 0030 
ISN 0031 
ISN 0032 
ISN 0033 
ISN 0034 
ISN 0035 
ISN 0036 
ISN 0037 
ISN 0038 
ISN 0039 
ISN 0040 
ISN 0041 


C 

SUBROUTINE EXNECK I B ) 

C 

C EXTENDED NECK STIFFNESS - RECTANGULAR - TITANIUM 
C 15 '/. THICK NECK 
C 

COMMON /STRS/ RBEE( 12, 12 ,25,21 ) ,FOUT( 12,21 ) ,SL( 25,21 ) ,SW( 25,21 ) 
COMMON /STIFF/ SK( 12 , 12 ) ,SKK( 12, 12 ,21 ) ,SMM(6,6,21 ) 

COMMON /BLKAA/ AA( 21 ) >XSC( 21 ) , YSC( 21 ) ,XXX( 42 ) 

COMMON /BLK12/ XBARX( 21 ) ,XIMAX(42 ) , YBARY( 21 ) >TLTA( 21 ) 

DIMENSION RBE( 12,12) ,RBET( 12, 12), 01(12, 12) 

C 

T = 0.15 * B 

RIMIN = B * T**3 / 12. 

RIMAX = B**3 * T / 12. 

TORS = B « T**3 / 3. - 0.21 * T**4 * Cl. - T*#4/12 ./B**4) 

TORS = RIMIN + RIMAX 
C 

TORS si.* TORS 
C 

E = 16.1E6 
G = 6.05E6 
BL = SL( 1,1) 

AREA = B * T 
C 

C URITEI 6, 10 ) B,T, RIMIN, RIMAX, TORS, E,G,BL, AREA 

CIO F0RMAT(5X,'B, T, RIMIN, RIMAX, TORS, E.G.BL, AREA', /,5X,9E12. 5) 

C 

C FILL IN STIFFNESS ARRAY , SK 
C 

DO 100 I = 1,12 
DO 100 J = 1,12 
100 SK(I.J) = 0. 

C 

SK(1,1) = AREA x E / BL 
SK( 1,7) = -SK( 1,1) 

SKI 2,2) = 12. x E x RIMAX / BL**3 
SK ( 2 , 6 ) = 6. x E x RIMAX / BL*X2 
Sl< ( 2 , 8 ) = -SKI 2,2 ) 

SK( 2, 12 ) = SKI 2,6 ) 

SKI 3,3) = 12. x E x RIMIN / BL**3 
SKI 3,5) = - 6 . x E x RIMIN / BL«*2 
SKI 3,9 ) = -SKI 3,3) 

SKI 3,11) = SKI 3,5 ) 

SKI 4, 4) = TORS x G / BL 
SKI4.10) = -SKI4.4) 

SKI5.5) = 4. x E x RIMIN / BL 
SKI 5, 9) = -SKI 3, 11 ) 

SKI5.11) = 2. x E x RIMIN / BL 
SKI 6 ,6 ) = 4. x E x RIMAX / BL 
SK 1 6 , 8 ) = -SKI 2, 12 ) 

SKIS, 12) = 2. x E x RIMAX / BL 
SKI 7,7 ) = SKI 1,1) 

SKI 8, 8 ) = SKI 2,2 ) 

SKIS, 12) = -SKI 2,12) 


00620 

00621*39 

00622X39 

00623X39 

00624X39 

00625X39 

00626x39 

00627X39 

00628X39 

00629X39 

00630X39 

00631X39 

00632X39 

00633X39 

00634X39 

00635X39 

00636X39 

00637X41 

00638X41 

00639X41 

00640X39 

00641X39 

00642X39 

00643X39 

00644X39 

00645X40 

00646X40 

00647*39 

00648X39 

00649X39 

00650X39 

00651X39 

00652X39 

00653X39 

00654X39 

00655x39 

00656X39 

00657X39 

00658X39 

00659X39 

00660X39 

00661X39 

00662X39 

00663*39 

00664*39 

00665*39 

00666*39 

00667*39 

00668*39 

00669*39 

00670*39 

00671*39 

00672*39 

00673*39 

00674*39 
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ISN 0042 


SK( 9,9) = SK (3,3) 

00675*39 

ISM 0043 


SK( 9,11) = -SK( 3, 11 ) 

00676*39 

ISN 0C44 


SKI 10,10) = SK( 4,4 ) 

00677*39 

ISM 0045 


SKI 11,11) = SK(5,5) 

00678*39 

ISN 0046 


SKI 12,12) = SK(6,6 ) 

00679*39 


C 


00680*39 


c 

SYMMETRY CONDITION 

00631*39 


c 


00682*39 

ISN 0047 


DO 110 I = 1,12 

00633*39 

ISN 0048 


DO 110 J = 1,12 

00684*39 

ISN 0049 


IF( J .GE. I) GO TO 110 

00685*39 

ISN 0051 


SK( I, J ) = SK(J,I) 

00686*39 

ISN 0052 

no 

CONTINUE 

00687*39 


c 


00682*39 


c 

CALL MATPRNI SK, 12,12, 'SKRT" ) 

00689*40 


c 


' 00690*39 


c 

TRANSLATE TO CG LOCATION 

00691*39 


c 


00692*39 

ISN 0053 


DZ = XSC( 2 ) - XBARXI2) 

00693*46 

ISN 0054 


DY = YBARY(2) - YSC(2) 

00694*46 


c 

NRITE(6> 11 ) DZ.DY 

00695*40 


Cll 

FORMAT! 5X, •DZ.DY' , 2E12.5 ) 

00696*40 


c 


00697*39 

ISN 0055 


DO 200 I = 1,12 

00693*39 

ISN 0056 


DO 200 J = 1,12 

00699*39 

ISN 0057 


RBE(I,J) = 0. 

00700*39 

ISN 0058 


I F ( I .EQ. J) RBE(I,J) = 1. 

00701*39 

ISN 0060 

200 

CONTINUE 

00702*39 


c 


00703*39 

ISN 0061 


RBEI1.5) = DZ 

00704*39 

ISN 0062 


RBE( 1,6) = -DY 

00705*39 

ISN 0063 


RBE( 2,4 ) = -DZ 

00706*39 

ISN 0064 


RBEI3.4) = DY 

00707*39 

ISN 0065 


RBE( 7, 1 1 ) = DZ 

00703*39 

ISN 0066 


RBE( 7,12) = -DY 

00709*39 

ISN 0067 


RBE( 8, 10 ) = -DZ 

00710*39 

ISN 0068 


RBE( 9, 10 ) = DY 

00711*39 


c 


00712*39 


c 

CALL MATPRN(RBE,12,12, 'RBE ') 

00713*40 


c 


00714*39 


c 

RBE TRANSPOSE , RBET 

00715*39 


c 


00716*39 

ISN 0069 


DO 210 I = 1,12 

00717*39 

ISN 0070 


DO 210 J = 1,12 

00718*39 

ISN 0071 

210 

RBET(I.J) = RBE( J > I ) 

00719*39 


c 

CALL MATPRN( RBET, 12, 12, 'RBET' ) 

00720*40 


c 


00721*39 

ISN 0072 


CALL MATMPYI SK.RBE.Dl ,12,12,12) 

00722*39 

ISN 0073 


CALL MATMPY ( RBET , D 1 , SK , 1 2 , 1 2 , 12 ) 

00723*39 


c 


00724*39 


c 

CALL MATPRN( SK, 12, 12, 'SKRT' ) 

00725*40 


c 


00726*39 

ISN 0074 


RETURN 

00727*39 

ISN 0075 


END 

00728*39 


^OPTIONS IN EFFECT *NAME ( MAIN ) OPTIMIZED) LINEC0UNT(60 ) SIZE(MAX) AUT0DBL(DBL4) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
’‘STATISTICS^ SOURCE STATEMENTS = 74, FROGRAM SIZE = 4850, SUBPROGRAM NAME =EXNECK 

’‘STATISTICS* NO DIAGNOSTICS GENERATED 
****** END OF COMPILATIGM ****** 


3004K BYTES OF CORE NOT USED 
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REQUESTED OPTIONS: AUTGDBL! DBL4) > SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) CPTIMIZE(3) LINECOUNT( 60 ) SIZE(MAX) AUTOD3L1 DBL4 ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 


* 




c 





00729*39 



c 





00730 

ISN 

0002 


SUBROUTINE FRPM! J, IP, X.Y.BMASS, RPM, FBEAM, 

B LOCAL) 



00731 



c 





00732 



c 

CALCULATING THE FORCES DUE TO RPM ON NODE 

IP FOR 

BEAM 

J 

00733 



c 





00734 

ISN 

0003 


DOUBLE PRECISION X( 1 ) , Y( 1 ) ,BMASS( 1 ) ,RPM, FBEAM16, 

1 ) ,BLOCAL( 3, 3 ) 

00735 

ISN 

0004 


DOUBLE PRECISION F( 3, 1 ) ,FF( 3, 1 ) , A( 6 ) 




00736 



c 





00737 

ISN 

0005 


DO 100 K = 3,6 




00738 

ISN 

0006 


A(K ) = 0. 




00739 

ISN 

0007 

100 

FBEAM(K.l) = 0. 




00740 



c 





00741 



c 

NONZERO ACCELERATION COMPONENTS 




00742 



c 





00743 

ISN 

0008 


A( 1 ) = RPN**2 * X(IP) 




00744 

ISN 

0009 


A(2) = RPM**2 * Y( IP ) 




00745 



c 





00746 



c 

FORCES 




00747 



c 





00748 

ISN 

0010 


F( 1 , 1 ) = BMASSt J )/2. * A(l) 




00749 

ISN 

0011 


F( 2 , 1 ) = BMASS( J)/2. * A(2) 




00750 

ISN 

0012 


F( 3, 1 ) = 0. 




00751 



c 

NRITE( 6 ,20 ) J,IP 




00752 



C20 

FORMAT! 5X, ■** IN FRPM-GLOBAL RPM LOADS AT 

BEAM, END' ,215) 

00753 



C 

CALL MATPRN( F ,3, 1 , ‘ F * ) 

1 



00754 



c 





00755 



c 

TRANSFORM TO LOCAL BEAM COOR. SYSTEM 




00756 



c 





00757 

ISN 

0013 


CALL MATMPY(BLOCAL,F,FF ,3,3,1) 




00753 



c 





00759 



c 

INSERT INTO FBEAM 




00760 



C 





00761 

ISN 

0014 


DO 200 K = 1,3 




00762 

ISN 

0015 

200 

FBEAM(K.l) = FF(K, 1 ) 




00763 



C 

HRITE(6,1) J,IP 




00764 



Cl 

FORMAT! 5X, ' ** IN FRPM **,BEAM AND NODE 1 , 

215) 



00765 



c 

WRITE! 6, 2) RPM,BMASS( J ) ,A( 1 ),A(2) 




00766 



C2 

FORMAT! 5X, 'RPM.BMASS, A1 , A2 • ,4E10 . 3 ) 




00767 



c 

CALL MATFRN! FBEAM, 6 , 1 , 1 FBEM' ) 




00768 



c 





00769 

ISN 

0016 


RETURN 




00770 

ISN 

0017 


END 




00771 

^OPTIONS IN 

EFF ECT*NAME ( MAIN ) OPTIMIZED) LIHECOUNT(60 ) SIZE(MAX) AUTODBL( DBL4 ) 


^OPTIONS IN 

EFFECT*SOURCE EBCDIC NOLIST NODECK 03JECT NOMAP NOFORMAT GOSTMT 

NOXREF NOALC NOANSF TERM IBM FUG! I) 

^STATISTICS* 

SOURCE STATEMENTS = 16, PROGRAM SIZE = 

706, 

SUBPROGRAM NAME 

= FRPM 

^STATISTICS* 

NO DIAGNOSTICS GENERATED 






♦cWXx** END OF 


COMPILATION ****** 


30I6K BYTES OF CORE NOT USED 


O 
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REQUESTED OPTIONS: AUT00BL(DBL4) .SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINEC0UNT(60 ) SIZE(MAX) AUT0DBL(DBL4) 

SOURCE EBCDIC NOLIST NODECK OBJECT N011AP HOFORHAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 

C 00772 


ISN 0002 


SUBROUTINE HOLZER( LL,NR,NC,RPM) 

00773 


C 


00774 


c 

THIS ROUTINE CALCULATES ALL SECTION STIFFNESSES AND MASSES 

00775 


c 

AND THEN TRANSFORMS THESE' INTO HOLZER MATRICES 

00776 


c 


00777 

ISN 0003 


IMPLICIT REAL#8(A-H,0-Z) 

00778 

ISN 0004 


COMMON /STIFF/ SK( 12, 12 ) ,SKK( 12, 12,21 ) ,SMM(6 ,6,21 ) 

00779 

ISN 0005 


COMMON /REORDR/ P( 12 , 12 ) ,PT( 12 , 12 ) 

00760 

ISN 0006 


COMMON /HSTIFF/ SKP( 12, 12) ,SKPP( 12, 12 ,21 ) 

00781 

ISN 0007 


COMMON /INPUTT/ X( 1000 ) ,Y( 1000 ) ,Z( 1000 ) ,T( 1000 ) 

00782 

ISN 0008 


DIMENSION SK11(6,6),SK12(6,6),5K21(6,6),SK22(6,6) 

00783 

ISN 0009 


DIMENSION RL(6).RM(6),SK1(6,6),D1(12,12),DD(6,6) 

00784 


c 


00785 


c 

BEGIN THE SECTION STIFFNESS SOLUTION .MATRIX SK 

00786 


c 


00787 

ISN 0010 


NRM1 = NR - 1 

00788 

ISN 0011 


ISKIP = 1 

00789 

ISN 0012 


00 200 I = 1.NRM1 

00790 

ISN 0013 


IF( LL .EQ. 1) GO TO 99 

00791 

ISN 0015 


GO TO 98 

00792 


c 


00793 


c 

GENERATE THE SECTION STIFFNESS , SK 

00794 


c 

SECTION MASS , SMM 

00795 


c 

THE BEAM THICKNESSES .MASSES AND LENGTHS ARE CALCULATED 

00796 


c 

THE HARPING FUNCTION WILL ALSO BE EVALUATED 

00797 


c 


00793 

ISN 0016 

99 

CALL THICK! I, NS, NC.X.Y.Z.T, ISKIP) 

, 00799 

ISN 0017 


IF (I .EQ. 1) CALL WARP( I.NR.NC) 

00800 

ISN 0019 


II = I + 1 

00801 

ISN 0020 


CALL WARP(II,NR,NC) 

00802 

ISN 0021 


CALL SECTN(I.NR.NC.RPM) 

00803 

ISN 0022 


GO TO 97 

00804 


C 


00805 


C 

THIS SECTION IS FOR SECOND STATIC ANALYSIS WITH PRESTRESS 

00806 


C 


00807 

ISN 0023 

98 

CONTINUE 

00608 

ISN 0024 


DO 100 J = 1,12 

00809 

ISN 0025 


DO 100 K = 1,12 

00310 

ISN 0026 

100 

SK(J,K) = SKK( J »K , I ) 

00811 

ISN 0027 

97 

CONTINUE 

00812 


C 

CALL MATPRN(SK,12,12, 1 SK ’) 

00613 


C 


00814 


C 

PARTITION THE SECTION STIFFNESS MATRIX ,SK, INTO: 

00315 


C 

SK11 , SK12 , SK21 , SK22 

00816 


C 


00817 

ISN 0028 


CALL PARTN( SK, 12, 12.SK11 ,SK12,SK21 ,SK22 . 6,6) 

00818 


C 


00319 


C 

INVERT SKI 2 

00820 


C 


00821 

ISN 0029 


CALL MINV(SK12,6,D,RL,RM) 

00822 


C 


00823 


c 

FORM THE SKP MATRIX FROM PARTITIONED SK COMPONENTS 

00824 


c 


00825 

ISN 0030 


CALL MATMPY( SK12.SK11 ,SK1 ,6 ,6,6 ) 

00326 
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C 




00827 



C 

CHANGE SIGN OH UPPER QUARTER OF SKP 



00823 



C 




00829 

ISN 

0031 


DO 115 K = 1,6 



00830 

ISN 

0032 


DO 115 L = 1,6 



00831 

ISN 

0033 

115 

SKP(K.L) = -SK1(K,L) 



00332 



C 




00833 

ISN 

0034 


DO 116 K = 1,6 



00834 

ISN 

0035 


DO 116 L = 7,12 



00835 

ISN 

0036 


LM = L - 6 



00836 

ISN 

0037 

116 

SICP(K.L) = SK 1 2 ( K , LM ) 



00837 



C 




00338 



C 

THE SIGN OH SKP21 AND SKP22 ARE NEGATIVE 

FOR 

EQUIL. 

00839 



C 




00840 

ISN 

0038 


CALL MATMPY( SK22 ,SK1 , SKI 1 ,6,6,6) 



00841 

ISN 

0039 


DO 117 K = 7,12 



00842 

ISN 

0040 


KK = K - 6 



00843 

ISN 

0041 


DO 117 L = 1,6 



, 00344 

ISN 

0042 

117 

SKP(K,L) = SKll(KK.L) - SK2KKK.L) 



00845 



C 




00846 

ISN 

0043 


CALL MATMPY( SK22 ,SK12,SK1 ,6,6,6 ) 



00847 



C 




00848 

ISN 

0044 


DO 125 K = 7,12 



00349 

ISN 

0045 


KK = K - 6 



00850 

ISN 

0046 


JJ = 1 



00351 

ISN 

0047 


DO 125 L = 7,12 



00852 

ISN 

0046 


SKP(K,L) = -SKl(KK.JJ) 



00853 

ISN 

0049 

125 

JJ = JJ + 1 



00854 



C 




00855 



C 

FILL THE SKPP ARRAY WITH THE SKP MATRIX, 

THIS SAVES SKP 

00856 



C 




00857 

ISN 

0050 


DO 165 K = 1,12 



00358 

ISN 

0051 


DO 165 L = 1,12 



00859 

ISN 

0052 

165 

SKPP(K, L,I ) = SKP(K,L) 



00860 



C 




00861 



C 

NRITE( 6 , 101 ) I 



00862 



C101 

F0RMAT(/,5X, *SKP IS THE HOLZER STIFFNESS 

FOR 

SECTION' ,15) 

00863 



C 

CALL MATPRN( SKP, 12,12, 'SKP ') 



00864 



c 




00865 

ISN 

0053 

200 

CONTINUE 



00866 



C 




00867 

ISN 

0054 


RETURN 



00868 

ISN 

0055 


END 



00869 


^OPTIONS IN EFFECT*NAME( MAIN ) OPTIMIZED) LINECOUNTt 60 ) SIZE(MAX) AUTODBL(DBU) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
^STATISTICS* SOURCE STATEMENTS = 54, PROGRAM SIZE = 2792, SUBPROGRAM NAME =HOLZER 

^STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 3004K BYTES OF CORE NOT USED 
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REQUESTED OPTIONS: AUT0DBUDBL4 ) .SOURCE 

OPTIONS IN EFFECT: NAME(MAIN) OPTIMIZED) LINECCUNT(60) SIZE(MAX) AUTODBH DDL4 ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 



C 


00870 

ISN 0002 


SUBROUTINE INPUT (NR, NC) 

00371 


c 


00372 


c 

MATERIAL FROERTIES AND GEOMETRY INPUT 

00S73 


c 


00874 

ISN 0003 


IMPLICIT REAL*8( A-H,Q-Z) 

00375 

ISN 0004 


COMMON /ZCOEF/ Ell( 7 ) ,E22( 7) ,E33( 7) ,G12( 7),G23( 7) ,G13( 7) » 

00676 



1 V12(7),V13(7),V23(7) 

00877 

ISN 0005 


COMMON /PLY1/ PLY( 21 ,25, 7) ,THETA( 7) ,RHO( 7) 

00878 

ISN 0006 


COMMON /FAIL/ X1T( 7) .X1C( 7) ,X2T(7 ) ,X2C( 7),S6P( 7) ,S6M( 7) ,TSAI(8, 

,25)00379*35 


c 


00830 


c 

WRITE! 8,1) 

00381 


Cl 

FORMAT( 5X, ' IS THIS AN ISOTROPIC BLADE, 1=YES' ) 

00882 


c 

READ(8,#) ISO 

00383 


c 

IF( ISO .NE. 1) GO TO 2 

00884 


c 


00885 


c 

ISOTROPIC BLADE 

00886 


c 


00887 


c 

WRITE(8,3) 

00838 


C3 

FORMAT! 5X, ' INPUT-E( PSI ) ,V AND DENSITY! LB/IN3) .FREE FORMAT') 

00889 


C 

READ(8,*) E,V,R 

00890 

ISN 0007 


E = 16100000. 

00891 

ISN 0008 


V = .33 

00892 

ISN 0009 


R = .16 

00893 

ISN 0010 


DPLY = 1. / 7. 

00894 

ISN 0011 


YIELD = 110000. 

00895*35 

ISN 0012 


SHEAR = 0.577 * YIELD 

00396*36 

ISN 0013 


DO 100 I = 1,7 

00897 


C 


00893*35 

ISN 0014 


X1T(I) = YIELD 

00899*35 

ISN 0015 


X1C(I) = YIELD 

00900*35 

ISN 0016 


X2T( I ) = YIELD 

00901*35 

ISN 0017 


X2C( I ) = YIELD 

00902*35 

ISN 0013 


S6P( I ) = SHEAR 

00903*35 

ISN 0019 


S6M( I ) = SHEAR 

00904*35 

ISN 0020 


Ell(I) = E 

00905 

ISN 0021 


E22( I ) = E 

00906 

ISN 0022 


E33( I ) = E 

00907 

ISN 0023 


G12( I ) = E / 2. / (1. + V) 

00908 

ISN 0024 


G 1 3 ( I ) = G12( I ) 

00909 

ISN 0025 


G23( I ) = G12( I ) 

00910 

ISN 0026 


VI 2(1) = V 

00911 

ISN 0027 


V13( I) = V 

00912 

ISN 0028 


V23( I ) = V 

00913 

ISN 0029 

100 

RHO(I) = R / 386.4 

00914 

ISN 0030 


RHQ( 3 ) = 0. 

00915*35 

ISN 0031 


Ell( 3) = 0. 

00916*35 

ISN 0032 


RH0(4) = 0. 

00917*35 

ISN 0033 


Ell(4) = 0. 

00918*35 

ISN 0034 


RHO( 5 ) = 0. 

00919*35 

ISN 0035 


Ell(5) = 0. 

00920*35 


C 


00921*39 


c 

INPUT MATERIAL STUFF FOR TI/BORON LAYER 

00922*39 


c 


00923*39 

ISN 0036 


E1K2) = 33.2E6 

00924*41 
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ISN 

0037 


Ell( 6 ) = 

Ell( 2 ) 

00925*41 

ISN 

0033 


E22( 2 ) = 

29.0E6 

00926*41 

ISN 

0039 


E22( 6 ) = 

E22( 2 ) 

00927*41 

ISN 

0040 


E33( 2 ) = 

E 2 2 ( 2 ) 

00928*41 

ISN 

0041 


E33(6) = 

E33( 2 ) 

00929*41 

ISN 

0042 


G 1 2 ( 2 ) = 

22.5E6 

00930*41 

ISN 

0043 


G12( 6 ) = 

G12( 2 ) 

00931*41 

ISN 

0044 


G13( 2 ) = 

G12( 2 ) 

00932*41 

ISN 

0045 


G13( 6 ) = 

G13( 2 ) 

00933*41 

ISN 

0046 


G2312) = 

G 1 2 ( 2 ) 

00934*41 

ISN 

0047 


G23( 6 ) = 

G23( 2 ) 

00935*41 

ISN 

0048 


V12( 2 ) = 

0.3 

00936*41 

ISN 

0049 


V12( 6 ) = 

0.3 

00937*41 

ISN 

0050 


RHO( 2 ) = 

.000336 

00938*41 

ISN 

0051 


RHO( 6 ) = 

RHQ( 2 ) 

00939*42 

ISN 

0052 


V13( 2 ) = 

V12( 2 ) 

00940*41 

ISN 

0053 


V13(6 ) = 

V13( 2 ) 

00941*41 

ISN 

0054 


V23( 2 ) = 

V12( 2 ) 

00942*41 

ISN 

0055 


V23( 6 ) = 

V23( 2 ) 

00943*41 



C 

THETA( 2 ) 

= 35. /180. * 3.14159265 

00944*39 



C 

THETA( 6 ) 

= THETAt 2 ) 

00945*39 

ISN 

0056 


YIELD1 = 

170000. 

00946*41 

ISN 

0057 


YIELD2 = 

50000. 

00947*41 

ISN 

0058 


YIELDS = 

30000. 

00948*41 

ISN 

0059 


X1T( 2 ) = 

YIELOl 

00949*41 

ISN 

0060 


X1T( 6 ) = 

YIELD1 

00950*41 

ISN 

0061 


X1C( 2 ) = 

YIELDl 

00951*41 

ISN 

0062 


X1C( 6 ) = 

YIELD 1 

00952*41 

ISN 

0063 


X2T( 2 ) = 

YIELD2 

00953*41 

ISN 

0064 


X2T(6 ) = 

YIELD2 

00954*41 

ISN 

0065 


X2C( 2 ) = 

YIELD2 

00955*41 

ISN 

0066 


X2C(6 ) = 

YIELD2 

00956*41 

ISN 

0067 


S6P( 2) = 

YIELDS 

00957*41 

ISN 

0068 


S6P( 6 ) = 

YIELDS 

00958*41 

ISN 

0069 


S6M( 2 ) = 

YIELDS 

00959*41 

ISN 

0070 


S6M(6) = 

YIELDS 

00960*41 



c 



00961*41 



c 



00962 



c 



00963 

ISN 

0071 


RETURN 


00964 

ISN 

0072 


END 


00965 


^OPTIONS IN EFFECT*NAME ( MAIN ) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUT0D3U DBL4 ) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG! I) 
^STATISTICS* SOURCE STATEMENTS = 71, PROGRAM SIZE = 936, SUBPROGRAM NAME = INPUT 

^STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 3004K BYTES OF CORE NOT USED 
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REQUESTED OPTIONS: AUTODBUDBL4 ) .SOURCE 
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C 


00966 

ISN 0002 


SUBROUTINE KDGG( ISEC.FF. FOUT1 , OSKK ) 

00967 


c 


00968 


c 

CALCULATES THE DIFFERENTIAL STIFFNESS MATRIX FOR SECTION 

00969 


c 

ISEC , DSKK. (SEE THE NASTRAN THEORETICAL MANUAL FOR 

00970 


c 

EXPLANATION 7.2-8) 

00971 


c 


00972 

ISN 0003 


IMPLICIT REAL*8(A-H,0-Z) 

00973 

ISN 0004 


COMMON /SC/XSC( 21 ) . YSC( 21 ) ,ZSC( 21 ), ALPHA! 21 ) ,SECIP( 21 ) ,SECA( 21 ) 

00974 

ISN 0005 


DIMENSION FF( 12. 1 ) .F0UT1( 12.1 ) .DSK( 12.12 ) >OSKK( 12.12.20) 

00975 

ISN 0006 


REAL MYA.MYB.MZA.MZB 

00976 


c 


00977 


c 

CALCULATE SECTION LENGTH ,SL. 

00978 


c 


00979 

ISN 0007 


X = XSC( ISEC+1 ) - XSC(ISEC) 

00980 

ISN 0008 


Y = YSC( ISEC+1) - YSC(ISEC) 

00981 

ISN 0009 


Z = ZSC( ISEC+1) - ZSC(ISEC) 

00982 

ISN 0010 


SL = OSQRT( X**2 + Y**2 + Z**2 ) 

00983 


c 


00984 


c 

DEFINE TERMS COMSISTANT WITH NASTRAN TERMINOLOGY 

00985 


c 


00986 

ISN 0011 


FX = FOUTK7.1) 

00987 

ISN 0012 


VY = FOUT 1(8,1 ) 

00983 

ISN 0013 


VZ = FOUT1 ( 9,1) 

00989 

ISN 0014 


MYB =-FF( 11.1) 

00990 

ISN 0015 


MYA =-FOUTl( 11,1) 

00991 

ISN 0016 


MZB =-FF( 12,1) 

00992 

ISN 0017 


MZA =-FOUTl ( 12,1) 

00993 


c 


00994 


c 

THE STIFFNESS TERMS IN THE DSKK MATRIX HAVE BEEN SET TO ZERO 

00995 


c 

BECAUSE THE MOMENT OF INERTIA TERM IS UNKNOWN FOR A COMPOSITE 

00996 


c 


00997 

ISN 0018 


DO 100 I = 1,12 

00998 

ISN 0019 


DO 100 J = 1,12 

00999 

ISN 0020 

100 

DSKK(I, J.ISEC) = 0. 

01000 


c 


01001 

ISN 0021 


DSKKl 2 , 2 , ISEC ) = 6./5./SL * FX 

01002 

ISN 0022 


DSKK( 2.4.ISEC) = -MYB / SL 

01003 

ISN 0023 


DSKK( 2,6 , ISEC ) = FX / 10. 

01004 

ISN 0024 


DSKK( 2 ,8, ISEC ) = -DSKK( 2,2 , ISEC ) 

01005 

ISN 0025 


DSKK( 2 , 10, ISEC ) = -MYA / SL 

01006 

ISN 0026 


DSKK( 2 , 12 , ISEC ) = FX / 10. 

01007 

ISN 0027 


DSKK( 3, 3, ISEC ) = DSKK( 2,2 , ISEC) 

01008 

ISN 0023 


DSKK(3,4,ISEC) = -MZB / SL 

01009 

ISN 0029 


DSKK(3,5,ISEC) = -FX / 10. 

01010 

ISN 0030 


DSKK( 3,9,ISEC ) = -DSKK( 2 ,2 ,ISEC ) 

01011 

ISN 0031 


OSKK( 3, 10 , ISEC) = -MZA / SL 

01012 

ISN 0032 


DSKK( 3, 1 1 > ISEC ) = -FX / 10. 

01013 

ISN 0033 


DSKK(4,4»ISEC) = SECIP(ISEC) * FX / SECA(ISEC) / SL 

01014 

ISN 0034 


DSKK(4,5,ISEC) = - SL * VY / 6. 

01015 

ISN 0035 


DSKK(4,6,ISEC) = - SL * VZ / 6. 

01016 

ISN 0036 


DSKK(4,8,ISEC) = MYB / SL 

01017 

ISN 0037 


DSKK(4,9,ISEC ) = MZB / SL 

01018 

ISN 0038 


D3KK( 4,10, ISEC ) = - DSKK(4,4,ISEC) 

01019 

ISN 0039 


DSKK( 4 , 1 1 , ISEC ) = SL * VY / 6. 

01020 
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ISN 

0040 


DSKK( 4, 12 , ISEC ) = SL * VZ / 6. 

01021 

ISN 

0041 


DSKK(5,5,ISEC) = SL / 7.5 * FX 

01022 

ISN 

0042 


DSKK(5, 9, ISEC ) = FX / 10. 

01023 

ISN 

0043 


DSKK( 5, 10, ISEC ) = SL * VY / 6. 

01024 

ISM 

0044 


DSKKt 5 , 11 , ISEC ) = - SL / 30. * FX 

01025 

ISN 

0045 


DSKK( 6 ,6, ISEC ) = SL / 7.5 * FX 

01026 

ISN 

0046 


DSKK(6,8,ISEC) = -FX / 10. 

01027 

ISN 

0047 


DSKK( 6, 10 , ISEC) = SL * VZ / 6. 

01026 

ISN 

0046 


DSKK( 6 , 12, ISEC) = - SL / 30. * FX 

01029 

ISN 

0049 


DSKK(8,8,ISEC) = DSKK(2,2,ISEC) 

01030 

ISN 

0050 


DSKK( 8, 10 > ISEC ) = MYA / SL 

01031 

ISN 

0051 


DSKK( 8, 12, ISEC ) = -FX / 10. 

01032 

ISN 

0052 


DSKK( 9, 9, ISEC ) = DSKK(2,2,ISEC) 

01033 

ISN 

0053 


DSKK( 9,10, ISEC) = MZA / SL 

01034 

ISN 

0054 


DSKK( 9,11, ISEC) = FX / 10. 

01035 

ISN 

0055 


DSKK( 10, 10, ISEC) = DSKK(4,4,ISEC) 

01036 

ISN 

0056 


DSKK( 10,11 , ISEC) = - SL / 6. * VY 

01037 

ISN 

0057 


DSKK( 10,12, ISEC) = - SL / 6. * VZ 

01038 

ISN 

0058 


DSKK( 11,11, ISEC ) = SL / 7.5 * FX 

01039 

ISN 

0059 


DSKK( 12, 12, ISEC) = SL / 7.5 * FX 

01040 



C 


01041 

ISN 

0060 


DO 110 I = 1,12 

01042 

ISN 

0061 


DO 110 J = 1,12 

01043 

ISN 

0062 


IF( J .LE. I ) GO TO 110 

01044 

ISN 

0064 


DSKK(J,I,ISEC) = DSKKt I, J, ISEC ) 

01045 

ISN 

0065 

110 

CONTINUE 

01046 



C 


01047 

ISN 

0066 


DO 200 I = 1,12 

01048 

ISN 

0067 


DO 200 J = 1,12 

01049 

ISN 

0068 

200 

DSK(I.J) = DSKKt I, J, ISEC) 

01050 



C 

CALL MATPRNtDSK, 12, 12, 'DSKK' ) 

01051 



C 


01052 

ISN 

0069 


RETURN 

01053 

ISN 

0070 


END 

01054 


^OPTIONS IN EFFECT* NAME (MAIN) OPTIHIZE(3) LINECOUNT(60 ) SIZE(MAX) AUTCDBL(DBL4) 

^OPTIONS IN EFFECT*SOURCE EBCDIC HOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
^STATISTICS* SOURCE STATEMENTS = 69, PROGRAM SIZE = 2544, SUBPROGRAM NAME = KDGG 

#STATISTICS* NO DIAGNOSTICS GENERATED 
****** END OF COMPILATION ****** 


3004K BYTES OF CORE NOT USED 
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C 


01055 

ISN 0002 


SUBROUTINE LAMINA 

01056 


c 


01057 


c 

THIS ROUTINE GENERATES THE LAMINA STRESS-STRAIN MATRIX , Q 

01058 


c 


01059 

ISN 0003 


IMPLICIT REAL*8( A-H.O-Z) 

01060 

ISN 0004 


COMMON /ZCOEF/ Ell( 7 ) ,E22( 7 ) ,E33( 7) ,G12( 7) ,G23( 7) ,G13( 7) , 

01061 



1 V12(7).V13(7),V23(7) 

01062 

ISN 0005 


COMMON /PLY1/ PLY( 21 .25.7) >THETA( 7 ) .RHO( 7) 

01063 

ISH 0006 


COMMON /QIJ/ Q( 3,3,7) 

01064 


c 


01065 

ISN 0007 


N = 7 

01066 

ISN 0003 


DO 100 I = 1,N 

01067 

ISN 0009 


URITE(6,1) I 

01068 

ISN 0010 

1 

FORMAT!/, 5X» 1 LAMINA, LAYER ’,14,/) 

01069 


c 


01070*34 


c 

CHECK FOR HOLLOW LAYER 

01071*34 


c 


01072*34 

ISN 0011 


IF(EIKI) .EQ. 0. ) GO TO 200 

01073*34 


c 

DETERMINE THE POISSON RATIOS 

01074 

ISN 0013 


V21 = V12( I ) * E22( I ) / Ell(I) 

01075 

ISN 0014 


V31 = VI 3 ( I ) * E33C I ) / Ell(I) 

01076 

ISN 0015 


V32 = V23( I ) * E33( I ) / E22(I) 

01077 


c 


01078 

ISN 0016 


DET = 1. - V12( I )*V21 - V13( I )*V31 - V23(I)*V32 - 

01079 



1 V21*V13( I )*V32 - V31*V12(I)*V23(I) 

01080 

ISN 0017 


WRITE! 6, 2) V21 ,V31 ,V32 ,DET 

01081 

ISN 0013 

2 

FORMAT! 5X.4E12 .5,/ ) 

01082 


C 


01083 

ISH 0019 


Cll = Ell(I) * (1. - V23( I )*V32 ) / DET 

01084 

ISN 0020 


C12 = E22( I ) * ( V12( I ) + V13( I )*V32 ) / DET 

oloes 

ISN 0021 


C13 = E33( I ) * ( V13( I ) + V12(I)*V23(I)) / DET 

01086 

ISN 0022 


C22 = E 2 2 ( I ) * (1. - V13(I)*V31) / DET 

01087 

ISN 0023 


C23 = E22( I ) * (V32 + V31*V12(I)) / DET 

01088 

ISN 0024 


C33 = E33( I ) * (1. - V12!I)*V21) / DET 

01039 

ISN 0025 


C44 = G23( I ) 

01090 

ISN 0026 


C55 = G1 3(1) 

01091 

ISN 0027 


C66 = G12( I ) 

01092 

ISN 0028 


WRITE! 6,3) Cll ,C12,C13 

01093 

ISN 0029 

3 

FCRMAT(5X,3E12.5) 

01094 

ISN 0030 


WRITE! 6,4) C22.C23 

01095 

ISH 0031 

4 

FORMAT! 17X.2E12.5) 

01096 

ISN 0032 


WRITE! 6, 5) C33 

01097 

ISN 0033 

5 

FORMAT! 29X, E12 .5,/) 

01093 


C 


01099 


C 

ROTATE THRU ANGLE THETA (I) ABOUT THE 3 AXIS 

01100 


C 


01101 

ISN 0034 


C =DCOS( THETA! U ) 

01102 

ISN 0035 


S =DSIN( THETA! I ) ) 

01103 


C 


01104 

ISH 0036 


CPU = C**4*C11 + 2.*C**2*S**2*(C12+2.*C66) + S**4*C22 

01105 

ISN 0037 


CP12 = C**2*S**2*(C11+C22-4.*C66) + (C**4+S**4 )*C12 

01106 

ISN 0033 


CP13 = C**2*C13 + S**2*C23 

01107 

ISN 0039 


CP16 = -C*S*(C**2#C11-S**2*C22) + C*S*( C**2-S**2 )*(C12+2.*C66 ) 

01103 

ISN 0040 


CP22 = S**4*C11 + 2.*C**2*S**2*(C12+2.*C66) * C**4*C22 

01109 
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ISN 

0041 


CP23 = S**2*C13 + C**2*C23 

OHIO 

ISN 

0042 


CP26 = -C*S*(S**2*C11-C**2*C22) - S*C*( C**2-S**2 )*( C12+2.*C66 ) 

01111 

ISN 

0043 


CP33 = C33 

01112 

ISN 

0044 


CP36 = C*S*( C23-C13 ) 

01113 

ISN 

0045 


CP44 = C**2*C44 + S**2*C55 

01114 

ISN 

0046 


CP45 = C*S*( C44-C55 ) 

01115 

ISN 

0047 


CP55 = C**2*C55 ♦ S**2*C44 

01116 

ISN 

0048 


CP66 = C**2*S**2*(C11+C22-2.*C12) ♦ ( C**2-S**2 )**2*C66 

01117 



C 


01118 

ISN 

0049 


CHECK = 10. 

01119 

ISN 

0050 


IF(DABS(CP16 ) .LT. CHECK) CP16 = 0. 

01120 

ISN 

0052 


IF( DAQSC CP26 ) .LT. CHECK) CP26 = 0. 

01121 

ISN 

0054 


IF(DABS(CP36 ) .LT. CHECK) CP36 = 0. 

01122 

ISN 

0056 


IF(DABS(CP45) .LT. CHECK) CP45 = 0. 

01123 



c 


01124 

ISN 

0058 


WRITE(6,6) CPU » CPI 2 1 CP 13. CP 16 

01125 

ISN 

0059 

6 

FORMAT! IX, 3E12 .5, 24X.E12 .5 ) 

01126 

ISN 

0060 


URITE(6,7) CP22.CP23.CP26 

01127 

ISN 

0061 

7 

FORMAT! 13X, 2E12 .5 , 24X, E12 .5 ) 

01128 

ISN 

0062 


NRITE(6,8) CP33.CP36 

01129 

ISN 

0063 

8 

FORMAT! 25X.E12.5.24X.E12 .5) 

01130 

ISN 

0064 


WRITE! 6, 9) CP44.CP45 

01131 

ISN 

0065 

9 

FORMAT! 37X.2E12 .5 ) 

01132 

ISN 

0066 


NRITE(6 ,10 ) CP55 

01133 

ISN 

0067 

10 

FORMAT ( 49X » E 1 2 . 5 ) 

01134 

ISN 

0068 


WRITE(6 » 11 ) CP66 

01135 

ISN 

0069 

11 

FORMAT! 6 IX, El 2. 5,/) 

01136 



c 


01137 

ISN 

0070 


Z1 = (CP23 * CP13 - CP12 * CP33 ) / (CP22 * CP33 - CF23**2) 

01138 

ISN 

0071 


Z2 = ( CP26 * CP33 - CP23 * CP36) / (CP22 * CP33 - CP23**2) 

01139 

ISN 

0072 


Z3 = (-CP13 - CP23 * Zl) / CP33 

01140 

ISN 

0073 


Z4 = ( CP36 - CP23 * Z2) / CP33 

01141 



c 


01142 

ISN 

0074 


9(1, 1,1) = CPU + CP13 * Z3 + CP12 * Z1 

01143 

ISN 

0075 


9(1, 2, I) = 0. 

01144 

ISN 

0076 


9(1, 3, I) = CP13 * Z4 + CP12 * Z2 - CP16 

01145 

ISN 

0077 


9(2, 1,1) = 0. 

01146 

ISN 

0073 


9(2, 2, I) = CP55 

01147 

ISN 

0079 


9(2, 3, I) = 0. 

01148 

ISN 

0080 


9(3, 1,1) = 9(1, 3, I) 

01149 

ISN 

0081 


9(3, 2, I) = 0. 

01150 

ISN 

0082 


9( 3,3,1) = -CP36 * Z4 - CP26 * Z2 + CP66 

01151 



c 


01152*34 



c 

HOLLOW LAYER CONDITION 

01153*34 



c 


01154*34 

ISN 

0083 


CO TO 201 

01155*34 

ISN 

0084 

200 

CONTINUE 

01156*34 

ISN 

0035 


DO 210 K = 1,3 

01157*34 

ISN 

0086 


DO 210 L = 1,3 

01158*34 

ISN 

0087 

210 

9(K,L,I) = 0. 

01159*34 

ISN 

0038 

201 

CONTINUE 

01160*34 



C 


01161*34 



C 


01162 

ISN 

0089 


WRITE(6,13) 

01163 

ISN 

0090 

13 

FORMAT! 5X, 'QIJ' ) 

01164 

ISN 

0091 


URITE(6 , 12 ) !(9(II,JJ,I),JJ=1,3),II=1,3) 

01165 

ISN 

0092 

12 

FORMAT (5X.3E12.5) 

01166 

ISN 

0093 

100 

CONTINUE 

01167 



c 


01168 
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ISH 0094 RETURN 01169 

ISN 0095 END 01170 

^OPTIONS IN E FF ECT#NAME ( MAIN ) OPTIMIZE(3) LINECOUNT(60 ) SIZE(MAX) AUTODBH DBL4 ) 

^OPTIONS IN EFFECT*SOURC£ EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
*5TATISTICS* SOURCE STATEMENTS = 94, PROGRAM SIZE = 25S4, SUBPROGRAM NAME = LAMINA 

^STATISTICS* NO DIAGNOSTICS GENERATED 
****** END OF COMPILATION ****** 


2996K BYTES OF CORE NOT USED 
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REQUESTED OPTIONS: AUTODBL( D3L4 ) , SOURCE 
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ISH 0002 


C 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE LAMIN1 (TSKIN, TCENTR, PBT, PGE.NC.NR ) 

PREPROCESSOR FOR THE COMPOSITE BLADE 

INPUT : TSKIN = TITANIUM 1 SKIN THICKNESS IN INCHES 

TCENTR = TI CENTER LAYER THICKNESS IN INCHES 

PBT = PERCENTAGE OF REMAINING THICKNESS OF BORON/TI 


01171*41 

01172*41 

01173*41 

01174*41 

01175*41 

01176*41 

01177*41 


NOTE ** 


PGE 

PBT 


= PERCENTAGE OF REMAINING THICKNESS OF GRAPHITE/EP001 178*41 


+ PGE = 1.0 


01179*41 

01180*41 


ISH 

0003 


IMPLICIT REAL*8( A-HiQ-Z) 

01181*41 

ISN 

0004 


COMMON /PLY1/ PLY(21,25,7),THETA(7),RH0(7) 

01182*41 

ISN 

0005 


COMMON /INPUTT/ X( 1000 ) ,Y( 1000 ) ,Z( 1000 ) ,T( 1000 ) 

01183*41 



C 


01184*41 

ISN 

0006 


NRM1 = NR - 1 

01135*41 

ISN 

0007 


DO 100 I = l.NRMl 

01186*41 

ISN 

0008 


NODE = (1-1) * NC + 1 

01187*41 

ISN 

0009 


DO 100 J = 1,NC 

01188*41 



c 


01189*41 

ISN 

0010 


TAVE = (T(NODE) + T(NODE+NC) ) / 2. 

01190*41 



c 


01191*41 



c 

CHECKON TOTAL TITANIUM LAYER THICKNESS 

01192*41 



c 


01193*41 

ISN 

0011 


TTI = 2. * TSKIN + TCENTR 

01194*41 

ISN 

0012 


TCHECK = TAVE - TTI 

01195*41 



c 


01196*41 



c 

INITIALIZE THICKNESSES 

01197*41 



c 


01198*41 

ISN 

0013 


TS = TSKIN 

01199*41 

ISN 

0014 


TC = TCENTR 

01200*41 

ISN 

0015 


TBT = 0. 

01201*41 

ISN 

0016 


TGE = 0. 

01202*41 



c 


01203*41 

ISN 

0017 


IF( TCHECK) 110,110,120 

01204*41 



c 


01205*41 



c 

NO G/E OR TBT LAYERS DUE TO MINIMUM THICKNESS EXCEEDED 

01206*41 



c 


01207*41 

ISN 

0018 

110 

TCHECK = TAVE - 2. * TSKIN 

01206*41 

ISN 

0019 


IF( TCHECK ) 111,111,112 

01209*41 

ISN 

0020 

111 

TS = TAVE / 2. 

01211*41 

ISN 

0021 


TC = 0. 

01212*41 

ISN 

0022 


GO TO 200 

01213*41 

ISN 

0023 

112 

TC = TAVE - 2. * TS 

01214*41 

ISH 

0024 


GO TO 200 

01215*41 



c 


01216*41 



c 

INSERT G/E AND TBT LAYERS 

01217*41 



c 


01218*41 

ISN 

0025 

120 

TBT = PBT * TCHECK / 2. 

01219*42 

ISN 

0026 


TGE = PGE * TCHECK / 2. 

01220*42 

ISN 

0027 

200 

CONTINUE 

01221*41 



C 


01222*41 



C 

FILL THE PLY ARRAY 

01223*41 



C 


01224*41 

ISN 

0028 


PLY( I, J, 1 ) = TS 

01225*41 

ISN 

0029 


PLY( I, J, 2 ) = TBT 

01226*41 
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ISN 

0030 


PLY( I, J , 3 ) = TGE 

01227*41 

ISN 

0031 


PLY( I > J ,4 ) = TC 

01223*41 

ISN 

0032 


PLY.(I,J,5) = TGE 

01229*41 

ISN 

0033 


PLY( I, J ,6 ) = TBT 

01230*41 

ISN 

0034 


PLY( I, J»7) = TS 

01231*42 



C 


01232*41 



C 

NRITE(6 ,300 ) I, J, NODE, TAVE.TS, TBT, TGE, TC 

01233*42 



C300 

F0RMAT(5X, 'I,J,N0DE7TAVE,TS,TBT ,TGE,TC* ,/,5X, 

01234*42 



C 

1 3I5.5E12.5) 

01235*42 



C 


01236*42 



C 

TOTAL = 2. * (TS + TBT + TGE) + TC 

01237*42 



C 

NRITE(6,301) TOTAL 

01238*42 



C301 

F0RMAT(5X,‘ TOTAL SUMMED THICKNESS =',E12.5) 

01239*42 



C 


01240*42 



C 


01241*41 

ISN 

0035 

100 

NODE = NODE + 1 

01242*41 



c 


01243*41 

ISN 

0036 


RETURN 

01244*41 

ISN 

0037 


END 

01245*41 

•OPTIONS IN 

EFFECT*HAME(MAIN) OPTIMIZED) LINECOUNTt 60) SIZE(MAX) AUT0DBL(DBL4) 



•OPTIONS IN EFFECT*SCURCE EBCDIC IIOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOAMS F TERM IBM 
•STATISTICS* SOURCE STATEMENTS = 36, FROGRAM SIZE = 922, SUBPROGRAM NAME =LAMIN1 

•STATISTICS* NO DIAGNOSTICS GENERATED 

***«*• END OF COMPILATION ****** 3016K BYTES OF CORE NOT USED 


PAGE 2 


FLAG(I) 



I 



♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82. 141/10 .49. 04 PAGE 1 

REQUESTED OPTIONS: AUT0D9L(DBL4 ) .SOURCE 

OPTIONS IN EFFECT: NAME ( MAIN ) OPTIMIZE13) LINECOUNT(60 ) SIZE(MAX) AUTODBL(DBL4) 

SOURCE EBCDIC NOLIST NODECK 03JECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 



C 


01246#41 


C 


01247 

ISN 0002 


SUBROUTINE LOAD2(NR,FF) 

01248 


c 


01249 


c 

PRODUCE A SINGLE LOAD VECTOR, FF, FROM ALL 

01250 


c 

THE STIFFNESSES-LOAD VECTOR PRODUCTS IN THE HOLZER METHOD 

01251 


c 


01252 

ISN 0003 


IMPLICIT REAL*8( A-H.O-Z) 

01253 

ISN 0004 


COMMON /STATC/ SH( 12, 12 ,20 ) ,F( 12,21 ) 

01254 

ISN 0005 


DIMENSION SI (12,12) 

01255 

ISN 0006 


DIMENSION FF(12,1),F1(12,1),F2(12,1) 

01256 


c 


01257 


c 

INITIALIZE FF, AND INSERT THE LOAD VECTOR AT NODE NR 

01258 


c 


01259 


c 

WRITE(6 , 10 ) 

01260 

ISN 0007 


DO 50 I = 1,12 

01261 

ISN 0008 

50 

FF( 1, 1 ) = F(I,NR) 

01262 


c 

CALL MATPRN(FF, 12,1, ' FF ’) 

01263 


c 


01264 

ISN 0009 


NRM1 = NR - 1 

01265 


c 


01266 

ISN 0010 


IF(NRM1 .Eq. 1) RETURN 

01267 


c 


01268 

ISN 0012 


DO 100 I = 2.NRM1 

01269 


c 


01270 


c 

FILL IN DUMMY ARRAYS 

01271 


c 


01272 

ISN 0013 


DO 110 J = 1,12 

01273 

ISN 0014 


Fl(J.l) = F(J,I) 

01274 

ISN 0015 


DO 110 K = 1,12 

01275 

ISN 0016 

110 

S1(J,K) = SH( J,K,NR-I ) 

01276 


c 

WRITE! 6 , 10 ) 

01277 


CIO 

F0RMAT(/,5X, ’### IN LOAD 2 *###•) 

01278 


c 

CALL MATPRN(S1, 12,12, ' SI •) 

01279 


c 

CALL MATPRN( FI , 12,1,' FI ‘ ) 

01280 


c 


01281 


c 

PERFORM MATRIX MULTIPLICATION 

01282 


c 


01263 

ISN 0017 


CALL MATMPY( SI ,F1 ,F2, 12, 12, 1 ) 

01284 


c 

CALL MATPRNt F2, 12, 1 , ' F2 ') 

01285 


c 


01286 


c 

SUM INTO THE FF ARRAY 

01287 


c 


01283 

ISN 0018 


DO 120 J = 1,12 

01269 

ISN 0019 

120 

FF( J, 1 ) = FF( J , 1 ) + F2( J,1 ) 

01290 


c 


01291 

ISN 0020 

100 

CONTINUE 

01292 


c 

CALL MATPRH( FF, 12, 1 , 1 FF ■) 

01293 


c 


01294 

ISN 0021 


RETURN 

01295 

ISN 0022 


END 

01296 


^OPTIONS IN EFFECT*NAME(MAIN) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTODBL( DBL4 ) 

^OPTIONS IN EFFECT#SOURCE EECDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FUG(I) 
^STATISTICS# SOURCE STATEMENTS = 21, PROGRAM SIZE = 1918, SUBPROGRAM NAME = LOAD 2 

*STATISTICS* NO DIAGNOSTICS GENERATED 



+VERSION 1.3.0 101 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.49.04 

****** END OF COMPILATION ****** 3016K BYTES OF CORE NOT USED 


PAGE 



♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82. 141/10. 49. 09 PAGE 

REQUESTED OPTIONS: AUT0DBL(DBL4 ) .SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUT0DBL(DBL4) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT G05TMT NOXREF NOALC NOANSF TERM IBM FUG(I) 



C 


01297 

ISN 0002 


SUBROUTINE MATADD(A,B,C,I,J,S) 

01298 


c 


01299 


c 

MATRIX ADDITION A(I,J) + S*B(I,J) = C(I,J) 

01300 


c 

WITH, S = SIGN OF B ( ADDITION OR SUBTRACTION) 

01301 


c 


01302 

ISN 0003 


DOUBLE PRECISION A( I, J ) ,B( I , J ) ,C( I, J ) ,S 

01303 


c 


01304 

ISN 0004 


DO 100 K = 1,1 

01305 

ISN 0005 


DO 100 L = 1,J 

01306 

ISN 0006 

100 

C(K, L ) = A(K, L) + S * B(K,L) 

01307 


c 


01308 

ISN 0007 


RETURN 

01309 

ISN 0008 


END 

01310 

*OPTIONS IN 

EFFECT*HAME ( MAIN ) OPTIMIZED) LINECOUNT(60 ) SIZE(MAX) AUTODBLt DBL4 ) 



^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
^STATISTICS* SOURCE STATEMENTS = 7, PROGRAM SIZE = 436, SUBPROGRAM NAME =MATADD 

^STATISTICS* NO DIAGNOSTICS GENERATED 
****** END OF COMPILATION ****** 


3016K BYTES OF CORE NOT USED 



♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.49.15 PAGE 

REQUESTED OPTIONS: AUT0DBL(0BL4), SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINEC0UNT(60 ) SIZE(MAX) AUTODBU DBL4) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 



C 


01311 

ISN 0002 


SUBROUTINE MATMPY(A,B,C,I,J,K) 

01312 


C 


01313 


C 

THIS ROUTINE MULTIPLIES MATRICES A # B = C 

01314 


C 

A( I, J ) , B( J,K) AND C( I,K ) 

01315 


c 


01316 

ISN 0003 


DOUBLE PRECISION A( I, J ) ,B( J.K) ,C(I ,K ) 

01317 


c 


01318 

ISN 0004 


DO 100 L = 1,1 

01319 

ISM 0005 


DO 100 M = 1 ,K 

01320 

ISN 0006 


C(L,M) = 0. 

01321 

ISN 0007 


DO 100 N = 1,J 

01322 

ISN 0008 

100 

C(L,M) = C(L,H) + A(L,N) # B(N,M) 

01323 


c 


01324 

ISN 0009 


RETURN 

01325 

ISN 0010 


END 

01326 


^OPTIONS IN EFFECT*NAME(MAIN) 0PTIMIZE(3) LINECOUNT( 60 ) SIZE(MAX) AUTODBU DBL4) 

^OPTIONS IN EFFECT«SQURCE EBCDIC NOLIST NOOECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
^STATISTICS# SOURCE STATEMENTS = 9, PROGRAM SIZE = 562, SUBPROGRAM NAME =MATMPY 

^STATISTICS# NO DIAGNOSTICS GENERATED 

****** end OF COMPILATION ##«### 3016K BYTES OF CORE NOT USED 



+VERSION 1.3.0 (01 MAY SO) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.49.20 PAGE 1 

REQUESTED OPTIONS: AUT0DBL(DBL4 ) .SOURCE 

OPTICUS IN EFFECT: NAME (MAIN) OPTINIZE(3) LINECOUNT(60 ) SIZE(MAX) AUT0CBL(DBL4) 

SOURCE EBCDIC NOLIST NOOECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 




C 


01327 

ISN 

0002 


SUBROUTINE MATPRNt A, I, J .TITLE ) 

01328 

ISN 

0003 


DOUBLE PRECISION A(I,J) 

01329 



C 


01330 



C 

MATRIX OUTPUT 

01331 



C 


01332 

ISN 

0004 


WMTE(6,1) TITLE 

01333 

ISN 

0005 

1 

FORMAT!/, 5X, ‘MATRIX OUTPUT FOR ‘ ,A4,/) 

01334 

ISN 

0006 


I«ITE(6,2) 

01335 

ISN 

0007 

2 

FORMAT(5X, ‘ROW ,5X, 'COL' ,5X, ‘VALUE 1 ,/) 

01336 

ISN 

0003 


DO 100 K = 1,1 

01337 

ISN 

0009 


DO 100 L = 1 , J 

01338 

ISN 

0010 


IF( A(K, L) . EQ. 0.) GO TO 100 

01339 

ISN 

0012 


NRITE(6,3) K,L,A(K,L) 

01340 

ISN 

0013 

100 

CONTINUE 

01341 

ISN 

0014 

3 

F0RMAT(5X,I5,3X,I5,3X,E12.5) 

01342 



C 


01343 

ISN 

0015 


RETURN 

01344 

ISN 

0016 


END 

01345 


^OPTIONS IN EFFECT*NAME( MAIN ) OPTIMIZE! 3 ) LIHECOUNT(60 ) SIZE(MAX) AUT0DBL(DBL4) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
^STATISTICS* SOURCE STATEMENTS = 15, PROGRAM SIZE = 542, SUBPROGRAM NAME =MATPRN 

^STATISTICS* NO DIAGNOSTICS GENERATED 
****** EMD OF COMPILATION ****** 


3016K BYTES OF CORE NOT USED 



ro 


♦VERSION 1.3.0 (01 MAY 60) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.49.22 PAGE 1 


REQUESTED OPTIONS: AUT0DBUDBL4) > SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNT(60 ) SIZE(MAX) AUT0DBKDBL4) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NO FORM AT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 

C 01346 

C DATA SET T972MINV AT LEVEL 001 AS OF 10/14/77 01347 

ISN 0002 SUBROUTINE MINV(A,N,D,L,M) 01348 

C 01349 

C 01350 

C 01351 

C SUBROUTINE MINV 01352 

C 01333 

C PURPOSE 01354 

C INVERT A MATRIX 01355 

C 01356 

C USAGE 01357 

C CALL MINV(A,N,D,L,M) 01358 

C 01359 

C DESCRIPTION OF PARAMETERS 01360 

C A - INPUT MATRIX, DESTROYED IN COMPUTATION AND REPLACED BY 01361 

C RESULTANT INVERSE. 01362 

C N - ORDER OF MATRIX A 01363 

C D - RESULTANT DETERMINANT 01364 

C L - WORK VECTOR OF LENGTH N 01365 

C M - WORK VECTOR OF LENGTH N 01366 

C 01367 

C REMARKS 01368 

C MATRIX A MUST BE A GENERAL MATRIX 01369 

C 01370 

C SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED 01371 

C NONE 01372 

C 01373 

C METHOD 01374 

C THE STANDARD GAUSS-JORDAN METHOD IS USED. THE DETERMINANT 01375 

C IS ALSO CALCULATED. A DETERMINANT OF ZERO INDICATES THAT 01376 

C THE MATRIX IS SINGULAR. 01377 

C 01378 

C 01379 

C 01380 

ISN 0003 DIMENSION A( 1 ) , L( 1 ) ,M( 1 ) 01381 

C 01382 

C 01383 

C 01384 

C IF A DOUBLE PRECISION VERSION OF THIS ROUTINE IS DESIRED, THE 01335 

C C IN COLUMN 1 SHOULD BE REMOVED FROM THE DOUBLE PRECISION 01336 

C STATEMENT WHICH FOLLOWS. 01387 

C 01333 

ISN 0004 DOUBLE PRECISION A,D,BIGA,HOLO 01339 

C 01390 

C THE C MUST ALSO BE REMOVED FROM DOUBLE PRECISION STATEMENTS 01391 

C APPEARING IN OTHER ROUTINES USED IN CONJUNCTION WITH THIS 01392 

C ROUTINE. 01393 

C 01394 

C THE DOUBLE PRECISION VERSION OF THIS SUBROUTINE MUST ALSO 01395 

C CONTAIN D0U3LE PRECISION FORTRAN FUNCTIONS. DABS IN STATEMENT 01396 

C 10 MUST BE CHANGED TO DDABS. 01397 

C 01398 

C 01399 

C 01400 



♦VERSION 1.3.0 (01 HAY 80) HINV SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.49.22 




C 


SEARCH FOR LARGEST ELEMENT 

01401 



C 



01402 

ISN 

0005 



D=1 . 0 

01403 

ISN 

0006 



NK=-N 

01404 

ISN 

0007 



00 80 K=1,N 

01405 

ISN 

0008 



NK=NK+N 

01406 

ISN 

0009 



L(K)=K 

01407 

ISN 

0010 



M(K)=K 

01408 

ISN 

0011 



KK=NK+K 

01409 

ISN 

0012 



BIGA=A(KK) 

01410 

ISN 

0013 



DO 20 J=K,N 

01411 

ISN 

0014 



IZ=N#( J-l ) 

01412 

ISN 

0015 



DO 20 I=K,N 

01413 

ISN 

0016 



IJ=IZ+I 

01414 

ISN 

0017 


10 

IF( DABS(BIGA)- DABSt A ( I J ) ) ) 15,20,20 

01415 

ISN 

0018 


15 

BIGA=A(IJ) 

01416 

ISN 

0019 



L(K)=I 

01417 

ISN 

0020 



M( K )=J 

01418 

ISN 

0021 

C 

20 

CONTINUE 

01419 

01420 



C 


INTERCHANGE ROUS 

01421 



C 



01422 

ISN 

0022 



J=L(K ) 

01423 

ISN 

0023 



IF(J-K) 35,35,25 

01424 

ISN 

0024 


25 

KI=K-N 

01425 

ISN 

0025 



DO 30 1=1, N 

01426 

ISN 

0026 



KI=KI+N 

01427 

ISN 

0027 



H0LD=-A(KI) 

01428 

ISN 

0028 



JI=KI-K+J 

01429 

ISN 

0029 



A(KI)=A( JI) 

01430 

ISN 

0030 

C 

30 

A(JI) =H0LD 

01431 

01432 



C 


INTERCHANGE COLUMNS 

01433 



c 



01434 

ISN 

0031 


35 

I=M(K) 

01435 

ISN 

0032 



IF(I-K) 45,45,38 

01436 

ISN 

0033 


33 

JP=N*( 1-1 ) 

01437 

ISN 

0034 



DO 40 J=1,N 

01438 

ISN 

0035 



JK=NK+J 

01439 

ISN 

0036 



JI=JP+J 

01440 

ISN 

0037 



H0LD=-A( JK) 

01441 

ISN 

0033 



A( JK)=A( JI) 

01442 

ISN 

0039 

c 

40 

A(JI) =H0L0 

01443 

01444 



c 


DIVIDE COLUMN BY MINUS PIVOT (VALUE OF PIVOT ELEMENT IS 

01445 



c 


CONTAINED IN BIGA) 

01446 



c 



01447 

ISN 

o 

o 

o 


45 

IF(BIGA) 48,46,48 

01448 

ISN 

0041 


46 

0=0.0 

01449 

ISN 

0042 



RETURN 

01450 

ISN 

0043 


48 

DO 55 1=1, N 

01451 

ISN 

0044 



IF(I-K) 50,55,50 

01452 

ISN 

0045 


50 

IK=NK+I 

01453 

ISN 

0046 



A( IK)=A( IK)/( -BIGA ) 

01454 

ISN 

0047 

c 

55 

CONTINUE 

01455 

01456 



c 


REDUCE MATRIX 

01457 

• 


c 



01453 

ISN 

0048 



DO 65 1=1, N 

01459 


PAGE 2 
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♦VERSION 1.3.0 (01 MAY 60) MINV SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.49.22 PAGE 


ISN 

0049 



IK=HK+I 

01460 

ISN 

0050 



KOLD=A( IK) 

01461 

ISN 

0051 



IJ=I-N 

01462 

ISN 

0052 



DO 65 J=1,N 

01463 

ISN 

0053 



IJ=IJ+N 

01464 

ISN 

0054 



IF(I-K) 60,65,60 

01465 

ISN 

0055 


60 

IF(J-K) 62,65,62 

01466 

ISN 

0056 


62 

KJ=IJ-I+K 

01467 

ISN 

0037 



A(IJ)=HOLD*A(KJ)+A(IJ) , ' 

01463 

ISN 

0053 


65 

CONTINUE 

01469 



C 



01470 



c 


DIVIDE ROW BY PIVOT 

01471 



c 



01472 

ISN 

0059 



KJ=K-N 

01473 

ISN 

0060 



DO 75 J=1,N 

01474 

ISN 

0061 



KJ=KJ+N 

01475 

ISN 

0062 



IF(J-K) 70,75,70 

01476 

ISN 

0063 


70 

A(KJ )=A(KJ J/BIGA 

01477 

ISN 

0064 


75 

CONTINUE 

01478 



C 



01479 



c 


PRODUCT OF PIVOTS 

01480 



C 



01431 

ISN 

0065 



D=D*BIGA 

01482 



C 



01483 



C 


REPLACE PIVOT BY RECIPROCAL 

01484 



c 



01485 

ISN 

0066 



A(KK )=1 . 0/BIGA 

01486 

ISN 

0067 


80 

CONTINUE 

01487 



c 



01483 



c 


FINAL ROW AND COLUMN INTERCHANGE 

01489 



c 



01490 

ISN 

0068 



K=N 

01491 

ISN 

0069 


100 

K=(K-1) 

01492 

ISN 

0070 



IF ( K ) 150,150,105 

01493 

ISN 

0071 


105 

I=L(K) 

01494 

ISN 

0072 



IF(I-K) 120,120,108 

01495 

ISN 

0073 


103 

JQ=N*(K-1) 

01496 

ISN 

0074 



JR=N*( 1-1 ) 

01497 

ISN 

0075 



DO 110 J=1,N 

01493 

ISN 

0076 



JK=JQ+J 

01499 

ISN 

0077 



HOLD=A( JK ) 

01500 

ISN 

0076 



JI=JR+J 

01501 

ISN 

0079 



A( JK )=— AC JI ) 

01502 

ISN 

OOSO 


110 

A(JI) =HOLD 

01503 

ISN 

0031 


120 

J=M(K) 

01504 

ISN 

0032 



IF(J-K) 100,100,125 

01505 

ISN 

0033 


125 

KI=K-N 

01506 

ISN 

0084 



DO 130 1=1, N 

01507 

ISN 

0035 



KI=KI+N 

01508 

ISN 

0036 



HOLD=A(KI) 

01509 

ISN 

0037 



JI=KI-K+J 

01510 

ISN 

0083 



A(KI)=-A( JI) 

01511 

ISN 

0089 


130 

A(JI) =HOLD 

01512 

ISN 

0090 



GO TO 100 

01513 

ISN 

0091 


150 

RETURN 

01514 

ISN 

0092 



END 

01515 

#OPTION3 IN 

EFFECT*NAME(MAIN) OPTIMIZE(3) LINECOUNT( 60 ) SIZE(MAX) AUT0DBUDBL4) 



^OPTIONS IN EFFECT*SCURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
^STATISTICS* SOURCE STATEMENTS = 91, PROGRAM SIZE = 1502, SUBPROGRAM NAME = MINV 



♦VERSION 1.3.0 (01 MAY 80) MINV SYSTEH/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.49.28 

^STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 3004K BYTES OF CORE NOT USED 


PAGE 4 



♦•VERSION 1.3.0 (01 NAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.49.29 PAGE 

REQUESTED OPTIONS: AUT0DBUDBL4 ) .SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINEC0UNT(60 ) SIZE(MAX) AUTODBK DBL4 ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GQSTNT NOXREF NOALC NOANSF TERM IBM FLAG(I) 



C 


01516*35 

ISN 0002 


SUBROUTINE M0DMAS( I , EX , NR , RMASS ) 

01517*35 

I5N 0003 


IMPLICIT REAL*8(A-H,0-Z) 

015ie*35 


C 


01519*35 


C 

MODAL MASS FOR THE I MODE 

01520*35 


C 


01521*35 

ISN 0004 


COMMON /STIFF/ SK( 12, 12 ) ,SKK( 12, 12, 21 ) ,SMM(6 ,6 ,21 ) 

01522*35 

ISN 0005 


DIMENSION EX(12,21,2) , RMASS ( 3 ) ,DISP(6 , 1 ) ,SMNM( 6 ,6 ) ,DISPT( 1,6) 

01523*35 

ISN 0006 


DIMENSION 01(6,1) 

01524*35 


C 


01525*35 

ISN 0007 


RMASS(I) = 0. 

01526*35 

ISN 0008 


DO 100 J = 1 ,NR 

01527*35 


C 


01528*35 


C 

CONVERT THE W137 EIGENVECTOR, EX, TO STABEL FORMAT 

01529*35 


C 


01530*35 

ISN 0009 


CALL SHAPE! J, EX, DISP) 

01531*35 


C 


01532*35 


c 

NON MULTIPLY - DISPT * SMMM * DISP 

01533*35 


C 


01534*35 

ISN 0010 


DO 110 K = 1,6 

01535*35 

ISN 0011 


DO 110 L = 1,6 

01536*35 

ISN 0012 

110 

SMMM(K,L) = SMM(K> L> J ) 

01537*35 


C 


01538*35 

ISN 0013 


DO 120 K = 1,6 

01539*35 

ISN 0014 

120 

DISPT(l.K) = DISP(K,1) 

01540*35 


C 


01541*35 

ISN 0015 


CALL MATMPY( SMMM, DISP, D1 ,6,6,1) 

01542*35 


C 


01543*35 

ISN 0016 


CALL MATMPYl DISPT,D1 ,D2, 1 ,6, 1 ) 

01544*35 


C 


01545*35 

ISN 0017 

100 

RMASS ( I ) = RMASS(I) + D2 

01546*35 


C 


01547*35 

ISN 0018 


RETURN 

01548*35 

ISN 0019 


END 

01549*35 


^OPTIONS IN EFFECT*NAME ( MAIN ) OPTIMIZED) LINECOUNT(60 ) SIZE(MAX) AUTODBK DBL4 ) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NCMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IEM FLAG(I) 
^STATISTICS* SOURCE STATEMENTS = 18, PROGRAM SIZE = 1034, SUBPROGRAM NAHE =MODMAS 

^STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 3016K BYTES OF CORE NOT USED 



+VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82. 141/10.49.33 PAGE 1 

REQUESTED OPTIONS: AUT0D3L! DBL4 ) , SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTODBL! DBL4 ) 

SOURCE EBCDIC NOLIST HGDECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG! I) 




C 


01550*35 

ISN 

0002 


SUBROUTINE MODSTR (I.NC.NR) 

01551*35 

ISN 

0003 


IMPLICIT REAL#8( A-H>0-Z) 

01552*35 



C 


01553*35 



C 

THIS ROUTINE IS THE DRIVER FOR THE MODAL STRESS CALCULATION 

01554*35 



c 


01555*35 

ISN 

0004 


COMMON /CALCA/ FILL( 1468 ) ,MS( 2 ) ,FILL2( 588 ) ,EX( 12, 21 ,2 ) ,SS( 12,2) 

01556*35 

ISN 

0005 


COMMON /STRS/ RBE( 12 , 12 , 25, 21 ) , FOUT( 12 , 21 ) ,SL( 25, 21 ) ,SN( 25, 21 ) 

01557*35 

ISN 

0006 


COMMON /MODAL/ SIGMA( 3,8,25) 

01558*35 

ISN 

0007 


COMMON /MODAL1/ STRESS! 3,3,8,25 ) , FACTOR! 3 ) ,RMASS( 3 ) 

01559*35 

ISN 

00G8 


COMMON /BLK15/ DIANOD( 100 ) ,FN1( 100 ) ,FILL1( 300 ) 

01560*35 

ISN 

0009 


DIMENSION DISP( 6 , 1 ) ,BFORCE( 6 , 1 ) ,DISPT( 1,6), PLOAD( 1,1) 

01561*35 

ISN 

0010 


DIMENSION SMAX ( 8 ) 

01562*36 



c 


01563*35 



c 

CONVERT W137 EIGENVECTOR TO STABEL FORMAT FOR STATIONS l AND 2 

01564*35 



c 


01565*35 

ISN 

0011 


CALL SHAPE(2,EX,DISP) 

01566*39 



c 

CALL MATPRN(DISP,6 » 1 , 'DISP' ) 

01567*35 

ISN 

0012 


DO 100 J = 1,6 

01568*35 

ISN 

0013 

100 

FOUT(J,2) = DISP(J,1) 

01569*39 



c 


01570*35 

ISN 

0014 


CALL SHAPE! 3, EX, DISP ) 

01571*39 



c 

CALL MATPRN(DISP, 6,1, 'DISP* ) 

01572*35 

ISN 

0015 


DO 110 J = 1,6 

01573*35 

ISN 

0016 

110 

F0UT(J,3) = DISP(J,1) 

01574*39 



c 


01575*35 



c 

CALCULATE ROOT STRESS FOR MODE I 

01576*35 



c 


01577*35 

ISN 

0017 


CALL ZSTR ES ( 2 , NC > SMAX ) 

01578*39 



c 


01579*35 



c 

STORE THE STRESS VALUES FOR MODE I IN STRESS( 3,3,8,25) 

01580*35 



c 


01581*35 

ISN 

0018 


DO 120 JJ = l.NC 

01582*35 

ISN 

0019 


DO 120 J = 1,8 

01583*35 

ISN 

0020 


DO 120 K = 1,3 

01584*35 

ISN 

0021 

120 

STRESS! I >K , J > JJ ) = SIGMA! K,J,JJ ) 

01585*35 



c 


01566*35 



c 

CALCULATE THE MODAL MASS FOR MODE I 

01587*35 



c 


01588*35 

ISN 

CJ 

CM 

O 

O 


CALL MODMAS ( I, EX, NR ,RMASS ) 

01589*35 



c 


01590*35 



c 

CALCULATE THE BIRD FORCE AND MOMENT 

01591*35 



c 


01592*35 

ISN 

0023 


CALL BIRDF ( NR , NC , ISTA , BFORCE , SQUASH ) 

01593*35 



c 


01594*35 



c 

FIND THE STABEL MODE SHAPE AT STATION ISTA 

01595*35 



c 


01596*35 

ISN 

0024 


CALL SHAPE ( ISTA, EX, DISP ) 

01597*35 



c 

CALL MATPRNtDISP, 6,1, 'DISP' ) 

01598*43 



c 


01599*35 

ISN 

0025 


DO 130 J = 1,6 

01600*35 

ISN 

0026 

130 

DISPT! 1 , J ) = DISP! J, 1 ) 

01601*35 



c 


01602*35 



c 

MODAL LOADjPLOAD 

01603*35 



c 


01604*35 



CO 

o 


+VERSION 1.3. 
ISN 0027 


ISN 0028 
ISM 0029 
ISN 0030 

ISN 0031 


MODSTR 


SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 


DATE 62.141/10.49.33 


0 (01 MAY 80) 


C 

C 

c 

c 


c 
c 
c 
c 

ISN 0032 
ISN 0033 

^OPTIONS IN EFFECT*NAME(MAIN ) OPTIMIZE! 3) LINECOUHT( 60 ) SIZE(MAX) AUTODBL( DBL4 ) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT N0NAP N0F0RNAT GOSTMT NOXREF NOALC NOANSF TERM IBM 
^STATISTICS* SOURCE STATEMENTS = 32, PROGRAM SIZE = 1218, SUBPROGRAM NAME =M0DSTR 

^STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 3012K BYTES OF CORE NOT USED 


CALL MATMPY ( DISPT , E3FORCE , PLOAD , 1 ,6,1) 

01605*35 

CALL MATPRN ( PLOAD, 1 , 1 ,' PLOD ’ ) 

01606*35 


• 01607*35 

PARTICIPATION FACTOR , FACTOR 

01603*35 


01609*35 

PI = PLOAD! 1,1) 

01610*35 

TO = SQUASH 

01611*35 

FREQ = FNKI) * 2. * 3.141593 

01612*35 


01613*35 

FACTOR! I) = PI * TO / RMASS(I) / FREQ 

01614*35 

CALL MATPRN! FH1, 100,1, 'FN1 •) 

01615*36 

CALL MATPRN! RMASS, 3, 1,‘ RMAS' ) ! 

01616*36 

CALL MATPRN! FACTOR, 3,1, 'FACT 1 ) 

01617*36 


01618*35 

RETURN 

01619*35 

END 

01620*35 


PAGE 2 


FLAG(I) 



+VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82. 141/10 .49. 43 PAGE 

REQUESTED OPTIONS: AUTOQBL( DBL4) » SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUT0DBL(DBL4) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG! I) 




C 


01621 

ISN 

0002 


SUBROUTINE PARTN( SK , II , J J , SK 1 1 , SK 1 2 , SK2 1 , SK22 , KK , LL ) 

01622 



c 


01623 



C 

THIS ROUTINE PARTITIONS THE SK MATRIX INTO SK11.SK12, 

01624 



C 

SK21 AND SK22 

01625 



c 


01626 

ISN 

0003 


IMPLICIT REAL*8( A-H.O-Z) 

01627 

ISN 

0004 


DIMENSION SK( II, JJ ) ,SK11(KK, LL) ,SK12(KK, LL) ,SK21(KK, LL) 

01628 

ISN 

0005 


DIMENSION SK22(KK,LL) 

01629 



c 


01630 



c 

SK11 

01631 



c 


01632 

ISN 

0006 


DO 100 I = 1,6 ' 

01633 

ISN 

0007 


DO 100 J = 1,6 

01634 

ISN 

0003 

100 

SK1KI.J) = SK( I, J ) 

01635 



c 


01636 



c 

SKI 2 

01637 



c 


01638 

ISN 

0009 


DO 101 I = 1,6 

01639 

ISN 

0010 


L = 1 

01640 

ISN 

0011 


DO 101 J = 7,12 

01641 

ISN 

0012 


SK12( I, L) = SK( I , J ) 

01642 

ISN 

0013 

101 

L = L + 1 

01643 



c 


01644 



c 

SK21 

01645 



c 


01646 

ISN 

0014 


DO 102 I = 7,12 

01647 

ISN 

0015 


K = I - 6 

01648 

ISN 

0016 


DO 102 J = 1,6 

01649 

ISN 

0017 


SK2KK.J) = SKI I, J ) 

01650 

ISN 

0013 

102 

CONTINUE 

01651 



c 


01652 



c 

SK22 

01653 



c 


01654 

ISN 

0019 


DO 103 I = 7,12 

01655 

ISN 

0020 


K = I - 6 

01656 

ISN 

0021 


L = 1 

01657 

ISN 

0022 


DO 104 J = 7,12 

01658 

ISN 

0023 


SK22IK, L) = SK(I,J) 

01659 

ISN 

0024 

104 

L = L + 1 

01660 

ISN 

0025 

103 

CONTINUE 

01661 



C 


01662 



c 

CALL MATPRNI SK 11,6,6, ‘SK 11') 

01663 



C 

CALL MATPRN(SK12,6,6, 'SK12' ) 

01664 



C 

CALL MATPRNt SK2 1,6,6, ' SK2 1 1 ) 

01665 



C 

CALL MATPRN( SK22.6 >6, 'SK22' ) 

01666 



c 


01667 

ISN 

0026 


RETURN 

01663 

ISN 

0027 


END 

01669 

*OPTIONS IN 

EFFECT*NAME(MAIN ) OPTIMIZED) LINECOUNT(60 ) SIZE(MAX) AUT0DBUDBL4) 



^OPTIONS IN EFFECT*SCURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFOHMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
^STATISTICS* SOURCE STATEMENTS = 26, PROGRAM SIZE = 890, SUBPROGRAM NAME = PARTN 

* STATISTICS* NO DIAGNOSTICS GENERATED 
****** END OF COMPILATION ****** 


3016K BYTES OF CORE NOT USED 



+VERSICN 1.3.0 (01 HAY 80) SrSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.49.51 PAGE 1 

REQUESTED OPTIONS: AUTGDBL(DBL4), SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNK60 ) SIZE(MAX) AUTODBLf DBL4 ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOHAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 




C 



01670 

ISN 

0002 


SUBROUTINE PPKII) 


01671 



C 



01672 



C 

THIS ROUTINE SETS UP THE REORDER 

MATRICES 

01673 



C 

P AND PI ARE CONSTANT AND DO NOT 

CHANGE 

01674 



C 



01675 

ISN 

0003 


IMPLICIT REAL#8(A-H,0-Z) 


01676 

ISN 

0004 


COMMON /REORDR/ P( 12, 12 ) ,PT( 12 , 12) 

01677 



c 



01678 



C 

INITIALIZE 


01679 



c 



01680 

ISN 

0005 


DO 100 I = 1,12 


01681 

ISN 

0006 


DO 100 J = 1,12 


01682 

ISN 

0007 

100 

P(I,J) = 0. 


01683 



c 



01684 

ISN 

0008 


IFUI .GT. 1) GO TO 50 


01685 



c 



01686 



c 

SET NON-ZERO VALUES OF P 


01687 



c 



01688 

ISN 

0010 


P(l,l) = 1. 


01689 

ISN 

0011 


P( 2,5 ) = 1. 


01690 

ISN 

0012 


P( 3, 9 ) = 1. 


01691 

ISN 

0013 


P( 4, 2 ) = 1. 


01692 

ISN 

0014 


P(5, 10 ) = 1. 


01693 

ISN 

0015 


P(6,6 ) = 1. 


01694 

ISN 

0016 


P( 7, 3 ) = 1. 


01695 

ISN 

0017 


P(8»7) = 1. 


01696 

ISN 

0013 


P( 9, 1 1 ) = 1. 


01697 

ISN 

0019 


P( 10,4) = 1. 


01698 

ISN 

0020 


P( 11 , 12 ) = 1. 


01699 

ISN 

0021 


P( 12,8) = 1. 


01700 

ISN 

0022 


GO TO 51 


01701 

ISN 

0023 

50 

P ( 1 , 7 ) = 1. 


01702 

ISN 

0024 


P( 2,8) = 1. 


01703 

ISN 

0025 


P( 3, 12 ) =-l. 


01704 

ISN 

0026 


P( 4, 9 ) =-l. 


01705 

ISN 

0027 


P( 5, 1 1 ) = 1. 


01706 

ISN 

0023 


P(6 , 10 ) = 1. 


01707 

ISN 

0029 


P( 7, 1 ) = 1. 


01708 

ISN 

0030 


P(8,6) =-l. 


01709 

ISN 

0031 


P( 9,2 ) = 1. 


01710 

ISN 

0032 


P( 10,5) = 1. 


01711 

ISN 

0033 


P ( 11,3) =-l. 


01712 

ISN 

0034 


P( 12,4) = 1. 


01713 

ISN 

0035 

51 

CONTINUE 


01714 



C 



01715 



c 

NON DETERMINE THE TRANSPOSE MATRIX, PT 

01716 



c 



01717 

ISN 

0036 


DO 200 I = 1,12 


01718 

ISN 

0037 


DO 200 J = 1,12 


01719 

ISN 

0038 


PT( I , J ) = PU,I) 


01720 

ISN 

0039 

200 

CONTINUE 


01721 



c 

CALL HATPRN(P,12,12, ' P •) 


01722 



C 

CALL MATPRN(PT, 12,12, *PT ') 


01723 



C 



01724 



♦VERSION 1.3.0 (01 MAY 60) PP1 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82. 141/10.49.51 PAGE 2 

ISN 0040 RETURN 01725 

ISN 0041 END 01726 

’-‘OPTIONS IN EFFECT*NAME( MAIN) OPTIMIZE(3) LINECOUNT(60 ) SIZE(MAX) AUTODBK DBL4 ) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NCMAP NO FORMAT GQSTI1T NOXREF NOALC NOANSF TERM IBM FLAG(I) 
^STATISTICS* SOURCE STATEMENTS = 40 , PROGRAM SIZE = 534, SUBPROGRAM NAME = PP1 

^STATISTICS* NO DIAGNOSTICS GENERATED 

******* END OF COMPILATION ****** 3016K BYTES OF CORE NOT USED 


oo 

CO 



♦VERSION 1.3.0 (01 HAY SO) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82. 141/10. 49. 55 PAGE 1 

REQUESTED OPTIONS: AUTGDBL1 DBL4 ), SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINEC0UNT(60) SIZE(MAX) AUT0DBL(DEL4) 

SOURCE EBCDIC liOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NQXREF HOALC NOANSF TERM IBM FLAG(I) 


CO 

-P* 


ISN 0002 


ISN 0003 
ISN 0004 
ISN 0005 
ISN 0006 
ISN 0007 
ISN 0008 
ISN 0009 
ISN 0010 


ISN 0011 


ISN 0012 
ISN 0013 
ISN 0014 

ISN 0015 
ISN 0016 
ISN 0017 


ISN 0018 
ISN 0019 

ISN 0020 
ISN 0021 
ISN 0022 
ISN 0023 
ISN 0024 
ISN 0025 
ISN 0026 


ISN 0027 
ISN 0028 
ISN 0029 
ISN 0030 

ISN 0031 
ISN 0032 


C 

SUBROUTINE RBE2(X,Y,Z,ISEC,IBEAM,NC,BLOCAL) 

C 

C THIS ROUTINE CALCULATES THE RIGID BODY TRANSFORMATION 
C MATRICES RBL12 AND RBL1 
C 

C RBL12 IS WRITTEN IN THE LOCAL BEAM COORD. SYSTEM 
C 

IMPLICIT REAL*8( A-H,0-Z) 

COMMON /RBE/ RBL12( 12 , 12 ) ,RBL1 ( 12, 12 ) 

COMMON /MARPP/ WS( 26 ,21 ) ,RN( 25,21 ) ,RT( 25,21 ) 

COMMON /SC/ XSC( 21 ) , YSC( 21 ) ,ZSC( 21 ) ,ALPHA( 21 ) ,SECIP( 21 ) ,SECA( 21 ) 
DIMENSION RBL(6,6),RL(6),RM(6) 

DIMENSION X(1),Y(1),Z(1),XG(3 ) »XGB( 3 ) ,XA1 ( 3 ) 

DIMENSION XA2( 3) ,XB1( 3) ,XB2( 3) ,XG5B( 3 ) ,BLOCAL( 3,3) 

DIMENSION Vl( 3 ) , V2( 3 ) , VL1 ( 3 ) , VL2( 3 ) 

C 

C FORMING RBL12 

C TRANSFORM GLOBAL COORD. POINTS TO SECTION SYSTEIi 

C 

C LAYER 1-BEAM COORD IS XAl, SECTION COORD IS XBl 
C 

IP = ( ISEC-1 ) * NC + IBEAM 
C 

C POSITION VECTORS FOR LAYERS 1 AND 2 , VI AND V 2 
C 

Vlfl) = X(IP) - XSC(ISEC) 

Vl( 2 ) = Y( IP) - YSC(ISEC) 

Vl( 3 ) = Z(IP) - ZSC(ISEC) 

C 

V2( 1 ) = X( IP+NC ) - XSC( ISEC+1 ) 

V2( 2) = Y( IP+NC) - YSC( IScC+l) 

V2( 3) = Z( IP+NC ) - ZSC( ISEC+1 ) 

C 

C ROTATE FROM GLOBAL SYSTEM TO BEAM LOCAL 
C 

CALL MATMPY ( BLOCAL , VI , VL1 , 3 , 3 , 1 ) 

CALL MATMPY(BLOCAL,V2,VL2,3,3,l ) 

C 

XI = VL1( 1 ) 

Y1 = VL1(2) 

Z1 = VL1(3) 

X2 = VL2( 1 ) 

Y2 = VL2( 2 ) 

Z2 = VL2( 3 ) 

XL = XSC( ISEC+1) - XSC(ISEC) 

C 

C 

DO 102 I = 1,12 
DO 102 J = 1,12 
RBLl(I.J) = 0. 

102 RBL12( I, J ) = 0. 

C 

DO 103 I = 1,12 
RBL1( I ,1 ) = 1. 


01727 

01728 

01729 

01730 

01731 

01732 

01733 

01734 

01735 

01736 

01737 

01738 

01739 

01740 

01741 
01742*34 

01743 

01744 

01745 

01746 

01747 

01748 

01749 
01750*34 
01751*34 
01752*34 
01753*34 
01754*34 
01755*34 
01756*34 
01757*34 
01758*34 
01759*34 
01760*34 
01761*34 
01762*34 
01763*34 
01764*34 
01765*34 
01766*34 
01767*34 
01768*34 
01769*34 
01770*34 
01771*34 
01772*34 
01773*34 

01774 

01775 

01776 

01777 

01778 

01779 

01780 

01781 


♦VERSION 1.3.0 (01 MAY 60) RBE2 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.49.55 PAGE 


ISM 

0033 

103 

RBL12(I,I) = 1. 

01782 



C 


01783 

ISN 

0034 


RBL12(1,4) = -WSdBEAM.ISEC) / XL 

01734 

ISN 

0035 


RBL12( 1,5) = Z1 

01785 

ISN 

0036 


RBL12(1,6) = -Y1 

01786 

ISN 

0037 


RBL12( 1 > 10 ) = -RBL12( 1 >4) 

01737 

ISN 

003S 


RBL12( 2 >4 ) = -Z1 

01788 

ISN 

0039 


RBL12( 2 >6 ) = XI 

01739 

ISN 

0040 


RBL12(3,4) = Y1 ' 

01790 

ISN 

0041 


RBL12( 3,5 ) = -XI 

01791 

ISN 

0042 


RBL12(5,4) = RT(IBEAM.ISEC) / XL 

01792 

ISN 

0043 


RBL12( 5, 10 ) = -RBL12(5j4) 

01793 

ISN 

0044 


RBL12(6,4) = RN( IBEAM, ISEC ) / XL 

01794 

ISN 

0045 


RBL12(6, 10 ) = -RBL12(6»4) 

01795 

ISN 

0046 


RBL12(7,4) = -WS( IBEAM, ISEC+1) / XL 

01796 

ISN 

0047 


RBL12( 7, 10 ) = -RBL12( 7,4 ) 

01797 

ISN 

0043 


RBL12( 7, 11 ) = Z2 

01798 

ISN 

0049 


RBL12( 7,12) = -Y2 

01799 

ISN 

0050 


RBL12( 8, 10 ) = -Z2 

01800 

ISN 

0051 


RBL12( 8, 12 ) = X2 

01301 

ISN 

0052 


RBL12( 9,10) = Y2 

01802 

ISN 

0053 


RBL12( 9,11) = -X2 

, 01803 

ISN 

0054 


RBL12( 11,4) = RTdBEAM, ISEC+1) / XL 

01804 

ISN 

0055 


RBL12( 11,10) = -RBL121 11,4) 

01305 

ISN 

0056 


RBL121 12,4) = RNdBEAH, ISEC+1) / XL 

01806 

ISN 

0057 


RBL12( 12,10) = -RBL12( 12,4) 

01807 



C 

CALL MATPRH(RBL12, 12, 12,^812’ ) 

01608 

ISN 

0058 


RBL1( 1 ,5) = RBL12( 1 ,5 ) 

01809 

ISN 

0059 


RBL1( 1,6) = RBL12( 1,6) 

01810 

ISN 

0060 


RBL1( 2,4 ) = RBL12( 2,4) 

01611 

ISN 

0061 


RBL1( 2,6 ) = RBL12( 2,6 ) 

01812 

ISN 

0062 


RBL1( 3,4 ) = RBL12( 3,4) 

01813 

ISN 

0063 


RBLK3.5) = RBL12( 3,5 ) 

01814 

ISN 

0064 


RBLK7.il) = RBL12( 7,11 ) 

01815 

ISN 

0065 


RBL1( 7,12) = RBL12( 7,12) 

01816 

ISN 

0066 


RBL1( 8, 10 ) = RBL12( 8, 10 ) 

01817 

ISN 

0067 


RBL1(8,12) = RBL12( 8, 12 ) 

01313 

ISN 

0068 


RBLlt 9,10) = RBL12( 9,10) 

01819 

ISN 

0069 


RBL1( 9, 1 1 ) = RBL12( 9,11) 

01820 



C 

CALL MATFRN(RBL1 ,12,12, 1 RBLl 1 ) 

01821 



C 


01822 



C 


01823*39 

ISN 

0070 


IF( ISEC .EQ. 2 ) GO TO 300 

01824*41 

ISN 

0072 


IF( ISEC .GT. 1 ) RETURN 

01825*39 



C 


01826*39 



C 

RESET RBLl 2 FOR EXTENED NECK REGION - NO WARPING 

01827*39 



C 


01328*39 

ISN 

0074 


DO 200 I = 1,12 

01829*39 

ISN 

0075 


DO 200 J = 1,12 

01830*39 

ISN 

0076 

200 

RBL12(I,J) = RBLld.J) 

01831*39 

ISN 

0077 

300 

CONTINUE 

01832*41 

ISN 

0078 


DO 305 I = 1,6 

01833*41 

ISN 

0079 


DO 305 J = 1,12 

01834*41 

ISN 

0030 

305 

RBL12(I, J ) = RBLld.J) 

01835*41 



C 


01836*39 

ISN 

0031 


RETURN 

01837 

ISN 

0032 


END 

01838 


♦OPTIONS IN EFFECT*NAME(MAIN) OPTIMIZED) LINECOUNT(60) SIZE(MAX) AUTODBLt DBL4 ) 

♦OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAGd) 



♦VERSION 1.3.0 (01 MAY 80) RBE2 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.49.55 

^STATISTICS* SOURCE STATEMENTS = 61, PROGRAM SIZE = 1496, SUBPROGRAM NAME = RBE2 

^STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 3004K BYTES OF CORE HOT USED 


PAGE 3 


CO 

C7> 



♦VERSION 1.3.0 (01 MAY 60) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.50.02 PAGE 

REQUESTED OPTIONS: AUTODBL(DBL4 ) .SOURCE 

OPTIONS IN EFFECT: NAME(MAIN) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUT0DBL(DBL4) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOAMS F TERM IBM FLAG(I) 



C 


01839 

ISH 0002 


SUBROUTINE SECTN( I, HR ,NC,RPM) 

01840 


C 


01641 


C 

THIS ROUTINE CALCULATES THE SECTION STIFFNESS MATRIX, SKK AND SK 

01842 


C 

THE SECTION STIFFNESSES ARE SUMMED FROM THE LOCAL BEAMS 

01843 


C 

THE SECTION MASS IS ALSO DETERMINED FROM THE BEAM MASSES 

01844 


c 

ALSO THE SECTION CENTRIFUGAL RESTORING MATRIC ,CNGG, IS FOUND. 

01845 


c 


01346 

ISN 0003 


IMPLICIT REAL*8(A-H,0-Z) 

01647 

ISN 0004 


COMMON /SC/XSC( 21 ) , YSC( 21 ) ,ZSC( 21 ), ALPHA! 21 ) ,SECIP( 21 ) ,SECA( 21 ) 

01848 

ISH 0005 


COMMON /RBE/ RBL12( 12, 12 ) ,RBL1( 12, 12 ) 

01649 

ISN 0006 


COMMON /STRS/ RBE( 12,12,25,21 1 ,FOUT( 12,21 ),SL(25,21 ) ,SU( 25,21 ) 

01850*34 

ISH 0007 


COMMON /COORD1/ CLOCAL( 3,3, 1000 ) 

oie5i 

ISN 0003 


COMMON /BSTIFF/ BK( 12, 12) ,BM( 12,12 ) 

01852 

ISN 0009 


COMMON /STATC/ SH( 12, 12,20 ) ,F( 12,21 ) 

01853 

ISN 0010 


COMMON /LAYER/ TH( 7,25 ) ,BMASS( 25 ) ,BSPAN( 25 ) ,BWIDTH( 25 ) 

01654 

ISN 0011 


DIMENSION TBSS( 12, 12 ) ,R( 12,12) ,R1( 12,12) 

01855 

ISN 0012 


COMMON /STIFF/ SK( 12, 12) ,SKK( 12,12,21 ),SMM(6, 6,21 ) 

01856 

ISN 0013 


COMMON /DSTIFF/ CMSG( 12, 12,20), DSXK( 12,12,20) 

01857 

ISN 0014 


COMMON /INPUTT/ X( 1000 ) ,Y( 1000 ) ,Z( 1000 ) ,T( 1000 ) 

01858 

ISN 0015 


COMMON /ELK 8/ SMB( 21 ) ,ITTLE( 18 ) , VARI( 235 ) ,TMAX( 21 ) ,HALFHA( 21 ) 

01859*34 

ISN 0016 


COMMON /ANAL33/ DUM6( 6 ) ,NCD,NCK,DUM4(4 ) 

01860*47 

ISN 0017 


DIMENSION BLOC AL( 3 , 3 ) , SM 1 ( 6 , 6 ) , S>12 (6,6), SM20LD (6,6) 

01661 

ISN 0013 


DIMENSION SM( 12,12), FBEAM1 (6,1), FBEAM2( 6 , 1 ) ,FOLD( 6,1) 

01862 

ISH 0019 


COMMON /TRANS/ TS( 3,3,21) 

01863 

ISN 0020 


DIMENSION Dl( 12 , 12 ) ,D2( 12 , 12 > ,SKOLD( 12 , 12 ) ,TS1( 3, 3 ) ,TS2( 3, 3) 

01864 

ISN 0021 


DIMENSION FF( 12 , 1 ) , FS£C( 12,1), FTOT1 ( 6,1), FTOT2( 6,1) 

01865 

ISN 0022 


DIMENSION BCMSG( 12,12) ,CMG( 12, 12 ) ,TBS1( 3, 3 ) ,TBS2( 3,3) 

01866 

ISN 0023 


DIMENSION RF( 12,12) 

01867 


c 


01668 


c 

BEGIN THE SECTION STIFFNESS SOLUTION FOR SECTION I 

01869 


c 


01870 


c 

FORM THE SECTION COORDINATE SYSTEM ,TS 

01871 


c 

TS1 FOR LAYER ONE 

01872 


c 

TS2 FOR LAYER TUO 

01873 


c 


01874 

ISN 0024 


IP = ( I— 1 ) * NC + 1 

01875 

ISN 0025 


IP = IP + NC / 2 

01876 

ISN 0026 


IPP = IP + NC 

01877 

ISN 0027 


NRM1 = NR - 1 

01878 


c 


01879 


c 

LOCAL X UNIT VECTOR 

01830 


c 


01881 

ISN 0028 


II = I + 1 

01882 

ISN 0029 


IF( I .EQ. 1) II = 1 

01883 

ISN 0031 


IF( I .EQ. NRMI ) II = NRM1 

01884 

ISN 0033 

99 

XSX = XSCUI+l) - XSC(II) 

01885 

ISN 0034 


XSY = YSC( II+l ) - YSC(II) 

01836 

ISN 0035 


X5Z = ZSC(II+1) - ZSC(II) 

01837 


c 

URITE(6,6) XSC( II ) , YSC( II ) ,ZSC( II ) ,XSC( II+1),YSC(II+1 ) ,ZSC( 11+ 1 ) 

01883 


C6 

F0RMAT(5X,6E12.5) 

01839 

ISN 0036 


XSMAG = 0SQRT( XSX**2 + XSY**2 + XSZ**2 ) 

01890 


C 

HRITE(6»4) XSMAG, I, II 

01891 


C4 

FORMAT! 5X» 'MAGNITUDE ', £12.5,215 ) 

01892 

ISH 0037 


XSX = XSX / XSMAG 

01893 



OJ 

00 
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ISN 

0033 


XSY = XSY / X5MAG 



01894 

ISN 

0039 


XSZ = XSZ / XS11AG 



01895 



C 




01896 



C 

LOCAL Z UNIT VECTOR (INITIALLY) 



01897 



C 




01893 

ISN 

0040 


ZSX = 0. 



01899 

ISN 

0041 


ZSY = DCOS (ALPHA(II)) 



01900 

ISN 

0042 


ZSZ = OSIN (ALPHA(II) ) 



01901 



C 




01902 



C 

LOCAL Y UNIT VECTOR YS = ZS CROSS XS 



01903 



C 




01904 

ISN 

0043 


YSX = ZSY * XSZ - ZSZ * XSY 



01905 

ISN 

0044 


YSY = ZSZ * XSX - ZSX * XSZ 



01906 

ISN 

0045 


YSZ = ZSX * XSY - ZSY * XSX 



01907 

ISN 

0046 


YSMAG = OSQRT ( YSX**2 + YSY**2 + YSZ«*2 ) 

01908 



c 

WRITE! 6,4 ) YSMAG, I, II 



01909 

ISN 

0047 


YSX = YSX / YSMAG 



01910 

ISN 

0046 


YSY = YSY / YSMAG 



01911 

ISN 

0049 


YSZ = YSZ / YSMAG 



01912 



c 




01913 



c 

REDEFINE THE LOCAL ZS VECTOR , ZS = : 

XS 

CROSS YS 

01914 



c 




01915 

ISN 

0050 


IF( I .Eq. NRM1 .AND. NRM1 .NE. 1) II 

= 

II + 1 

01916 

ISN 

0052 

98 

TS( 3, 1 ,11 ) = XSY * YSZ - XSZ # YSY 



01917 

ISN 

0053 


TS( 3,2,11) = XSZ * YSX - XSX * YSZ 



01918 

ISN 

0054 


TS( 3,3,11) = XSX * YSY - XSY * YSX 



01919 



C 




01920 



C 

FILL THE TS ARRAY 



01921 



C 




01922 

ISN 

0055 


TS( 1,1,11) = XSX 



01923 

ISN 

0056 


TS( 1,2,11) = XSY 



01924 

ISN 

0057 


TS( 1,3,11) = XSZ 



01925 

ISN 

0058 


TS( 2,1,11) = YSX 



01926 

ISN 

0059 


TS( 2,2,11 ) = YSY 



01927 

ISN 

0060 


TS( 2,3, II ) = YSZ 



01926 



c 




01929 

ISN 

0061 


DO 300 L = 1,3 



01930 

ISN 

0062 


DO 300 M = 1,3 



01931 

ISN 

0063 

300 

IF( DABS( TS( L,M> II ) ) . LE . .001) TS(L,M 

,11) = 0. 

01932 



C 




01933 

ISN 

0065 


IF ( I .EQ. 1 ) II = II + 1 



01934 

ISN 

0067 


IF( NRM1 .EQ. 1 .AND. II. Eq. 2) GO TO 

98 

01935 

isn' 

0069 


IF ( I. EQ. 1 .AND .11 . EQ.2 ) GO TO 99 



01936 



c 




01937 



c 

WRITE! 6, 2) I 



01938 



C2 

FORMAT!/, 5X/'TS MATRIX FOR SECTION', 

15, 

/) 

01939 



C 

II = 1+1 



01940 



C 

DO 161 L = I, II 



01941 



C 

WRITE (6, 162) L 



01942 



C162 

FORMAT! 5X,' SECTION NODE', 15) 



01943 



C161 

WRITE! 6 , 1 ) !(TS(J,K,L),K=1,3),J = 1,3) 



01944 



Cl 

FORMAT! 1X,3(E12.5,2X),/) 



01945 



C 




01946 



C 

INITIALIZE THE SK AND SM MATRIX AND 

LOAD VECTORS, FTOT1 »FTOT2 

01947 



C 




01948 

ISN 

0071 


DO 100 J = 1,12 



01949 

ISN 

0072 


DO 100 K = 1,12 



01950 

ISN 

0073 


CMG! J,K) = 0. 



01951 

ISN 

0074 


SM(J,K) = 0. 



01952 
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ISN 0075 

100 

SK(J,K) = 0. 

01953 

I£H 0076 


DO 180 J = 1,6 

01954 

ISN 0077 


FTOTKJ.l) = 0. 

01955 

ISM 0078 

180 

FTOT2(J,l) = 0. 

01956 


C 


01957 


C 

BEGIN LOOP FOR EACH BEAM 

01953 


C 


01959 

ISM 0079 


DO 200 J = liNC 

01960 


C 


01961 


C 

CALCULATE THE BEAM COORDINATE SYSTEM ,BL0CAL(3,3) 

01962 


C 


01963 

ISN 0080 


IP = ( 1-1 ) # HC + J 

01964 

ISM 0081 


IPP = IP + NC 

01965 


C 


01966 

ISN 0082 


CALL BCOORD! IP, IPP, BLOCAL) 

01967 


C 

CALL MATPRN(BL0CAL>3>3> 'BLOC' ) 

01968 


C 


01969 


C 

CALCULATE THE BEAM MATERIAL STIFFNESS MATRIX , E 

01970 


C 


01971 

ISN 0083 


CALL ESTIFF(I,NC,NR,J) 

01972*35 


C 


01973 


C 

DETERMINE THE BEAM STIFFNESS MATRIX , BK 

01974 


C 

THE BEAM CENTRIFUGAL RESTORING MATRIX, BCMSG 

01975 


C 


01976 

ISM 0084 


CALL BEAM(NC,J,BLOCAL,BCMGG,RPM) 

01977 


C 


01973 


C 

THE BEAM(J) STIFFNESS MATRIX IS NON BUILT AND MUST 

01979 


C 

BE SUMMED INTO THE SECTION (I) STIFFNESS MATRIX ,SK 

01980 


C 


01981 


C 

FORM THE TBS TRANSFORMATION MATRIX 

01982 


C 

TBS = BLOCAL # TS( TRANSPOSE ) 

01983 


c 


01984 

ISN 0085 


DO 103 K = 1,3 

01985 

ISM 0086 


DO 103 L = 1,3 

01986 

ISM 0037 


TSKK.L) = TS( L,K,I ) 

01987 

ISM 0088 

103 

TS2(K,L) = TS( L,K, 1+1 ) 

01988 

ISN 0089 


CALL MATMPY( BLOCAL, TS1 ,TBS1 , 3,3,3 ) 

01989 

ISN 0090 


CALL MATNPY( BLOCAL ,TS2 ,TBS2 ,3,3,3) 

01990 


C 

URITE(6,3) I 

01991 


C3 

F0RMAT(/,5X,'TBS1,TBS2 MATRIX FOR SECTION 1 ,15,/) 

01992 


C 

WRITE! 6,1) ( (TBS1( K, L) > L-1,3),K-1,3) 

01993 


c 

WRITE! 6,1) ( (TBS2(K, L) , L=1 » 3 ) ,K=1 » 3 ) 

01994 


c 


01995 


c 

THE RIGID BODY TRANSFORMATION MATRIX , RBL12 

01996 


c 

ALSO CALCULATE THE RIGID BODY MATRIX FOR STATIC LOADS WHICH 

01997 


c 

DOES NOT INCLUDE WARPING- ONLY EQUILIBRIUM , RBL1 

01998 


c 


01999 

ISN 0091 


CALL RBE2(X,Y,Z, I, J,NC, BLOCAL) 

02000 


c 


02001 


c 

RESTRAINED WARPING AT THE ROOT 

02002 


c 


02003 

ISN 0092 


IF( I .EQ. 1) GO TO 190 

02004 

ISN 0094 


GO TO 191 

02005 

ISM 0095 

190 

IWARP = 1 

02006 

ISM 0096 


IF( INARP .GT. 1) GO TO 191 

02007 

ISN 0093 


WRITE! 6, 77) 

' 02008 

ISM 0099 

77 

FORMAT!/, 5X, '**# PLANES REMAIN PLANE ROOT CONDITION **#',/) 

02009 

ISM 0100 


RBL12! 1,4) = 0. 

02010 

ISM 0101 


RBL12! 1,10) = 0. 

02011 
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IS!) 

0102 


RQL12( 5.4 ) = 0. 

02012 

ISH 

0103 


RBL12! 5, 10 ) = 0. 

02013 

ISN 

0104 


RBL12(6,4) = 0. 

02014 

ISN 

0105 


RBL12! 6 , 10 ) = 0. 

02015 

ISN 

0106 

191 

CONTINUE 

02016 



C 


02017 



C 

DEFINE THE TBSS MATRIX 

02018 



C 


02019 

ISH 

0107 


DO 105 K = 1,12 

02020 

ISH 

0103 


DO 105 L = 1,12 

02021 

ISN 

0109 

105 

TBSS(K.L) = 0. 

02022 

ISN 

0110 


IRON = 1 

02023 

ISN 

0111 


DO 106 K = 1,4 

02024 

ISN 

0112 


DO 106 L = 1,3 

02025 

ISN 

0113 


ICOL = (K-l ) *3+1 

02026 

ISN 

0114 


DO 108 M = 1,3 

02027 

ISN 

0115 


TBSS( IRON, ICOL) = TBSl(L.M) 

02028 

ISN 

0116 


IF(K .GT. 2) TBSS( IRON, ICOL) = TBS2(L,M) 

02029 

ISN 

0113 

108 

ICOL = ICOL + 1 

02030 

ISN 

0119 

106 

IRON = IRON + 1 

02031 



C 

NRITE(6,5) I 

02032 



C5 

FORMAT!/, 5X, 'TBSS MATRIX FOR SECTION', 15) 

02033 



C 

CALL MATPRN! TBSS , 1 2 , 1 2 , 1 TBSS ' ) 

02034 



c 


02035 



c 

CALCULATE THE R MATRIX, R= RBL12 * TBSS 

02036 



c 

CALCULATE THE RF MATRIX, RF = RBL1 * TBSS 

02037 



c 


02038 

ISN 

0120 


CALL MATMPY(RBL12,TBSS,R, 12, 12, 12) 

02039 



c 

CALL MATPRN(R, 12,12, ' R ') 

02040 

ISN 

0121 


CALL MATMPY(RBL1 , TBSS, RF, 12, 12, 12) 

02041 



c 

CALL MATPRN(RF, 12,12,' RF ') 

02042 



c 


02043 



c 

FILL THE RBE ARRAY FOR LATER USE IN THE STATIC ANALYSIS 

02044 



c 

ALSO STORE THE INFO FOR BEAM DIMENSIONS 

02045*34 



c 


02046 

ISH 

0122 


DO 80 K = 1,12 

02047 

ISN 

0123 


DO 80 L = 1,12 

02048 

ISN 

0124 

80 

RBE(K, L> J, I ) = R(K,L) 

02049 

ISN 

0125 


SLCJ.I) = BSPAN(J) 

02050*34 

ISN 

0126 


SHU, I) = BNIDTH(J) 

02051*34 



c 


02052 



c 

CALCULATE R1 = TSS * RBL1 * TBB 

02053 



c 

IT HAS ALSO BEEN SHONN THAT R1 = R( TRANSPOSE) 

02054 



c 

- ALSO TRANSPOSE RF AND STORE IN RBL1 

02055 



c 


02056 

ISN 

0127 


DO 201 K = 1,12 

02057 

ISN 

0126 


DO 201 L = 1,12 

02058 

ISN 

0129 


RBLKK.L) = RF( L,K) 

02059 

ISN 

0130 

201 

RKK.L) = R(L,K) 

02060 



C 

CALL MATFRNCRl , 12,12,' R1 ') 

02061 



C 

CALL MATPRN! RBL1 ,12,12, 'RFT ') 

02062 



c 


02063 



c 

BEAM! J ) CONTRIBUTION TO SECTION (I) STIFFNESS IS: 

02064 



c 

SK(K,L) = R1(K,M) * BK(M,N) * R(N,L) 

02065 



c 


02066 

ISN 

0131 


CALL MATMPY! BK ,R »D1 ,12,12,12) 

02067 

ISN 

0132 


CALL MATMPYCRl ,D1 ,SKOLD, 12, 12, 12 ) 

02068 ' 



c 


02069 



c 

BEAM(J) CONTRIBUTION TO SECTION! I) MASS , SM 

02070 
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C 

SM(K,L) = Rl(Kitl) * BN(M,N) * R(N,L) 


02071 



C 



02072 

ISN 

0133 


CALL MATMPY(BM,R,D1,12,12,12) 


02073 

ISH 

0134 


CALL MATMPY (Rl.Dl, 02,12,12, 12) 


02074 



C 



02075 



C 

BEAM(J) CONTRIBUTION TO SECTION! I) CENTRIFUGAL 1 

RESTORING 

02076 



C 

STIFFNESS MATRIC , CMGG 


02077 



c 



02078 

ISN 

0135 


CALL MATMPY ( BCMGG ,R, 01,12,12, 12) 


02079 

ISN 

0136 


CALL MATMPY ( R 1 , D 1 , BCMGG ,12,12,12) 


02080 



c 

CALL MATPRNtBCMGG, 12i 12» 'BCMG' ) 


02031 



c 



02C82 



c 

BEAM(J) CONTRIBUTION TO SECTIONU) - RPM LOAD 


02083 



c 

END 1 


02084 



c 



02035 

ISN 

0137 


IP = (1-1) * NC + J 


02086 

ISN 

0138 


CALL FRPM! J,IP,X,Y,BMASS,RPM,FBEAMl,BLOCAL) 


02087 



c 

CALL MATPRN! FBEAM1 ,6 > 1 » ' FBM1 ' ) 


02038 



c 



02089 



c 

END 2 


02090 



c 



02091 

ISN 

0139 


IP = IP + NC 


02092 

ISN 

0140 


CALL FRFM(J,IP,X,Y,BMASS,RPM,FBEAM2,BLOCAL) 


02093 



c 

CALL MATPRN( FBEAM2 ,6,1,' FEM2 1 ) 


02094 



c 



02095 



c 

TRANSFER TO SECTION COORDINATE SYSTEM 


02096 



c 



02097 

ISN 

0141 


DO 170 K = 1,6 


02098 

ISN 

0142 


FSEC(K.l) = FBEAM1(K,1) 


02099 

ISN 

0143 

170 

FSEC(K+6,1) = FBEAM2(K>1 ) 


02100 



c 



02101 

ISN 

0144 


CALL MATMPY! RBL1 »FSEC,FF> 12, 12,1) 


02102 

ISN 

0145 


DO 175 K = 1,6 


02103 

ISN 

0146 


FT0T1( K, 1 ) = FTOTl(K.l) + FF(K,1) 


02104 

ISN 

0147 

175 

FTOT2( K» 1 ) = FTOT2(K,l) + FF(K+6,1) 


02105 



C 

CALL MATPRN( FF» 12, 1 , ' FF •) 


02106 



C 



02107 



C 

SUM UP CONTRIBUTION OF BEAM(J) FOR SECTION! I) 


02108 



C 



02109 

ISN 

0148 


DO 101 K = 1,12 


02110 

ISN 

0149 


DO 101 L = 1,12 


02111 

ISN 

0150 


CHG(K.L) = CMG(K.L) + BCMGG! K»L) 


02112 

ISN 

0151 


StKK, L) = StKK.L) + D2(K,L) 


02113 

ISN 

0152 

101 

SK(K,L) = SK(K,L) + SKOLD(K,L) 


02114 



C 



02115 



C 

HRITE(6, 13) I,J 


02116 



C13 

FORMAT!/, 5X,'THE SECTION STIFFNESS AND MASS FOR 

SECTION', 15 

,/, 02117 



C 

15X, "FOR BEAMS ONE THRU ',15) 


02118 



C 

CALL HATPRN(SK, 12,12, ' SK ') 


02119 



c 

HRITE(6,21 ) 


02120 



C21 

FORMAT!/, 5X, 'SECTION MASS ,SM',/) 


02121 



C 

CALL MATPRN(SM,12, 12, 1 SM ') 


02122 



C 



02123 

ISN 

0153 

200 

CONTINUE 


02124 



c 

CALL MATPRN1CMG, 12 , 12, ' CMG' ) 


02125 



c 

CALL MATPRN! FTOT1 >6 , 1 , ' FT1 ') 


02126 



c 



02127*34 



c 

HARPING FUNCTION UPDATE TO ACCOUNT FOR RESTRAINT EFFECTS 

02128*34 



c 



02129*34 
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ISN 

0154 


A = 0.5 * SI1B( 2 ) 

02130*47 

ISN 

0155 


XDIST = XSC(I) - XSC( 2 ) 

02131*39 

ISN 

0156 


ARG = - XDIST / A 

02132*34 

ISN 

0157 


WAR PI = 1. - DEXP( ARG ) 

02133*34 

ISN 

0158 


IF( I .LE. 2) WARP1 = 1. 

02134*39 

ISN 

0160 


XDIST = XSC(I+1) - XSC( 2 ) 

02135*39 

ISN 

0161 


ARG = - XOIST / A 

02136*34 

ISN 

0162 


WARP2 = 1. - DEXP( ARG ) 

02137*34 

ISN 

0163 


IF( I .EQ. 1) WARP2 = 1. 

02138*39 



C 


02139*34 

ISN 

0165 


SK(4i4) = SK(4,4) / WARP1 

02140*34 

ISN 

0168 


SK( 4, 10 ) = SK(4,10) / WAR PI 

02141*34 

ISN 

0167 


SK( 10 j4) = SK ( 1 0 > 4 ) / WARP2 

02142*34 

ISN 

0168 


SK(10,10) = SK(10,10) / WARP2 

02143*34 



c 


02144*39 



c 

REPLACE EXTENDED NECK STIFFNESS WITH RECTANGULAR SECTION NECK 

02145*39 



c 


02146*39 

ISN 

0169 


IF( I .EQ. 1 .AND. NCD .EQ. 1) CALL EXNECK( SMB(2) ) 

02147*47 



c 


02148 



c 

INSERT SK INTO SKK FOR STORAGE 

02149 



c 


02150 

ISN 

0171 


DO 110 J = 1,12 

02151 

ISN 

0172 


DO 110 K = 1,12 

02152 

ISN 

0173 


CMGG( J,K ,1 ) = CMG(J.K) 

02153 

ISN 

0174 

110 

SKK(J,K,I) = SK(J,K) 

02154 



c 


02155 



c 

FILL IN THE MASS MATRIX , SMM, AND THE LOAD VECTOR , F. 

02156 



c 


02157 

ISN 

0175 


DO 115 J = 1,6 

02158 

ISN 

0176 


FBEAMK J>1 ) = FTOTKJ.l) 

02159 

ISN 

0177 


FBEAH2( J, 1 ) = FTOT2( J,1 ) 

02160 

ISN 

0173 


IROW = J + 6 

02161 

ISN 

0179 


ICOL = 7 

02162 

ISN 

0180 


DO 115 K = 1,6 

02163 

ISN 

0181 


SM1(J,K) = SM(J,K) 

02164 

ISN 

0182 


SM2(J,K) = SM( IROW, ICOL) 

02165 

ISN 

0183 

115 

ICOL = ICOL ♦ 1 

02166 



c 

WRITE! 6, 30) 

02167 



C30 

FORMAT! /,5X, 'PUTTING MASS INTO SM' ) 

02168 



C 

CALL MATPRN(SM1 ,6,6, 'SM1 ') 

02169 



c 

CALL MATFRtU SM2 ,6 ,6 , 1 SM2 ') 

02170 



c 


02171 

ISN 

0164 


NRM1 = NR - 1 

02172 

ISN 

0185 


IF( I .NE. 1) GO TO 125 

02173 



c 


02174 

ISN 

0187 


DO 116 J = 1,6 

02175 

ISN 

0188 


F(J,I) = 0. 

02176*38 

ISN 

0189 


Ft J+6 ,1 ) = FBEAMK J , 1 ) 

02177 

ISN 

0190 


FOLD(J.l) = FBEAM2( J,1 ) 

02178 

ISN 

0191 


DO 116 K = 1,6 

02179 

ISN 

0192 


SIIM( J,K,I) = SMl(J.K) 

02180 

ISN 

0193 

116 

SM20L0(J,K) = SM2( J,K) 

02181 

ISN 

0194 


GO TO 126 

02182 

ISN 

0195 

125 

CONTINUE 

02183 

ISN 

0196 


DO 118 J = 1,6 

02184 

ISN 

0197 


F( J, I ) = 0. 

02185*38 

ISN 

0198 


F(J+6,I) = F0LD( J , 1 ) + FBEAMK J,1 ) 

02ie6 

ISM 

0199 


FOLDt J, 1 ) = FEEAM2(J,1) 

02187 

ISN 

0200 


DO 118 K = 1,6 

02188 
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ISM 

0201 


SI!M(J,K,I) = SM20LD(J,K) + SMKJ.K) 

02189 

ISN 

0202 

118 

SM20LDU.K) = SM2(J,K) 

02190 

ISN 

0203 

126 

IF ( I .NE. NRM1 ) RETURN 

02191 

ISN 

0205 


DO 119 J = 1,6 

02192 

ISN 

0206 


DO 119 K = 1,6 

02193 

ISN 

0207 


F(J,I+1) = 0. 

02194*38 

ISN 

0208 


F( J+6,1+1 ) = FBEAM2U.1) 

02195 

ISN 

0209 

119 

SMM( J,K,I+1 ) = SM2(J,K) 

02196 



C 


02197 



C 

ADD A TIP MOMENT 

02193 



C 


02199 



C 

F(lO.Itl) = 1000. 

02200 



c 


02201 

ISN 

0210 


RETURN 

02202 

ISN 

0211 


END 

02203 


^OPTIONS IN EFFECT#HA11E( MAIN ) OPTIMIZED) LINEC0UNT(60 ) SIZE(MAX) AUTODBLt DBL4) 

^OPTIONS IN EFFECT# SOURCE EBCDIC HOLIST NODECK OBJECT NOMAP NOFORMAT G05TMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
^STATISTICS# SOURCE STATEMENTS = 210, PROGRAM SIZE = 17296, SUBPROGRAM NAME = SECTN 

#STATISTICS» HO DIAGNOSTICS GENERATED 
****** END OF COMPILATION ****** 


2964K BYTES OF CORE NOT USED 



♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.50.15 PAGE 

REQUESTED OPTIONS: AUTCD3L(DBL4 ) .SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZE! 3) LINECOUNT( 60 ) SIZE(MAX) AUT0DBL(DBL4) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 


ISN 0002 
ISN 0003 


ISN 0004 
ISN 0005 


ISN 0006 
ISN 0007 


ISN 0008 

ISN 0009 
ISN 0010 
ISN 0011 


ISN 0012 

ISN 0013 
ISN 0014 
^OPTIONS IN 
^OPTIONS IN 
*STATISTICS* 


C 

C 

C 

c 


c 

c 

c 


100 


c 

c 

c 

c 


110 


c 

c 


SUBROUTINE SHAPE (NODE.EX.DISP) 

IMPLICIT REAL*S( A-H.O-Z) 

GIVEN THE W137 EIGENVECTOR CALCULATE THE STABEL SYSTEM EIGEN- 
VECTOR , FOR A GIVEN NODE 

COMMON /REORDR/ P( 12 , 12 ) ,PT( 12 ,12 ) 

DIMENSION EX( 12,21 ,2 ) ,DISP(6, 1 ) .14137(6, 1 ) ,PPT(6 ,6 ) 

EXTRACT THE W137 EIGENVECTOR COMPONENT FOR THE NODE 

DO 100 I = 1,6 

W137(I,1) = EX( 1+6, NODE, 1 ) 

CALL MATPRNI 11137,6 , 1 ,' W1 37' ) 

TRANSFORMATION ARRAY , PPT 

CALL PP1(2) 

DO 110 I = 1,6 
DO 110 J = 1,6 
PPT(I.J) = PT( I,J+6 ) 

CALL MATPRN( PPT, 6, 6 , 1 PPT') 

CALL MATMPY( PPT,W137,DISP,6 ,6 , 1 ) 


02204*35 

02205*35 

02206*35 

02207*35 

02203*35 

02209*35 

02210*35 

02211*35 

02212*35 

02213*35 

02214*35 

02215*35 

02216*35 

02217*35 

02218*35 

02219*35 

02220*35 

02221*35 

02222*35 

02223*35 

02224*35 

02225*35 

02226*35 

02227*35 

02228*35 

02229*35 

02230*35 

02231*35 

02232*35 


RETURN 
END 

EFFECT*NAME( MAIN ) OPTIMIZED) LINECQUNT(60) SIZE(MAX) AUT0DBL(D3L4) 

EFFECT*SQURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FUG(I) 
SOURCE STATEMENTS = 13, PROGRAM SIZE = 832, SUBPROGRAM NAME = SHAPE 


*STATISTICS* NO DIAGNOSTICS GENERATED 
****** END OF COMPILATION ****** 


3016K BYTES OF CORE NOT USED 



+ VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 62.141/10.50.20 PAGE 1 

REQUESTED OPTIONS: AUTODBLI DBL4 ) .SOURCE 

OPTIONS IN EFFECT: NAME(MAIN) OPTIMIZED) LINEC0UNT(60) SIZE(MAX) AUTODBL! DBL4 ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT G03TMT NOXREF NOALC NOANSF TERM IBM FUG(I) 




C 


02233*35 



c 


02234 

ISN 

0002 


SUBROUTINE SMULT(NR) 

02235 



c 


02236 



c 

A SLAVE ROUTINE TO PERFORM THE HOLZER STIFFNESS 

02237 



c 

MATRIX STRING MULTIPLICATION FOR THE STATIC ANALYSIS 

02238 



c 


02239 

ISN 

0003 


IMPLICIT REAL*8( A-H.O-Z) 

02240 

ISN 

0004 


COMMON /STATC/ SHI 12, 12, 20 ) ,F( 12,21 ) 

02241 

ISN 

0005 


COMMON /IISTIFF/ SKP( 12 , 12 ) ,SKPP( 12 , 12,21 ) 

02242 

ISN 

0006 


DIMENSION D1(12,12),D2( 12, 12), 03(12,12) 

02243 



c 


02244 



c 

INITIALIZE SH MATRIX 

02245 



c 


02246 

ISN 

0007 


NRM1 = NR - 1 

02247 

ISN 

0008 


DO 100 I = 1,12 

02246 

ISN 

0009 


DO 100 J = 1,12 

02249 

ISN 

0010 

100 

SH(I,J,1) = SKPP(I,J,NRM1 ) 

02250 



c 


02251 

ISN 

0011 


IFINRM1 . EQ. 1) RETURN 

02252 



c 


02253 

ISN 

0013 


DO 200 I = 2.NRM1 

02254 

ISN 

0014 


IP = HR Ml - I + 1 

02255 

ISN 

0015 


DO 110 J = 1,12 

02256 

ISN 

0016 


DO 110 K = 1,12 

02257 

ISN 

0017 


Dl( J ,K ) = SH( J,K ,1-1 ) 

02258 

ISN 

0018 

110 

D2( J,K ) = SKPP( J,K,IP) 

02259 



c 


02260 

ISN 

0019 


CALL MATMPYIDl, 02,03,12, 12, 12) 

02261 



c 


02262 

ISN 

0020 


DO 120 J = 1,12 

02263 

ISN 

0021 


DO 120 K = 1,12 

02264 

ISN 

0022 

120 

SH(J,K,I) = D3(J,K) 

02265 



c 

l.'RITEI 6 , 10 ) 

02266 



CIO 

FORMAT!/, 5X, ‘IN SMULT FOR STRING OPERATION') 

02267 



C 

CALL MATPRNID3, 12 > 12, 1 D3 ') 

02268 



C 


02269 

ISN 

0023 

200 

CONTINUE 

02270 



c 


02271 

ISN 

0024 


RETURN 

02272 

ISN 

0025 


END 

02273 


^OPTIONS IN EFFECT*NAME(MAIN ) OPTIMIZE! 3) LINEC0UNT(60) SIZE(MAX) AUTODBLI DBL4 ) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM F LAG ( I ) 
^STATISTICS# SOURCE STATEMENTS = 24, PROGRAM SIZE = 4110, SUBPROGRAM NAME = SMULT 

^STATISTICS* NO DIAGNOSTICS GENERATED 

#####» END OF COMPILATION #»#*## 3012K BYTES OF CORE NOT USED 


-P» 

cn 



+VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82 . 141/10 .50 .24 PAGE 

REQUESTED OPTIONS: AUT0DBU0BL4), SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUflT( 60 ) SIZE(MAX) AUTODBL(DBU) 

SOURCE EBCDIC NOLIST NODECK 03JECT NOMAP NOFORMAT GQSTMT NOXREF NOALC NQANSF TERM IBM FLAG(I) 



C 


02274 

ISN 0002 


SUBROUTINE STABEL(NR ,NC,RPM1 ,RPM2,RPM3,FREQ,ILOOP,ISERCH ) 

02275*34 


c 


02276 


c 

THIS PROGRAM IS THE DRIVER FOR A STACKED BEAM ANALYSIS 

02277 


c 

A STATIC ANALYSIS IS PERFORMED HITH THE HOLZER METHOD 

02278 


c 

WRITTEN BY NICK MARTIN AND KEN BROUN 

02279 


c 


02280 

ISM 0003 


IMPLICIT REAL*8(A-H,0-Z) 

02281 

ISN 0004 


COMMON /INPUTT/ X( 1000 ) ,Y( 1000 ) ,Z( 1000 ) ,T( 1000) 

02282 

ISN 0005 


COMMON /BC/ C( 6 >6 ) ,RPM 

02283 

ISN 0006 


COMMON /STIFF/ SK( 12, 12 ) ,SKK( 12, 12 ,21 ) ,SMM(6 ,6,21 ) 

02284 

ISN 0007 


COMMON /OSTIFF/ CMGG( 12, 12,20 ) ,DSKK( 12 , 12,20 ) 

02285 

ISN 0008 


COMMON /SC/ XSC( 21 ) , YSC( 21 ) ,ZSC( 21 ) , ALPHA(21 ),SECIP( 21 ) ,SECA( 21 ) 

02286 

ISN 0009 


COMMON /HSTIFF/ SKP( 12, 12 ) ,SKPP( 12, 12 ,21 ) 

02287 

ISN 0010 


COMMON /BLKAC/ AA( 12 , 12,20 ) ,BB( 12 , 12, 20 ) ,CC( 12, 12, 20 ) , 

02288 



1 STAMATl 12,12,20) 

02289 

ISN 0011 


COMMON /REORDR/ P( 12 , 12 ) ,PT( 12 , 12 ) 

02290 

ISN 0012 


COMMON /STATC/ SH( 12, 12,20 ) ,F( 12 ,21 ) 

02291 

ISN 0013 


COMMON /HOLE/ IHOLE 

02292*34 

ISN 0014 


COMMON /SMAXX/ SMAX 1 ( 8 ) , SMAX2 ( 8 ) , SMAX3 ( 8 ) , SMAXLE ( 8 ) , SMAXTE ( 8 ) 

02293*37 

ISN 0015 


COMMON /MODAL/ SIGMA( 3,8,25) 

02294*37 

ISN 0016 


COMMON /FAIL/ XXX( 42 ), TSAI ( 8,25 ) 

02295*37 

ISN 0017 


DIMENSION SKPP1 (12,12,20), SKPP2 (12,12,20) 

02296*34 

ISN 0018 


DIMENSION DS(12,12),CM( 12, 12 ) >SKKOLD( 12, 12, 20), FOLD ( 12,21 ) 

02297 

ISN 0019 


DIMENSION DS1( 12,12) 

02293 


c 


02299 

ISN 0020 


IF( I LOOP .GT. 1 ) GO TO 999 

02300 

ISN 0022 


LOOP = 0 

02301*34 

ISN 0023 


RPM = RFM1 

02302*35 


c 


02303 


c 

FOR CHECK OUT RUNS IN W137 THIS CALL TO INPUT IS MADE, REMOVE 

02304 


c 

AFTER SUITABLE INPUT IS AVAILABLE FROM W137 

02305 


c 


02306 

ISN 0024 


CALL INPUT(NR.NC) 

02307 


c 


02308 


c 

DEFINE THE LOCAL NODAL COORDINATE SYSTEMS 

02309 


c 


02310 

ISN 0025 


CALL CORD2R(X,Y,Z,NR,NC) 

02311 


c 


02312 


c 

CALCULATE THE LAMINA STRESS-STRAIN RELATION ,QIJ 

02313 


c 


02314 

ISN 0026 


CALL LAMINA 

02315 


c 


02316 


c 

DEFINE THE REORDER MATRICES P AND PI 

02317 


c 


02318 

ISN 0027 


CALL PPl(l) 

02319 


c 


02320 


c 

SET UP THE BOUNDARY CONDITIONS FOR A FIXED ROOT CONDITION 

02321 


c 


02322 

ISN 0028 


DO 50 I = 1,6 

02323 

ISN 0029 


DO 50 J = 1,6 

02324 

ISN 0030 

50 

C(I,J) = 0.0 

02325 


c 


02326 


c 

FIND EACH SECTION STIFFNESS AND CORRESPONDING HOLZER STIFFNESS 

02327 


c 

ALSO DETERMINE THE NODAL LUMPED MASS MATRICES 

02328 



♦VERSION 1.3.0 

(01 MAY 80) STABEL SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

DATE 82.141/10 



C 


02329 

ISH 

0031 


CALL H0LZER(1,HR,NC,RFM1) 

02330 



C 


02331 



C 

PERFORM THE STATIC ANALYSIS 

02332 



C 


02333 

ISN 

0032 


WRITE( 6 i 100 ) RFM1 

02334 

ISM 

0033 

100 

FORMAT) //,5X, 'STATIC ANALYSIS, RPM =',E12.5,//) 

02335 



C 


02336 

ISM 

0034 


CALL STATIC(NR,NC,1) 

02337 



C 


02338 



C 

SET THE INITIAL VALUE OF SKKOLO - THE ORIGINAL STIFFNESSES 

02339 



c 


02340 

ISN 

0035 


NRM1 = NR - 1 

02341 

ISM 

0036 


DO 201 I = 1.NRM1 

02342 

ISN 

0037 


DO 201 J = 1,12 

02343 

ISN 

0038 


DO 201 K = 1,12 

02344 

ISN 

0039 

201 

SKKOLD( J,K,I ) = SKK(J,K,I) 

02345 

ISN 

0040 


DO 203 I = 1 >NR 

02346 

ISM 

0041 


DO 203 J = 1,12 

02347 

ISN 

0042 

203 

FOLDU.I) = F( J»I) 

02348 



C 


02349 



c 

LOCAL BIRD INGESTION PARAMETER CALCULATION 

02350 



c 


02351 

ISM 

0043 


CALL FOD( NR, NC.RPMl, ALPHA ) 

02352 



c 


02353 

ISN 

0044 

999 

IF( ISERCH .GT. 1) GO TO 998 

02354 



C 


02355 



c 

UPDATE THE STIFFNESS MATRICES FOR DIFFERENTIAL STIFFNESS 

02356 



c 

AND CENTRIFUGAL RESTORATION - ALSO UFDATE THE LOAD VECTOR, F 

02357 



c 


02358 

ISN 

0046 

888 

LOOP = LOOP + 1 

02359*34 

ISN 

0047 


RATIO = 1. 

02360*34 

ISN 

004S 


IF( LOOP .EG. 2) RATIO = (RPM2 / RPM1 )**2 

02361*34 



C 

NRITE16 ,500 ) ISERCH , LOOP, RATIO 

02362*34 



C500 

FORMAT)//, 5X, '**' ,215, E12. 5, ' **',//) 

02363*34 

ISH 

0050 


DO 200 I = 1.NRM1 

02364 

ISN 

0051 


DO 200 J = 1,12 

02365 

ISN 

0052 


DO 200 K = 1,12 

02366 

ISM 

0053 

200 

SKK(J,K,I) = SKKOLD(J,K,I) + RATIO * (DSKK(J,K,I) - CMGG(J,K, 

I)) 02367 

ISN 

0054 


DO 202 I = 1 »NR 

02368 

ISN 

0055 


DO 202 J = 1,12 

02369 

ISN 

0056 

202 

F( I, J ) = FOLD( I, J ) 

02370*34 



C 


02371 



c 

NOU REFORMULATE THE HOLZER STIFFNESSES FOR EACH SECTION 

02372 



c 


02373 

ISN 

0057 


CALL H0LZER(2,NR,NC,RPM1) 

02374 



c 


02375 



c 

FOR RPM1 - HOLZER STIFFNESS MATRIX IS SKPP1( 12, 12,20 ) 

02376*34 



c 

RPM2 - HOLZER STIFFNESS MATRIX IS SKPP21 12, 12,20 ) 

02377*34 



c 


02378*34 

ISM 

0058 


DO 400 I = 1 »NRM1 

02379*34 

ISM 

0059 


DO 400 J = 1,12 

02380*34 

ISM 

0060 


DO 400 K = 1,12 

02381*34 

ISM 

0061 


IF( LOOP .EG. 1) SKPP1( J,K,I) = SKPP(J,K,I) 

02382*34 

ISN 

0063 


IF( LOOP .EG. 2) SKPP2( J»K,I ) = SKPP(J,K,I) 

02383*34 

ISM 

0065 

400 

CONTINUE 

02384*34 



c 


02385*34 

ISN 

0066 


IF( LOOP .EG. 1) GO TO 888 

02386*34 



c 


02387*34 


PAGE 2 
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C 

RESET THE HOLZER MATRIX FOR THE STATIC ANALYSIS 

02383*39 



C 


02389*39 



C 

WRITE(6,501) 

02390*39 



C501 

F0RMAT(//>5X» ' ** RESET SKPP MATRIX **',//) 

02391*39 

ISN 

0068 


DO 910 I = 1.NRM1 

02392*39 

ISN 

0069 


DO 910 J = 1,12 

02393*39 

ISN 

0070 


DO 910 K = 1,12 

02399*39 

ISN 

0071 

910 

SKPP(J,K,I) = SKPP1( J,K,I) 

02395*39 



C 


02396*39 



C 


02397 



C 

STATIC ANALYSIS WITH PRESTRESS INCLUDED 

02398 



C 


02399 

ISN 

0072 


HRITE(6, 101 ) RPMI.RPM2 

02900 

ISN 

0073 

101 

FORMAT! //,5X, 'STATIC ANALYSIS WITH PRESTRESS, ' ,/,5X, 

02901 




I'RFMl =' ,E12.5,5X, 'RFM2 =',E12.5,//1 

02902 



C 


02903 

ISN 

o 

o 

-vj 


CALL STATIC ( NR, NC, 2) 

02909 



C 


02905 



C 

PERFORM THE STRESS ANALYSIS 

02906 



C 


02907 

ISN 

0075 


CALL ZSTRES ( 2.NC.SMAX1 ) 

02908*39 



C 


02909*37 



c 

CALCULATE TSAI-WU FOR LE AND TE ROOT STRESS - SMAXLE .SMAXTE 

02910*37 



c 


02911*37 

ISN 

0076 


CALL TSAIWU ( SIGMA, NC) 

02912*37 



c 


02913*37 

ISN 

0077 


DO 330 I = 1,8 

02919*37 

ISN 

0078 


SMAXLE ( I ) = TSAIt I, 1 ) 

02915*37 

ISN 

0079 

330 

SMAXTE ( I ) = TSAI(I,NC) 

02916*37 



C 


02917*37 



C 

HOLLOW SECTION STRESS 

02918*37 



C 


02919*37 

ISN 

0080 


IFdHOLE .HE. 0) CALL ZSTRES ( IH0LE.NC.SMAX2 ) 

02920*36 

ISN 

0082 


IH0LE1 = IHOLE + 1 

02921*90 

ISN 

0083 


IFdHOLE .NE. 0) CALL ZSTRES( IH0LE1 ,NC,SMAX3) 

02922*90 

ISN 

0085 


IFdHOLE .EQ. 0) GO TO 501 

02923*90 

ISN 

0087 


DO 500 I = 1,8 

02929*90 

ISN 

0083 


IF(SMAX3( I ) .GT. SMAX2(I)) SMAX2(I) = SMAX3(I) 

02925*90 

ISN 

0090 

500 

CONTINUE 

02926*90 

ISN 

0091 

501 

CONTINUE 

02927*90 



C 


02928*90 



C 


02929 



c 

FORM MASS * STIFFNESS PRODUCTS TO BE SENT TO W137 SOLVER 

02930 



c 

-MUST CHANGE SIGN ON 21 AND 22 QUADRANTS OF SKPP FIRST 

02931 



c 

SKPP = HOLZER STIFFNESS MATRICES FOR EACH SECTION 

02932 



c 


02933 

ISN 

0092 

998 

FREQ2 = FREQ * FREQ 

02939 

ISN 

0093 


IF( FREQ .LT. 0.) RETURN 

02935 

ISN 

0095 


WRITE! 6 , 1 ) RPM1 >RPM3,FREQ 

02936*39 

ISN 

0096 

1 

FORMAT ( / , 5X , 1 FREQUENCY SEARCH' ,5X, 'RPM1 = ' ,E12.5,/, 

02937 




1 21X, 'RFM2=' ,E12. 5,/, 21X, 'STARTING FREQ.=* , E12.5,/) 

02933 

ISN 

0097 


DO 300 ISEC = l.NRMl 

02939 

ISN 

0098 


DO 301 I = 1,12 

02990 

ISN 

0099 


DO 301 J = 1,12 

02991 

ISN 

0100 


SKP(I,J) = SKPPK I, J.ISEC ) 

02992*39 

ISN 

0101 


IF(RPM3 .HE. RPM1 ) SKP(I,J) = SKPP2(I,J,ISEC) 

02993*39 

ISN 

0103 


IF( I .GT. 6 ) SKPd.J) = -SKP( I, J ) 

02999 

ISN 

0105 

301 

CONTINUE 

02995 



C 


02996 
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C 

FORM MASS MATRIX AND STORE IT IN SK ARRAY 

02447 



C 


02448 

ISN 

0106 


DO 305 I = 1,12 

02449 

ISN 

0107 


DO 305 J = 1,12 

02450 

ISN 

0108 

305 

SK( I, J ) = 0. 

02451 

ISN 

0109 


DO 336 I = 1,6 

02452 

ISN 

0110 


SKI I, I ) = 1. 

02453 

ISN 

0111 

306 

SKI 1+6, 1+6) = -1. 

02454 



C 


02455 



C 

NON INSERT SMM INTO THE 21 QUADRANT OF THE MASS MATRIX SK 

02456 



C 

ACTUALLY THE PRODUCT FREQ**2 * SMM IS INSERTED 

02457 



C 


02458 

ISN 

0112 


DO 310 I = 1,6 

02459 

ISN 

0113 


DO 310 J = 1,6 

02460 

ISN 

0114 

310 

SKI 1+6 ,J ) = SKI 1+6 ,J ) + FREQ2 * SMMI I , J.ISEC+l ) 

02461 



C 


02462 

ISN 

0115 


CALL MATMPYI SK,SKP,DS1 ,12,12,12) 

02463 



C 

CALL MATPRNIDS1 ,12,12, 1 0S1’) 

02464 



C 


02465 



C 

REORDER THE MASS STIFFNESS PRODUCT MATRIX TO AGREE WITH 

02466 



C 

THE W137 ORDER 

02467 



C 


02468 

ISN 

0116 


CALL PPlt 2) 

02469 

ISN 

0117 


CALL MATMPYIDSl.PT, CM, 12, 12, 12) 

02470 

ISN 

0118 


CALL MATMPYI P, CM, DS, 12,12,12) 

02471 



C 

CALL MATFRNIDS, 12 , 12, ’DSCP' ) 

02472 



c 


02473 



c 

FILL IN THE SMK MATRIX 

02474 



c 


02475 

ISN 

0119 


DO 320 I = 1,12 

02476 

ISN 

0120 


DO 320 J = 1,12 

02477 

ISfl 

0121 

320 

STAMAT 1 1 , J , ISEC ) = DSII.J) 

02478 



C 


02479 

ISN 

0122 

300 

CONTINUE 

02480 



c 


02481 

ISN 

0123 


RETURN 

02482 

ISM 

0124 


END 

02483 


*OPTIGNS IN EFFECT*NAME ( MAIN ) OPTIMIZED) LINECOUNT(60) SIZE(MAX) AUTODBLt DBL4 ) 

^OPTIONS IN EFFcCT*SOl)RCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FUG(I) 
^STATISTICS* SOURCE STATEMENTS = 123, PROGRAM SIZE = 77400, SUBPROGRAM NAME =STABEL 

^STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 2984K BYTES OF CORE NOT USED 



+VERSION 1.3.0 (01 MAY 60) SYSTEM/370 FORTRAN H EXTENOED (ENHANCED) DATE 82.141/10.50.28 PAGE 

REQUESTED OPTIONS: AUTODESK DBL4 ) , SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINEC0UNT(60) SIZE(MAX) AUTODESK DBL4 ) 
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C 


02484 

ISM 0002 


SUBROUTINE STATIC(NR,NC,ISKIP) 

02485 


C 


02486 


C 

THIS ROUTINE PERFORMS THE STATIC SOLUTION WITH THE 

02487 


C 

HOLZER METHOD 

02488 


C 


02489 

ISN 0003 


IMPLICIT REAL*B (A-H.O-Z) 

02490 

ISN 0004 


COMMON /STIFF/ SK( 12, 12 ) ,SKK( 12, 12,21 ) ,SMM( 6 >6 ,21 ) 

02491 

ISN 0005 


COMMON /DSTIFF/ CMGGl 12, 12, 20 ) ,DSKK( 12, 12,20 ) 

02492 

ISN 0006 


COMMON /HSTIFF/ SKP( 12, 12 ) ,SKPP( 12 , 12,21 ) 

02493 

ISN 0007 


COMMON /STATC/ SH( 12, 12,20 ) ,F( 12 ,21 ) 

02494 

ISN 0008 


COMMON /BC/ C( 6,6 ) ,RPM 

02495 

ISN 0009 


COMMON /STRS/ RBE( 12,12,25,21 ) ,FOUT( 12,21 ),SL( 25,21 ),SW( 25,21 ) 

02496*34 

ISN 0010 


DIMENSION SH11(6,6),SH12(6,6),SH21(6,6),SH22(6,6) 

02497 

ISN 0011 


DIMENSION SHH( 12,12),D1(6,6),RL(6),RM(6 ) >F0UT1 ( 12,1) 

02498 

ISN 0012 


DIMENSION FF(12,1),F1(6,1),U(6,1 ), FF1( 6, 1 ) ,FF2( 6 , 1 ) 

02499 

ISN 0013 


DIMENSION SDISPL(12,l),SFORCE(12,l) ,BDISPL( 12,1 ) ,BF0RCE( 12,1) 

02500 

ISN 0014 


DIMENSION RB( 12,12) 

02501 


c 


02502 


c 

FORM THE HOLZER STIFFNESS MATRIX STRING MULTIPLICATION 

02503 


c 


02504 

ISN 0015 


CALL SMULT(NR) 

02505 


c 


02506 


c 

COMBINE LOAD VECTORS AND HOLZER STIFFNESS MATRIX 

02507 


c 

PRODUCTS INTO ONE PSUEDO LOAD VECTOR, FF. 

02508 


c 


02509 

ISN 0016 


CALL LOAD2 (NR.FF) 

02510 


c 


02511 


c 

PARTITION THE SH( 12, 12.NR-1 ) MATRIX FOR SOLUTION 

02512 


c 

THE SHH IS A DUMMY MATRIX 

02513 


c 


02514 

ISN 0017 


00 50 I = 1,12 

02515 

ISN 0018 


DO 50 J = 1,12 

02516 

ISN 0019 

50 

SHH(I.J) = SH( I, J,NR-1 ) 

02517 


c 

CALL MATPRN(SHH,12,12, 'SHH ') 

02513 


c 


02519 

ISN 0020 


CALL PARTNt SHH , 12 , 12 >SH1 1 ,SH12 ,SH21 ,SH22 ,6 ,6 ) 

02520 


c 


02521 


c 

SOLVE FOR THE FORCE VECTOR AT NODE 1 

02522 


c 

FI = (SH21*C + SH22 )I * - FF17-12) 

02523 


c 

WITH -I- MEANING THE INVERSE 

02524 


c 


02525 

ISN 0021 


DO 100 I = 1,6 

02526 

ISN 0022 

100 

FF2( 1, 1 ) =-FF(I+6,l ) 

02527 


c 


02523 


c 

CALL MATPRNf FF2 ,6 , 1 , ' FF2 ’) 

02529 

ISN 0023 


CALL MATMPY( SH21,C,D1,6,6,6) 

02530 

ISN 0024 


CALL MATADD(D1,SH22,SH21,6,6,1. ) 

02531 


c 

CALL MATPRN( SH21 ,6 ,6 , 1 SH21 1 ) 

02532 

ISN 0025 


CALL MINV( SH21 ,6,D,RL,RM) 

02533 


c 

CALL ftATPRN( SH21 ,6,6, 'SH21 * ) 

02534 

ISN 0026 


CALL MATMPY( SH21 ,FF2,F1 ,6,6,1) 

02535 


c 

CALL MATPRNl FI ,6 , 1 , 1 FI * ) 

02536 


c 


02537 


c 

SOLVE FOR THE DISPLACEMENT AT NODE, NR 

02533 


CJ1 
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C 



* 

02539 

ISN 

0027 


DO 110 I = 1,6 



02540 

ISN 

0028 

110 

FF1( 1,1) = FF( 1, 1 ) 



02541 



c 




02542 

ISN 

0029 


CALL MATMPY( SHI 1 >C ,SH21 >6 ,6 ,6 ) 



02543 

ISN 

0030 


CALL MATADD( SH21 ,SH12 ,SH1 1 ,6,6,1.) 



02544 

ISN 

0031 


CALL MATMPY (SH11,F1,FF2,6,6,1) 



02545 

ISN 

0032 


CALL MAT ADD(FF2,FF1,U, 6,1,1. ) 



02546 



c 

CALL HATPRN(U,6,1, • U * ) 



02547 



c 




02548 



c 

THE VECTOR OF DISPL. ANO FORCES AT EACH NODE 

WILL BE STORED 

02549 



c 

IN , FOUT( 12,21) - DISPL. IN 1-6 ANO FORCES 

IN 7-12. 

02550 



c 

FIRST SOLVE FOR DEFLECTIONS AMO FORCES AT 

NODE 2 

02551 



c 




02552 



c 

THIS SECTION ALSO GENERATES THE DIFFERENTIAL 

STIFFNESS MATRIX 

02553 



c 

AND THE CENTRIFUGAL RESTORING STIFFNESS MATRIX 

02554 



c 




02555 

ISN 

0033 


DO 120 I = 1,6 



02556 

ISN 

0034 


FOUT(I.NR) = U(I,1) 



02557 

ISN 

0035 


FOUT(I+6,NR) = FU+6.NR) 



02553 

ISN 

0036 


FOUT(I.l) = 0. 



02559 

ISN 

0037 


FOUT( 1+6,1) = FI (1,1) 



02560 

ISN 

0033 


FF( 1,1) = 0. 



02561 

ISN 

0039 

120 

FFd+6,1) = Fl( 1 , 1 ) 



02562 



c 




02563 



c 

GET THE H0L2ER STIFFNESS FOR SECTION 1 



02564 



c 




02565 

ISN 

0040 


DO 130 I = 1,6 



02566 

ISN 

0041 


DO 130 J = 1,6 



02567 

ISN 

0042 


SKP(I.J) = SKPP( I, J, 1 ) 



02568 

ISN 

0043 


SKP( I, J+6 ) = SKPP( I , J+6 , 1 ) 



02569 

ISN 

0044 


SKP(I+6,J) = - SKPP(I+6,J,1) 



02570 

ISN 

0045 

130 

SKP( 1+6, J+6 ) = - SKPP( 1+6, J+6 , 1 ) 



02571 



C 




02572 

ISN 

0046 


CALL MATMPY(SKP,FF ,FGUT1 ,12,12,1) 



02573 



c 

CALL MATPRN(FF, 12,1, 1 FF ') 



02574 



c 

CALL MATFRNt FOUT1 ,12,1,' FOU1 1 ) 



02575 



c 




02576 



c 

THE DIFFERENTIAL STIFFNESS FOR SECTION 1 



02577 



c 




02578 

ISN 

0047 


IFdSKIP .LE. 1) CALL KDGG( 1 .FF.FOUT1 ,DSKK ) 


02579 



c 




02560 

ISN 

0049 


DO 135 I = 1,12 



02581 

ISN 

0050 

135 

FOUTII.2) = F0UT1( 1,1) 



02582 



C 




02583 



c 

BEGIN LOOP TO SOLVE FOR THE REMAINING NODES 3 

» - (NR-1 ) 

02584 



c 




02585 

ISN 

0051 


NRM1 = NR - 1 



02536 

ISN 

0052 


IF(NRM1 .EQ. 1) GO TO 201 



02537 

ISN 

0054 


DO 200 I = 3.NRM1 



02583 



c 




025S9 



c 

FILL IN THE DUMMY DISPL. AND FORCE VECTOR 

AT 

NODE ( 1-1 ) 

02590 



c 

THE EQUILIBRIUM EQ WILL BE USED 



02591 



c 




02592 

ISN 

0055 


DO 210 J = 1,6 



02593 

ISN 

0056 


FF( J > 1 ) = FOUT(J.I-l) 



02594 

ISN 

0057 

210 

FF(J+6,1) = -FOUTU+6,1-1) + F(J+6,I-1) 



02595 



C 




02596 



c 

GET THE HOLZER STIFFNESS MATRIX FOR SECTION ( 

1-1 ) 

02597 
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C 


02598 

ISN 

0058 


DO 220 J = 1,6 

02599 

ISN 

0039 


DO 220 K = 1,6 

02600 

ISN 

0060 


SKP( J,K) = SKPP(J,K,I-1) 

02601 

ISN 

0061 


SKP( J,K+6 ) = SKPP( J ,K+6 ,1-1 ) 

02602 

ISN 

0062 


SKP(J+6,K) = -SKPP( J+6 >K, 1-1 ) 

02603 

ISN 

0063 

220 

SKP( J+6»K+6) = - SKPP(J+6,K+6,I-1) 

02604 



C 


02605 

ISN 

vO 

o 

o 


CALL MATMPY( SKP.FF, F0UT1 ,12,12,1) 

02606 



C 

CALL MATPRN(FF, 12,1, 1 FF ') 

02607 



C 

CALL MATPRN( F0UT1 , 12,1, ‘FOUl 1 ) 

02608 



C 


02609 



C 

THE DIFFERENTIAL STIFFNESS FOR SECTION , 1-1 

02610 



C 


02611 

ISN 

0065 


ISEC = 1-1 

02612 

ISN 

0066 


IFdSKIP .LE. 1) CALL KDGG( ISEC.FF , F0UT1 ,DSKK ) 

02613 



C 


02614 

ISN 

0068 


DO 225 J = 1,12 

02615 

ISN 

0069 

225 

FOUT(J.I) = FOUTl(J.l) 

02616 



C 


02617 

ISN 

0070 

200 

CONTINUE 

02618 



C 


02619 



c 

THE DIFFERENTIAL STIFFNESS FOR SECTION NR-1 

02620 



c 


02621 

ISN 

0071 


ISEC = NR - 1 

02622 

ISN 

0072 


DO 140 I = 1,6 

02623 

ISN 

0073 


F0UT1 ( 1, 1 ) = FOUT(I.NR) 

02624 

ISN 

0074 


FOUTK 1+6,1) = FOUT( 1+6 , NR ) 

02625 

ISN 

0075 


FF( 1,1) = FOUT(I.ISEC) 

02626 

ISN 

0076 

140 

FF( 1+6,1 ) =-FOUT( 1+6, ISEC) + F(I+6,ISEC) 

02627 



C 


02628 



c 

CALL MATPRNt FF ,12 , 1 , ' FF ') 

02629 



c 

CALL MATPRNi F0UT1 ,12,1,' FOUl • ) 

02630 

ISN 

0077 


IFdSKIP .LE. 1) CALL KDGG( ISEC, FF , FOUT1 ,DSKK ) 

02631 



c 


02632 

ISN 

0079 

201 

CONTINUE 

02633 

ISN 

0080 


IFdSKIP .EQ. 1) RETURN 

02634*34 



C 


02635 



c 

FIND THE LOCAL BEAM DEFLECTIONS AND FORCES FOR EACH SECTION 

02636 



c 


02637 

ISN 

0082 


DO 300 I = 1.NRM1 

02638 

ISN 

0083 


IP = d-l) * NC + 1 

02639 

ISN 

0084 


NRITE(6,305) I 

02640 

ISN 

0085 

305 

F0RMAT(/,5X, 'DEFLECTIONS AND FORCES FOR SECTION 1 ,15,/) 

02641 



C 


02642 



c 

DEFINE SECTION ARRAYS FOR OISPL. AND FORCES 

02643 



c 


02644 

ISN 

0086 


DO 301 J = 1,6 

02645 

ISN 

0037 


SDISPL(J.l) = FOUT(J,I) 

02646 

ISN 

0088 


SDISPLf J+6 , 1 ) = FOUT( J ,1+1 ) 

02647 

ISN 

0039 


SFORCE(J,l) = FOUT( J+6,I) 

02648 

ISN 

0090 

301 

SFORCE( J+6, 1 ) = FOUT( J+6,I+1 ) 

02649 



c 


02650 



c 

DEFLECTIONS AND FORCES FOR EACH BEAM 

02651 



c 


02652 

ISN 

0091 


DO 400 J = 1 >NC 

02653 



c 


02654 

ISN 

0092 


DO 401 K = 1,12 

02655 

ISN 

0093 


DO 401 L = 1,12 

02656 
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ISN 

0094 

401 

RB(K, L) = RBE(K, L, J , I ) 


02657 



C 



02658 

ISN 

0095 


CALL MATNPY(RB,SDISPL,EDISPL, 12 , 12, 1 ) 


02659 

ISN 

0096 


CALL MATMPY(RB,SFORCE (BFORCE, 12,12,1 ) 


02660 



C 



02661 

ISN 

0097 


IPNC = IP + NC 


02662 

ISN 

0098 


WRITE(6,404) J, IP, IPNC 


02663 

ISN 

0099 

404 

FORMAT! 5X, 'BEAM' ,15, ' DEFLECTIONS, END 1=',I5,' 

END 2=*, 15) 

02664 

ISN 

0100 


HRITE! 6 ,402 ) (BDISPL(K, 1 ) ,K=1 ,6 ) 


02665 

ISN 

0101 

402 

FORMAT! 2X, 'END l',6E12.5): 


02666 

ISN 

0102 


HRITE! 6, 403) (BDISPL(K, 1 ) ,K=7, 12 ) 


02667 

ISN 

0103 

403 

FORMAT! 2X, 'END 2',6E12.5) 


02668 

ISN 

0104 


HRITE! 6, 405) 


02669 

ISN 

0105 

405 

FORMAT! 14X, 'FORCES' ) 


02670 

ISN 

0106 


HRITE! 6,402) ( BFORCE (K, 1 ) ,K=1 ,6 ) 


02671 

ISN 

0107 


HRITE! 6,403) (BFORCE! K, 1 ) ,K=7, 12 ) 


02672 



C 



02673 

ISN 

0108 

400 

IP = IP + 1 


02674 

ISN 

0109 

300 

CONTINUE 


02675 



C 



02676 

ISN 

OHO 


WRITE! 6, 240) 


02677 

ISN 

0111 

240 

FORMAT!/, 5X, • THE STATIC SOLUTION' ,/,5X, 'DISPL. 

AND ROTATIONS' 

,/, 02678 




15X»'U'>10X,'V‘»10X,'W',10X»‘RX'»10X»'RY'>10X»‘RZ',/) 

02679 

ISN 

0112 


DO 250 I = 1,NR 


02680 

ISN 

0113 

250 

WRITE! 6 , 260 ) ( FOUT! J,I ) , J=1 ,6 ) 


02631 

ISN 

0114 

260 

FORMAT! 6E 12. 5) 


02682 

ISN 

0115 


WRITE! 6, 270) 


02663 

ISN 

0116 

270 

FORMAT!/, 5X, 'FORCES AND MOMENTS' ,/,5X, 'FX' , 10X, 

•FY'.IOX.'FZ', 

02684 




110X, 'MX' ,10X, 'MY' ,10X, 'MZ' ,/) 


02635 

ISN 

0117 


DO 280 I = 1 , NR 


02636 

ISN 

0118 

260 

WRITE (6, 260 ) ( FOUT! J,I ) , J=7, 12 ) 


02687 



C 



02688 



C 



02689 

ISN 

0119 


RETURN 


02690 

ISN 

0120 


END 


02691 


^OPTIONS IN EFFECT*NAME(MAIN) OPTIMIZE! 3) LINECOUNT(60 ) SIZE! MAX) AUTODBLt DBL4) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NQXREF NOALC NOANSF TERM IBM FLAG! I) 
^STATISTICS* SOURCE STATEMENTS = 119, PROGRAM SIZE = 7468, SUBPROGRAM NAME =STATIC 

*STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 2986K BYTES OF CORE HOT USED 


cn 

co 
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C 


02692 

ISN 0002 


SUBROUTINE ZSTRES ( ISEC.NC.SMAX) 

02693*36 


C 


02694 


C 

THIS ROUTINE PERFORMS THE STRESS ANALYSIS FOR EACH COMPOSITE 

02695 


c 

BEAM IN THE SECTION 

02696 


c 


02697 

ISN 0003 


IMPLICIT REAL#8( A-HiO-Z) 

02698 

ISN 0004 


COMMON /STRS/ RBE( 12 , 12,25,21 ) ,FOUT( 12,21 ) ,SL( 25,21 ) ,SW( 25,21 ) 

02699*34 

ISN 0005 


COMMON /PLtl/ PLY( 21 ,25,7) »THETA(7) ,RHO( 7) 

02700 

ISN 0006 


COMMON /ZCOEF/ E11(7),E22(7),E33(7),G12(7), 623(7), G13(7), 

02701 



1 V12(7),V13(7),V23(7) 

02702 

ISN 0007 


COMMON /REORDR/ P( 12, 12 ) ,PT( 12 , 12 ) 

02703 

ISN 0003 


COMMON /FAIL/ W(42 ) ,TSAI( 8 , 25 ) 

02704*35 

ISN 0009 


COMMON /MODAL/ SIGMA( 3,8,25 ) 

02705*35 

ISN 0010 


DIMENSION BDISPL! 12,1 ) ,SOISPL( 12,1 ) ,STRN1( 6 , 1 ) ,STRN2( 6,1) 

02706 

ISN 0011 


DIMENSION R( 12, 12 ) ,TRAN3( 6,6 ) ,STR1( 3, 1 ) ,STR2( 3,1) 

02707*34 

ISN 0012 


DIMENSION D3(3,1),D4(3,1) ,Q( 3,3 ) ,SIGMA1( 3, 1 ) ,SIGMA2( 3, 1 ) 

02708 

ISN 0013 


DIMENSION TT( 3,3) »SMAX(8 ) 

02709*35 

ISN 0014 


DIMENSION TTR! 3,3 ) ,TTI( 3, 3) >QB( 3, 3), QB 1(3, 3) 

02710*43 


c 


02711 

ISN 0015 


TRANS(6,5) = -1. 

02712 


c 


02713 

ISN 0016 


DO 100 I = 1 , NC 

02714 


c 


02715 


c 

TRANSFER THE SECTION NODE DISPLACEMENTS IN THE FOUT ARRAY 

02716 


c 

TO BEAM I 

02717 


c 


02718 

ISN 0017 


DO 110 J = 1,12 

02719 

ISN 0018 


DO 110 K = 1,12 

02720 

ISN 0019 

110 

R(J,K) = RBE( J ,K, I > ISEC ) 

02721*34 


c 

CALL MATPRNIR, 12,12, • R •) 

02722 

ISN 0020 


DO 120 J = 1,6 

02723 

ISN 0021 


SDISPL(J.l) = FOUTl J,ISEC ) 

02724*41 

ISN 0022 

120 

SDISPLt J+6, 1 ) = FOUT( J.ISEC+l ) 

02725*41 


c 

CALL MATPRN! SDISPL, 12,1, 'SDIS 1 ) 

02726 


c 


02727 

ISN 0023 


CALL MATMPY(R, SDISPL, BDISPL, 12,12,1) 

02728 


c 

CALL MATPRN( BDISPL, 12,1, ‘BDIS 1 ) 

02729 


c 


02730*34 


c 

SHAPE FUNCTION COEFICIENT EVALUATION 

02731*34 


c 


02732*34 

ISN 0024 


BL = SL(I.ISEC) 

02733*34 

ISN 0025 


U1 = BDISPL(l.l) 

02734*34 

ISN 0026 


VI = BDISPL( 2,1) 

02735*34 

ISN 0027 


W1 = BDISPL( 3,1) 

02736*34 

ISN 0028 


RX1 = BDISPL(4,1 ) 

02737*34 

ISN 0029 


RY1 = BDISPH5, 1 ) 

02738*34 

ISN 0030 


RZ1 = BDISPLt 6, 1 ) 

02739*34 

ISN 0031 


U2 = BDISPL! 7, 1 ) 

02740*34 

ISN 0032 


V2 = BDISPL! 8,1 ) 

02741*34 

ISN 0033 


H2 = BDISPL! 9, 1 ) 

02742*34 

ISN 0034 


RX2 = BDISPL! 10,1) 

02743*34 

ISN 0035 


RY2 = BDISPL! 11,1) 

02744*34 

ISN 0036 


RZ2 = BDISPLt 12,1) 

02745*34 


c 


02746*34 
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ISM 0037 


A2 = 0. 

02747*41 

ISN 0038 


B2 = ( U2 - U1 ) / BL 

02748*34 

ISN 0039 


B1 = 0. 

02749*41 

ISN 0040 


Cl = 3. * (W2 - Wl) / BL**2 + ( 2 .*RY1 + RY2 ) / BL 

02750*34 

ISM 0041 


D1 * 2. * (Wl - H2) / BL**3 - (RY1 + RY2) / BL**2 

02751*34 

ISM 0042 


B = 0. 

02752*41 

ISM 0043 


C 5 3. * (Vi - VI) / BL**2 - (2.*RZ1 + RZ2) / BL 

02753*34 

ISM 0044 


D = 2. * (VI - V2) / BL**3 + (RZ1 + RZ2 ) / BL**2 

02754*34 


C 


02755*34 


C 

CALCULATE THE DEFLECTIONS AND SLOPES AT 10X OF BEAM LENGTH 

02756*34 


C 


02757*34 

ISN 0045 


X = 0.25 * SL(I.ISEC) 

02756*44 


C 


02759*34 

ISM 0046 


BDISPLl 7i 1 ) = A2 + B2 * X 

02760*34 

ISM 0047 


BDISPL(ll.l) = -2. * Cl * X - 3. * 01 * X**2 - B1 

02761*34 

ISM 0048 


6DISPL( 12,1) =2. * C * X + 3. *D* X**2 + B 

02762*34 


C 


02763*34 


C 


02764 


C 


02765 


C 

BEGIN LOOP FOR THE SEVEN LAYERS IN EACH BEAM 

02766 


C 


02767 

ISN 0049 


T = 0. 

02768 

ISM 0050 


DO 51 K = 1,7 

02769 

ISM 0051 

51 

T = T + PLY( ISEC,I,K ) 

02770*34 

ISM 0052 


Y = - T / 2. 

02771*34 

ISM 0053 


Z = SM( I j ISEC ) / 2. 

02772*41 


C 


02773*34 


C 

DETERMINE THE RADIAL DEFLECTIONS AT THE BEAM CORNERS 

02774*34 


C 

U1,U2,U3,U4 

02775*34 


C 


02776*34 

ISN 0054 


U1 = BDISPL( 7,1) + T/2. * BDISPL(12,1) - Z * BDISPLl 11 ,11 

02777*34 

ISM 0055 


U2 = BDISPL( 7, 1 ) - T/2. * BDISPL(12,1) - Z * BDISPLl 11>1) 

02778*34 

ISM 0056 


U3 = BDISPL( 7,1) - T/2. * BDISPL(12,1) + Z * BDISPLl 11,1) 

02779*34 

ISM 0057 


U4 = BDISPLl 7,1) + T/2. * BDISPLl 12,1) + Z * BDISPLl 11,1) 

02780*34 


C 


02781*34 


C 

WRITE! 6,500) I,U1,U2,U3,U4 

02782*36 


C500 

F0RMAT15X, '** BEAM, CORNER DEFLECS. 1 ,I5,4E12.5) 

02783*36 


C 


02784*34 


c 

CORRESPONDING FILAMENT STRAINS , SX1 ,SX2 ,SX3 ,SX4 

02785*34 


c 


02786*34 

ISN 0053 


SX1 = U1 / X 

02787*34 

ISM 0059 


SX2 = U2 / X 

02786*34 

ISM 0060 


SX3 = U3 / X 

02789*34 

ISM 0061 


SX4 = U4 / X 

02790*34 


c 

WRITEC 6 ,501 ) SL( I, ISEC) ,SX1 , SX2 ,SX3 ,SX4 

02791*36 


C501 

FORMAT15X, 1 LENGTH, CORNER STRAINS* ,5E12.5) 

02792*36 


C 


02793*34 


C 

SLOPE OF STRAIN-THICKNESS LINE - SIDE Z = -SW/2 - SLOPE1 

02794*34 


C 

Z = +SU/2 - SLOPE2 

02795*34 


c 


02796*34 

ISM 0062 


SLOPE1 = ( SX2 - SX1 ) / T 

02797*34 

ISM 0063 


SLOPE2 = ( SX3 - SX4 ) / T 

02798*34 


c 

WRITE! 6 ,502 ) SLOPE1 .SLOPE2 

02799*36 


C502 

FORMAT! 5X, 'STRAIN-THICKNESS SLOPES' ,2E12. 5) 

02800*36 


c 


02801*34 


c 

LOOP TO SOLVE FOR LAYER STRESSES 

02802*34 


c 


02803*34 

ISM 0064 


DO 200 LAYER = 1,8 

02804*34 

ISM 0065 


TEFF = T/2. + Y 

02805*34 



♦VERSION 1.3.0 (01 MAY 80) ZSTRES SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.50.35 



C 


02806*34 

ISN 0066 


SIOE1 = SLOPE1 * TEFF + SX1 

02807*34 

ISH 0C67 


SIDE2 = SLOPE2 * TEFF + SX4 

02808*34 


C 

URITE(6,503) I, LAYER, T,Y, TEFF, SIDE1 ,SIDE2 

02809*36 


C503 

F0RMAT(5X, 'BEAM, LAYER, T,Y, TEFF, SI, S2' ,/,5X,2I5,5X,5E12.5) 

02810*36 


C 


02611*34 

ISN 0063 


YOLD = Y 

02812*41 

ISN 0069 


IF( LAYER .GT. 7) GO TO 201 

02813*34 

ISN 0071 


Y = Y + PLY( ISEC ,1 , LAYER ) 

02814*34 

ISN 0072 

201 

II = LAYER 

02815*34 

ISN 0073 


IF( II .GE. 5) II = II - 1 

02816*34 


C 


02817*34 


C 


02818 


C 

DETERMINE THE LAMINA GEOMETRIC STRAIN COMPONENTS ,EY AND EXY 

02819*43 


C 

TRANSFORMATION MATRIX IS TT 

02320*43 


C 

TTI = TT INVERSE 

02821*43 


C 

TTR = TT TRANSPOSE 

02822*43 


C 


02823*43 

ISN 0075 


CC = DCOS( THETA(II) ) 

02824*43 

ISN 0076 


SS = DSIN( THETA(II) ) 

02825*43 

ISN 0077 


C2 = CC * CC 

02826 

ISN 0078 


S2 = SS * SS 

02827 

ISN 0079 


CS = CC * SS 

02828 

ISN 0080 


TT( 1,1) = C2 

02629*43 

ISN 0031 


TT ( 1 , 2 ) = S2 

02830*43 

ISN 0082 


TT( 1,3) = 2. * CS 

02831*43 

ISN 0083 


TT( 2, 1 ) = S2 

02832*43 

ISN 0034 


TT( 2,2 ) = C2 

02833*43 

ISN 0035 


TT(2,3) = -2. * CS 

02834*43 

ISN 0036 


TT( 3, 1 ) = -CS 

02835*43 

ISN 0087 


TT( 3,2 ) = CS 

02836*43 

ISN 0088 


TT( 3,3 ) = C2 - S2 

02837*43 


c 


02838*43 

ISN 0039 


DO 150 KK = 1,3 

02839*43 

ISN 0090 


DO 150 LL = 1,3 

02840*43 

ISN 0091 


TTI(LL.KK) = TT(LL,KK) 

02841*43 

ISN 0092 

150 

CONTINUE 

02842*44 


C 


02843*43 

ISN 0093 


TTI(1,3) = -TTK1.3) 

02844*43 

ISN 0094 


TTI( 2,3) = -TTI(2,3) 

02845*43 

ISN 0095 


TTI(3,1) = -TTI ( 3, 1 ) 

02846*43 

ISN 0096 


TTI ( 3,2) = -TTI ( 3,2 ) 

02847*43 


C 


02843*44 

ISN 0097 


DO 155 KK = 1,3 

02849*44 

ISN 0098 


DO 155 LL = 1,3 

02850*44 

ISN 0099 

155 

TTR(KK.LL) = TTI(LL.KK) 

02851*44 


C 

CALL MATPRN(TT,3, 3, ' TT ') 

02852*44 


C 

CALL MATPRN(TTI,3,3, 'TTI ') 

02853*44 


C 

CALL MATPRN( TTR , 3 , 3 , ' TTR ' ) 

02854*44 


C 


02855*34 

ISN 0100 


IF( El 1 ( II ) . EQ. 0 . .OR. PLY( ISEC,I,II ) . EQ. 0 . ) GO TO 300 

02856*45 


C 


02857*34 


C 


02858 


C 

LAMINA STIFFNESS MATRIX , Q(I,J) 

02859*43 


C 


02860 

ISN 0102 


V21 = V12( II ) * E 2 2 ( II ) / Ell(II) 

02861 

ISN 0103 


FACTOR = 1. - V12( II ) * V21 

02862 

ISN 0104 


0(1,1) = Ell(II) / FACTOR 

02863 

ISN 0105 


Q( 1 ,2 ) = V21 * Q( 1,1) 

02864 



♦VERSION 1.3. 
ISN 0106 
ISN 0107 
ISN 0108 
ISN 0109 
ISN 0110 
ISN 0111 
ISN 0112 


ISN 0113 
ISN 0114 

ISN 0115 
ISN 0116 

ISN 0117 
ISN 0118 
ISN 0119 

ISN 0120 
ISN 0121 
ISN 0122 


ISN 0123 
ISN 0124 
ISN 0125 
ISN 0126 
ISN 0127 
ISN 0128 
ISN 0129 
ISN 0130 
ISN 0131 


ISN 0132 
ISN 0133 


ISN 0134 
ISN 0135 


(01 MAY 80) ZSTRES SYSTEM/370 FORTRAN 

H 

EXTENDED (ENHANCED) 

DATE 82.141/) 


Q( 1 » 3) = 0. 





02865 


Q( 2 1 1 ) = Q< 1 >2 ) 





02866 


Q( 2 >2 ) = E22C II ) / FACTOR 





02867 


Q(2,3) = 0. 





02868 


q(3,l) = 0. 





02359 


Q<3,2) = 0. 





02870 


q(3,3) = 612(11 ) 





02871 

C 






02872*43 

C 

ROTATED LAMINA STIFFNESS MATRIX , 

qB( I 

,J) 


02873*43 

C 






02874*43 


CALL MATMPY(q,TTR,qBl,3,3,3) 





02875*43 


CALL MATMPY( TTI,QB1 , QB , 3,3, 3 ) 





02876*43 

C 






02877*43 


QF1 = QB( 1 >2 ) - QB( 2>3 ) * QB(1,3) 

/ i 

3B( 3,3) 


02878*43 


QF2 = QB( 2,2) - QB(2,3) * QB(2,3) 

/ ( 

5B(3,3) 


02879*43 

C 






02880*43 


STR1( 1 » 1 ) = SIDE! 





02881*43 


STR1 ( 2 > 1 ) = -QF1 / QF2 * SIDE1 





02832*43 


STRK3.1) = (qB(2,3)/qB(3,3)*qFl/qF2 

-qB(l,3)/qB(3,3)) 

* SIDE1 

02883*43 

C 






02384*43 


STR2( 1,1) = SIDE2 





02885*43 


STR2(2,1) = -0F1 / qF2 * SIDE2 





02886*43 


STR2( 3» 1 ) = (q3( 2»3)/qB( 3,3 )*qFl/QF2 

-qB( i,3)/qB(3,3)) 

* SIDE2 

02837*43 

C 






02888*34 

c 

HOLLOW LAYER - ZERO q(I,J) 





02889*34 

c 






02890*34 


GO TO 301 





02891*34 

300 

CONTINUE 





02892*34 


DO 310 KK = 1,3 





02893*34 


STRHKK.l) = 0. 





02894*43 


STR2(KK» l ) = 0. 





02895*43 


DO 310 LL = 1,3 





02896*34 


qB(KK.LL) = 0. 





02897*43 

310 

q(KK,LL) = 0. 





02898*34 

301 

CONTINUE 





02899*34 

C 

CALL MATPRN(q,3,3, ' q * ) 





02900*44 

C 

CALL MATPRN(q3,3,3, 1 qB ') 





02901*44 

C 

CALL MATPRN( STR1 ,3,1, 'STRl ' ) 





02902*44 

C 

CALL MATFRN( STR2, 3, 1 , ‘STR2 1 ) 





02903*44 

C 






02904*43 

C 

ROTATE LAMINA GEOMETRIC STRAINS TO FIBER AXIS 


02905*43 

c 






02906*43 


CALL MATMPY ( TTR , STR 1 , D3 , 3 , 3 , 1 ) 





02907*44 


CALL MATMPY (TTR, STR 2, 04,3,3,1) 





02908*44 

c 






02909*43 

c 

CALCULATE THE LAMINA STRESSES 





02910*43 

c 






02911*43 

c 






02912*34 

c 






02913 

c 

CALL MATPRN(q,3,3,‘qiJ *) 





02914 

c 






02915 


CALL MATMPY(q,D3,SIGMAl ,3,3,1) 





02916 

c 






02917 


CALL MATMPY(q,04,SIGMA2,3»3» 1 ) 





02918 

c 

CALL MATPRN(D3, 3,1,' D3 ') 





02919*44 

c 

CALL MATPRN(D4,3,1, ' D4 ') 





02920*44 

c 






02921 

c 






02922*35 

c 

AVERAGE THE SIDE STRESSES - STORE 

IN 

SIGMA 


02923*43 



PAGE 5 


cn 

00 


♦VERSION l.: 

3.0 (01 MAY 80) ZSTRES SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

DATE 82.141/10.50.35 



C 


02924*35 

ISN 

0136 


DO 210 J = 1,3 

02925*35 

ISN 

0137 

210 

SIGMA( J , LAYER , I ) = (SIGMAKJ.l) + SIGMA2(J,1)) / 2. 

02926*35 



C 


02927*35 



C 

WRITE! 6 , 2 12 ) ( SIGMA( JJ , LAYER , I ) , JJ= 1 , 3 ) 

02928*36 



C212 

F0RMAT(5X,3E12.5) 

02929*36 



C 


02930 

ISN 

0138 

200 

CONTINUE 

02931 

ISN 

0139 

100 

CONTINUE 

02932 



C 


02933 



c 


02934*35 



c 

CALCULATE THE TSAI-WU FAILURE CRITERION FOR EACH LAYER OF EACH 

02935*35 



c 

BEAM FOR THE SECTION 

02936*35 



c 


02937*35 

ISN 

0140 


CALL TSAIWU ( SIGMA, NC ) 

02938*35 



c 


02939*35 



c 

PICK OUT THE MAX TSAI-WU VALUE PER LAYER FOR ALL BEAMS 

02940*35 



c 


02941*35 

ISN 

0141 


DO 220 I = 1,8 

02942*35 

ISN 

0142 


SMAX(I) = 0. 

02943*35 

ISN 

0143 


DO 220 J = 1,NC 

02944*35 

ISN 

0144 

220 

IF(SMAXd) .LT. TSAI( I,J ) ) SMAX(I) = TSAI(I.J) 

02945*35 



C 


02946*35 



C 

CALL MATPRN( SMAX ,8,1,' SMAX ' ) 

02947*36 

ISN 

0146 


RETURN 

02948 

ISN 

0147 


END 

02949 

*CPTIONS IN 

EFFECT*MAME(MAIN) OPTIMIZED) LINECOUHT( 60 ) SIZE(MAX) AUT0DBL(DBL4) 



*0PTI0NS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NCNAP NOFORtlAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
STATISTICS* SOURCE STATEMENTS = K6, PROGRAM SIZE = 5184, SUBPROGRAM NAME =ZSTRES 

^STATISTICS* NO DIAGNOSTICS GENERATED 

«**«** END OF COMPILATION ****** 29S4K BYTES OF CORE NOT USED 



+VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.50.49 PAGE 1 

REQUESTED OPTIONS: AUT03BL(DBL4 ) .SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTODBUDBL4) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG! I) 



C 


02950 

ISN 0002 


SUBROUTINE THICK( II , NR , NC , X , Y , Z , THK , ISKIP ) 

02951 


c 


02952 


c 

DETERMINE THE LAYER THICKNESS ,TH, ASSUMING THICKNESS 

02953 


c 

SYMMETRY ABOUT THE CENTER AXIS 

02954 


c 


02955 

ISM 0003 


IMPLICIT REAL*8(A-H»0-Z) 

02956 

ISN 0004 


COMMON /PLY1/ PPLY( 21 .25.7 ) »THETA( 7 ) »RHO( 7) 

02957 

ISN 0005 


COMMON /LAYER/ TH( 7, 25) ,BMASS( 25) ,BSPAN( 25 ) ,BWIDTH( 25 ) 

02958 

ISN 0006 


COMMON /WIEGHT/ WL(7) 

02959 

ISN 0007 


COMMON /ANAL33/ DUM6 ( 6 ) ,NCD ,NCK,0UM4( 4 ) 

02960*47 

ISN 0008 


COMMON /BLK 8/ SMB( 21 ) , ITTLE( 18 ) ,DUMMM( 277) 

02961*47 

ISN 0009 


DIMENSION X( 1 ) ,Y( 1 ) ,Z( 1 ) ,THK( 1 ) ,TP( 7) ,T( 1000), DISK 25) 

02962 

ISN 0010 


DIMENSION PLY( 7 ) 

02963 


c 


02964 

ISN 0011 


IP = (II-l) * NC 

02965 


c 


02966 


c 

AVERAGED THICKNESS CALCULATION 

02967 


c 


02968 

ISN 0012 


DO 100 I = l.NC 

02969 

ISN 0013 


IP = IP + 1 

02970 

ISN 0014 


T( IP ) = (THK(IP) + THK( IP+NC) ) / 2. 

02971 


c 


02972 


c 

AVERAGE THE V. VALUES FOR EOTH ENDS TO FIND LAYER THICKNESS 

02973 


c 


02974 

ISN 0015 


TOTAL = THK(IP) 

02975 

ISN 0016 


DO 101 J = 1,7 

02976 

ISN 0017 

101 

THU, I) = PPLY(II,I»J) 

02977*33 


c 


02978 


c 


02979 


c 

DETERMINE THE BEAM LENGTH 

02980 


c 


02931 

ISN 0018 


XX = X(IP) - X( IP+NC ) 

02982 

ISN 0019 


YY = Y( IP) - Y( IP+NC) 

02983 

ISN 0020 


ZZ = Z(IP) - Z( IP+NC ) 

02984 

ISN 0021 


BSPAN(I) =DSQRT(XX**2 + YY*#2 + ZZ##2 ) 

02985 


c 


02986 


c 

AVERAGED WIDTH 

02937 


c 


02988 

ISN 0022 


XX = X(IP) - X(IP+1) 

02989 

ISN 0023 


YY = Y( IP) - Y(IP+1) 

02990 

ISN 0024 


ZZ = Z(IP) - Z(IP+1) 

02991 

ISN 0025 


DISK I) =DSQRT(XX**2 + YY**2 + ZZ#*2 ) 

02992 

ISN 0026 


XX = X( IP+NC) - X( IP+NC+1 ) 

02993 

ISN 0027 


YY = Y( IP+NC) - Y( IP+NC+1) 

02994 

ISN 0028 


ZZ = Z( IP+NC) - Z( IP+NC+1) 

02995 

ISN 0029 


DISK I) = (DISK I) + DSQRT(XX*#2 + YY**2 + ZZ#»2 ) ) / 2. 

02996 


c 


02997 

ISN 0030 

100 

CONTINUE 

02998 


c 


02999 


c 

BEAM WIDTHS 

03000 


c 


03031 

ISN 0031 


NCM1 = NC - 1 

03002 

ISN 0032 


IF(NCM1 .EQ. 0) GO TO 201 

03003 

ISN 0034 


BHIOTH(l) = DISK 1 ) 

03004 



cn 

o 


♦VERSION 1.3.0 (01 MAY 60) THICK SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.50.49 
ISN 0035 BUIDTH(NC) = DIST(NC-l) 03005 

ISN 0036 DO 200 I = 2.NCM1 03006 

ISN 0037 200 BIIIOTH(I) = (DIST(I-l) + DIST(D) / 2. 03007 

ISN 0038 201 CONTINUE 03008 

C 03009 

C BEAM MASS 03010 

c 03011 

ISN 0039 DO 300 I = 1 , NC 03012 

ISN 0040 BMASS(I) = 0. 03013 

ISN 0041 AREA = BWIDTH(I) * BSPAN(I) 03014 

ISN 0042 DO 11 J = 1,7 03015 

ISN 0043 11 BHASS(I) = BMASSCI) ♦ AREA * THU, I) # RHO(J) 03016 

ISN 0044 300 CONTINUE 03017 

c 03018 

C LAYER WIEGHT CALCULATION, RESULTS STORED IN WL(7> 03019 

c 03020 

ISN 0045 IFdSKIP .GT. 1) RETURN 03021 

ISN 0047 IF( II .GT. 1) GO TO 400 03022 

ISN 0049 DO 401 I = 1,7 03023 

ISN 0050 401 HL(I) = 0. 03024 

ISN 0051 IFtNCD .Eq. 2) GO TO 400 03025*47 

ISN 0053 WL( 1 ) = RHO(l) * BSPAN( 1 ) * SMB(2)**2 * 0.15 03026*47 

ISN 0054 WL( 1 ) = WL( 1 ) / 2. 03027*48 

ISN 0055 WL( 7 ) = WL(1) 03028*47 

ISN 0056 RETURN 03029*47 

ISN 0057 400 CONTINUE 03030 

ISN 0058 DO 410 J = 1,NC 03031 

ISN 0059 DO 410 I = 1,7 03032 

ISN 0060 410 WL( I ) = WL(I) + RHO(I) * BSPAN(J) * EWIDTHU ) * TH(I,J) 03033 

ISN 0061 NRM1 = NR - 1 03034*34 

ISN 0062 IF( II .EQ. NRM1 ) CALL MATPRIKHL, 7,1, ■ WL ') 03035*34 

c 03036 

ISN 0064 RETURN 03037 

ISN 0065 END 03038 

*OPTIONS IN EFFECT*NAHE ( MAIN ) OPTIMIZED) LINECCUNT(60) SIZE (MAX) AUTGDBL(DBL4) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFCRNAT GOSTMT NOXREF NOALC NOANSF TERM IBM 
*STATISTICS* SOURCE STATEMENTS = 64, PROGRAM SIZE = 9726, SUBPROGRAM NAME = THICK 

*STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 3004K BYTES OF CORE NOT USED 
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FLAG(I) 



♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.50.56 PAGE 

REQUESTED OPTIONS: AUTGDBL(0BL4 ) .SOURCE 

OPTIONS IN EFFECT: MAME(MAIN) OPTIMIZE13) LINECOUNT( 60 ) SIZE(MAX) AUTODBL! DBL4 ) 

SOURCE EECDIC NOLIST NODECK OBJECT NOMAP NGFCRMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 




C 


03039*35 

ISN 

0002 


SUBROUTINE TSAIWU ( SIGMA, NC ) 

03040*35 

ISN 

0003 


IMPLICIT REAL*8( A-H.O-Z) 

03041*35 



C 


03042*35 



C 

THE TSAI-UU FAILURE CRITERION IS EVALUATED 

03043*35 



c 


03044*35 

ISN 

0004 


COMMON /FAIL/ X1T( 7) ,X1C( 7) ,X2T( 7 1 ,X2C( 7) ,S6P( 7) ,S6M( 7) ,TSAI( 8, 

25)03045*35 

ISN 

0005 


DIMENSION SIGMA( 3,8,25),F1(8),F2(8),F6(8),F11(8),F22(6),F66(8) 

03046*35 

ISN 

0006 


DIMENSION F12( 8 ) 

03047*35 



c 


03048*35 



c 

DETERMINE THE COEFFICIENTS 

03049*35 



C 


03050*35 

ISN 

0007 


L = 0 

03051*35 

ISN 

oooa 


DO 100 I = 1,8 

03052*35 

ISN 

0009 


L = L + 1 

03053*35 

ISN 

0010 


IF( I .EQ. 5) L = L - 1 

03054*35 



C 


03055*35 

ISN 

0012 


F1(I) = 1./X1T(L) - 1./X1C(L) 

03056*35 

ISN 

0013 


F 2 ( I ) = l./X2T(L) - l./X2C(L) 

03057*35 

ISN 

0014 


F6( I ) = l./S6P( L) - l./S6M(L) 

03058*35 

ISN 

0015 


FI 1 ( I ) = 1. / X1T(L) / X1C(L) 

03059*35 

ISN 

0016 


F22( I ) = 1. / X2T( L) / X2C( L) 

03060*35 

ISN 

0017 


F66( I ) = 1. / S6P( L) / S6M(L) 

03061*35 

ISN 

coia 

100 

F12( I ) = -DSQRT( Fll( I) * F22(I) ) 

03062*35 



C 

CALL MATPRN( FI ,8, 1 , ' FI 1 ) 

03063*36 



c 

CALL MATPRN( F2 ,8, 1 , 1 F2 ’) 

03064*36 



C 

CALL MATPRNI F6 ,8, 1 , ' F6 •) 

03065*36 



C 

CALL MATPRNfFll, 8,1, 'Fll ') 

03066*36 



c 

CALL MATPRN(F22, 8,1, ‘F22 ') 

03067*36 



c 

CALL MATPRN1F66, 8,1, 'F66 ■) 

03068*36 



c 

CALL MATFRN(F12,8,1 , 'F12 •) 

03069*36 



c 


03070*35 



c 

BEGIN LOOP FOR EACH LAYER OF EACH BEAM 

03071*35 



c 


03072*35 

ISN 

0019 


DO 110 J = l.NC 

03073*35 

ISN 

0020 


DO 110 I = 1,8 

03074*35 

ISN 

0021 

110 

TSAI(I.J) = Fl(I) * SIGMA! 1 , 1 , J ) + F2(I) * SIGMA(2,I,J) + 

03075*35 




1 F6( I ) * SIGMA( 3,1, J ) + Fill I ) * SIGMA! 1 ,1 ,J )**2 + 

03076*35 




2 F22( I ) * SIGMA( 2 , I , J )**2 + F66(I) * SIGMAt 3,1 , J )**2 

03077*35 




3 ♦ F 1 2 ( I ) * SIGMA! 1 , 1 , J ) * SIGMA(2,I,J) 

03078*35 



c 

CALL MATPRN(TSAI,8,25, 'TSAI' ) 

03079*36 



c 


03030*35 

ISN 

0022 


RETURN 

03081*35 

ISN 

0023 


END 

03082*35 


^OPTIONS IN EFFECT*NAME(MAIN) 0PTIMIZE(3) LINECOUNT! 60 ) SIZE(MAX) AUT0DBL(DBL4) 

’•OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK 03JECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
*STATISTIC5* SOURCE STATEMENTS = 22, PROGRAM SIZE = 1112, SUBPROGRAM NAME =TSAINU 

^STATISTICS’* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 3016K BYTES OF CORE NOT USED 




♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.51.01 PAGE 1 

REQUESTED OPTIONS: AUTODBLt DBL4 ) .SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUT0DBL(DBL4) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FUG(I) 


C 03083 

ISH 0002 SUBROUTINE WARP( ISEC.NR.NC) 03084 

C 03085 

C THIS ROUTINE CALCULATES THE WARPING TERMS REQUIRED FOR THE 03036 

C WARPING FUNCTION OF A THIN SECTION- THE VALUES WILL BE USED 03087 

C IN SUBROUTINE RBE - (SEE THE THEORY OF ELASTIC STABILITY. 03088 

C TIMOSHENKO AND GERE) 03089 

C 03090 

ISN 0003 IMPLICIT REAL«8( A-H . O-Z ) 03091 

ISN 0004 COMMON /SC/XSC( 21 ) , YSC( 21 ) ,ZSC( 21 ) ,ALPHA( 21 ) ,SECIP( 21 ) ,SECA( 21 ) 03092 

ISH 0005 COMMON /INFUTT/ X( 1000), Y( 1000), Z( 1000), T( 1000) 03093 

ISN 0006 COMMON /LAYER/ TH( 7,25 ) ,BMASS( 25) ,BSPAH( 25 ) .BUIDTHt 25 ) 03094 

ISN 0007 COMMON /WARPP/ HS( 26 ,21 ) ,RN< 25,21 ) ,RTT( 25, 21 ) 03095 

ISN 0008 COMMON /CCORD1/ CLOCALt 3,3, 1000 ) 03096 

ISN 0009 DIMENSION RT( 26 ) ,THETA( 26 ) ,SS( 25),WSS( 25 ) ,ROUT( 26 ) 03097 

ISN 0010 DIMENSION SIGN(25) 03098 

C 03099 

C ARC LENGTH VARIABLE , S , AND SS. 03100 

C SS= CUMULATIVE ARC LENGTH FOR ELEMENT INTERVALS 03101 

C 03102 

ISN 0011 SS(1) = BWIDTHt 1 ) 03103 

ISN 0012 DO 60 I = 2 ,NC 03104 

ISN 0013 60 SS(I) = SS(I-l) + BWIDTHt I ) 03105 

C CALL MATPRN(SS,25,1, 1 SS ’) 03106 

C 03107 

C DETERMINE THE VALUE , WS , BEGINNING AT THE LEADING EDGE 03108 

C - MUST ALSO CALCULATE THE PERPENDICULAR DISTANCES FROM THE 03109 

C TANGENT, RT AND FROM THE NORMAL, Rll TO THE SHEAR CENTER 03110 

C WS = EVALUATED AT NODE POINTS 03111 

C WSS = EVALUATED AT INTERVAL ENDS 03112 

C 03113 

ISN 0014 NODE = (ISEC-1) * NC + 1 03114 

ISN 0015 DO 100 I = 1 ,NC 03115 

C BOTTOM LAYER OF SECTION ISEC 03116 

ISN 0016 RX = XSC(ISEC) - X(NODE) 03117 

ISN 0017 RY = YSC(ISEC) - Y(NODE) 03118 

ISN 0018 RZ = ZSC(ISEC) - Z(NODE) 03119 

ISN 0019 RMAG = DSQRTf RX**2 + RY«*2 + RZ*#2 ) 03120 

ISN 0020 IF ( RMAG .EQ. 0.) GO TO 50 03121 

ISN 0022 RX = RX / RMAG 03122 

ISN 0023 RY = RY / RMAG 03123 

ISN 0024 RZ = RZ / RMAG 03124 

C 03125 

C ANGLE BETWEEN VECTORS R AND LOCAL Z , THETA 03126 

C 03127 

ISN 0025 50 ARG = RX * CLOCALl 3, 1 .NODE ) + RY * CLOCALt 3, 2, NODE) + 03128 

1 RZ * CLOCALt 3, 3, NODE ) 03129 

ISN 0026 THETA(I) = DARCOSI ARG ) 03130 

C 03131 

C DETERMINE THE DIRECTION OF SWEEP, CW OR CCW, FOR THE SIGN ON 03132 

C WSS - NOTE: THIS CHECK USES THE COORDINATE POINTS NOT THE 03133 

C SIDES ON THE BEAM , SO THE CHECK IS APPROXIMATE 03134 

C 03135 

ISN 0027 IF( I .EQ. NC) SIGN(I) = SIGN(I-l) 03136 

ISH 0029 IF( I .Eq. NC) GO TO 400 03137 


V 
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ISM 

0031 


V1Y = Y(NODE) - YSC(ISEC) 

03133 

ISM 

0032 


VIZ = ZINODE ) - ZSC(ISEC) 

03139 

ISM 

0033 


V2Y = YCKODE+1) - YSC(ISEC) 

03140 

ISM 

003“+ 


V2Z = ZINODE+l) - ZSC(ISEC) 

03141 



C 


03142 



c 

VI CROSS V2 - THE RESULTANT X COMPONENT SETS SIGN OF, SIGN. 

03143 



c 

XCOMP GT. 0. - SIGN = 1 

03144 



c 

XCOMP LT. 0. - SIGN =-l 

03145 



c 


03146 

ISM 

0035 


XCOMP = V1Y * V2Z - VIZ * V2Y 

03147 

ISN 

0036 


SIGN(I) = 1. 

03148 

ISM 

0037 


IF ( XCOMP .LT. 0.) SIGN! I ) = -1. 

03149 



c 

WRITE! 6, 111 ) I,NC,SIGN(I) 

03150 



cm 

F0RMAK5X, ' I ,NC >SIGN( I ) * ,2I5,E12.5) 

03151 

ISN 

0039 

400 

CONTINUE 

03152 



C 


03153 

ISM 

0040 


RN( I , ISEC ) = -RMAG * DCOSl THETA(I) ) 

03154 

ISM 

0041 


RT( I ) = RMAG * DSINt THETA(I) ) 

03155 

ISM 

0042 


RTTtl.ISEC) = RT( I ) * SIGN(I) 

03156 

ISM 

0043 


ROUT(I) = RH(I.ISEC) 

03157 



c 


03153 

ISM 

0044 


IFC I .EQ. 1 ) GO TO 101 

03159 

ISM 

0046 


WSS(I) = WSS(I-l) + SIGN(I) * RT( I ) * (SS(I) - SS(I-l)) 

03160 

ISM 

0047 


GO TO 100 

03161 

ISN 

0046 

101 

CONTINUE 

03162 

ISM 

0049 


WSStI) = SIGN(I) * RT( I ) * SS(I) 

03163 



c 

WRITE(6> 112 ) I,SIGN(I),MSS(I) 

03164 



Cl 12 

FORMATlSX.'I.SIGNm.WSSm'.IS.ZEia.S) 

03165 

ISM 

0050 

100 

NODE = NODE + 1 

03166 



c 


03167 



c 

WRITE! 6 >52 ) (WSS( II), 11=1, NC) 

03168 



C52 

FORMAT! 5X.E10. 4) 

03169 



C 

CALL MATPRN! ROUT ,26,1,' RN ■) 

03170 



c 

CALL MATPRN! RT , 26 , 1 , 1 RT *1 

03171 



c 

CALL MATPRN! THETA, 26, 1, 'THET 1 ) 

03172 



c 

CALL MATFRN! SIGN, 25,1,' SIGN* ) 

03173 



c 


03174 



c 

CALCULATE THE AREA 

03175 



c 


03176 

ISM 

0051 


AREA = 0. 

03177 

ISN 

0052 


NODE = (ISEC- 11 * IIC H 

03173 

ISM 

0053 


DO 110 I = 1 ,NC 

03179 

ISM 

0054 


AREA = AREA + TCNODE 1 * BWIDTH(I) 

03180 

ISM 

0055 

110 

NODE = NODE + 1 

03181 



c 

WRITE(6,53) AREA 

03182 



C53 

F0RMAT(5X, ' AREA=' ,E12.5) 

03183 



C 


03184 



C 

AVERAGE HARPING , WSBAR 

03165 



C 


03186 

ISN 

0056 


NSBAR = 0. 

03187 

ISM 

0057 


NODE = ( ISEC-1 1 * NC + 1 

03168 

ISM 

0058 


DO 200 I = 2 >NC 

03169 

ISM 

0059 


NODE = NODE + 1 

03190 

ISN 

0060 


SSS = SSCI) - SS(I-l) 

03191 

ISM 

0061 

200 

WSBAR = WSBAR + T(NODE) * ( WSS(I) + WSSt 1-1)1 / 2. # SSS 

03192 



C 


03193 



C 

ADD THE FIRST TERM AND DIVIDE BY THE TOTAL AREA 

03194 



C 


03195 

ISN 

0062 


NODE = (ISEC-1) * NC + 1 

03196 


PAGE 2 
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♦VERSION 1.3.0 

(01 

MAY 80) WARP SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

ISM 

0063 


WSBAR = WSBAR + T(NODE) * WSS( 1 ) / 2. * SS( 1 ) 



C54 

F0RMAK5X, ‘WSBAR 1 .E12.5) 

ISM 

0064 


WSBAR = WSBAR / AREA 



C 

c 

WRITE (6, 54) WSBAR 



c 

FINALLY CALCULATE THE WARPING VALUE FOR RADIAL DISPLACEMENT 



c 

WS= WSBAR- WS , NOTEiTHIS IS NOT COMPLETE BECAUSE NO TWIST 



c 

c 

GRADIENT HAS BEEN USED 


ISM 0065 
ISM 0066 
ISM 0067 


US( 1 ,ISEC) = WSBAR - WSS( I ) / 2. 

DO 300 I = 2,NC 

300 HS( I,ISEC) = WSBAR - (WSS(I) + WSS(I-l)) / 2. 
C WRITEt 6 >52 ) ( WS( II.ISEC ) ,11=1 ,NC) 

C 

C 


ISM 0068 RETURH 

ISM 0069 END 

^OPTIONS IM EFFECT*NAME(MAIN) 0PTIMI2E(3) LINECOUNT(60 ) SIZE(MAX) AUTODBL( DBL4 ) 
^OPTIONS IM EFFECT*SQURCE EBCDIC NOLIST NODECK OBJECT NOI1AP NOFORMAT GOSTMT NOXREF 
^STATISTICS* SOURCE STATEMENTS = 68, PROGRAM SIZE = 2582, SUBPROGRAM 

^STATISTICS* NO DIAGNOSTICS GENERATED 
****** END OF COMPILATION ****** 


DATE 82. 141/10.51.01 PAGE 

03197 

03198 

03199 

03200 

03201 
WS 03202 

03203 

03204 

03205 

03206 

03207 

03208 

03209 

03210 

03211 

03212 

03213 

NOALC NOANSF TERM IBM FLAG(I) 
NAME = WARP 


3004K BYTES OF CORE NOT USED 



+VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.51.05 PAGE 

REQUESTED OPTIONS: AUT0DBUDBL4 > .SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTODBU DBL4 ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FUG(I) 




C 

DATA SET U498DHOLLO AT LEVEL 003 AS OF 

12/10/81 




c 

DATA SET U498H0LL0N AT LEVEL 001 AS OF 

10/30/81 

00001 

ISN 

0002 


SUBROUTINE HOLLOWt D LE , DTE , DROOT , DTIP , TTI , TBT.NC, NR ) 

00002 



c 



00003 



C 

THIS ROUTINE CALCULATES THE LAYER THICKNESSES FOR EACH BEAM 

00004 



c 

ALSO FOUNO ARE THE BEAM LENGTH, BSPAN, AND 

THE WIDTH, BWIDTH 

00005 



c 



00006 

ISN 

0003 


IMPLICIT REAL*8 (A-H.O-Z) 


00007 

ISN 

0004 


COMMON /LAYER/ TH( 7, 25 ) ,BMASS( 25 ) ,BSPAN( 25 ) 

,BWIDTH( 25) 

00008 

ISN 

0005 


COMMON /INPUTT/ X( 1000 ) ,Y( 1 000 ) ,Z( 1000 ) ,T( 1000 ) 

00009 

ISN 

0006 


COMMON /PLY1/ PLY( 21 ,25,7 ) ,THETA( 7 ) ,RHO( 7 ) 


00010 

ISN 

0007 


COMMON /HOLE/ IHOLE 


00011**3 

ISN 

0008 


DIMENSION DIST( 25) 


00012 



c 



00013 



c 

A = CHORDWISE DISTANCE OF HOLLOW SECTION PENETRATION OF A BEAM 

00014 



c 

B = SAME AS A BUT IN THE SPAN DISRECTION 


00015 



c 

ROOT = RADIAL DISTANCE TO BOTTOM OF CAVITY 


00016 



c 

RTIP = RADIAL DIATANCE TO TOP OF CAVITY 


00017 



c 



00018 



c 



00019 



c 

CHECK FOR THE CAVITY EXISTENCE 


00020 



C 



00021 

ISN 

0009 


IHOLE = 0 


00022**3 

ISN 

0010 


CAVITY = OLE + DTE + DROOT + DTIP 


00023 

ISN 

0011 


IF( CAVITY .EQ. 0. ) GO TO 150 


00024 

ISN 

0013 


GO TO 151 


00025 

ISN 

0014 

150 

NRM1 = NR - 1 


00026 

ISN 

0015 


DO 160 I = 1.NRM1 


00027 

ISN 

0016 


NODE = (1-1) * NC + 1 


00028 

ISN 

0017 


DO 160 J = 1,NC 


00029 

ISN 

0018 


TAVE = ( T( NODE ) + T(NODE+NC) ) / 2. 


00030 

ISN 

0019 


PLY(I,J,1) = TAVE / 2. 


00031 

ISN 

0020 


P LY ( I , J , 2 ) = 0. 


00032 

ISN 

0021 


PLY(I, J,3) = 0. 


00033 

ISN 

0022 


PLY(I,J,4) = 0. 


00034 

ISN 

0023 


PLY(I,J,5) = 0. 


00035 

ISN 

0024 


P LY (I , J , 6 ) = 0. 


00036 

ISN 

0025 


PLYd , J ,7 ) = TAVE / 2. 


00037 

ISN 

0026 

160 

NODE = NODE + 1 


00038 

ISN 

0027 


RETURN 


00039 

ISN 

0028 

151 

CONTINUE 


00040 



C 



00041 

ISN 

0029 


RBOT = X(HC/2 ) + DROOT 


00042 

ISN 

0030 


RTIP = X(NC*NR-NC/2) - DTIP 


00043 



C 

WRITE! 6 , 130 ) RBOT, RTIP 


00044 



C130 

FORMAT! 5X, 'RBOT, RTIP' .2E12.5) 


00045 



C 



00046 

ISN 

0031 


NRM1 = NR - 1 


00047 

ISN 

0032 


DO 100 I = 1.NRM1 


00048 

ISN 

0033 


NODE = d-i) * NC + 1 


00049 

ISN 

0034 


NOD El = NODE 


00050**3 

ISN 

0035 


CHORD = 0. 


00051 



C 



00052 

ISN 

0036 


DO 110 J = 1 >NC 


00053 



C 



00054 
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C 

BEAM LENGTH, BSPAN 

00055 



c 


00056 

ISN 

0037 


XX = X(NODE) - XINODE+NC) 

00057 

ISN 

0038 


YY = Y(NCDE) - Y(NODE+NC) 

00058 

ISN 

0039 


ZZ = Z( NODE ) - Z(NQDE+NC) 

00059 

ISN 

0040 


BSPAN(J) = DSQRT(XX**2 + YY#*2 + ZZ**2) 

00060 



c 

CALL HATPRN(BSPAN>25» 1 , 'SPAN* ) 

00061 



c 


00062 



c 

AVERAGED WIDTH, BWIDTH 

00063 



c 


00064 

ISN 

0041 


XX = X(NODE) - X(NODE+l) 

00065 

ISN 

0042 


YY = Y(NODE) - Y(NODE+l ) 

00066 

ISN 

0043 


ZZ = Z(NODE) - Z( NODE+1 ) 

00067 

ISN 

0044 


DIST(J) = DSQRT(XX**2 + YY**2 + ZZ**2) 

00063 

ISN 

0045 


XX = XJNODE+NC) - X(NODE+NC+l ) 

00069 

ISN 

0046 


YY = Y(N0DE+NC) - Y(NODE+NC+l) 

00070 

ISN 

0047 


ZZ = Z( HODE+NC ) - Z( NGDE+NC+1 ) 

00071 

ISN 

0048 


DIST(J) = (DISK J) + DSQRT(XX**2 + YY**2 + ZZ**2)) / 2. 

00072 



c 


00073 

ISN 

0049 

110 

NODE = NODE + 1 

00074**3 

ISN 

0050 


NODE = NODE! - 1 

00075**3 



c 


00076 

ISN 

0051 


NCM1 = NC - 1 

00077 

ISN 

0052 


IF(NCM1 .EQ. 0) GO TO 201 

00078 

ISN 

0054 


BWIDTH ( I ) = DISK 1 ) 

00079 

ISN 

0055 


BNIDTH(NC) = DISKNC-l ) 

00080 

ISN 

0056 


DO 111 JJ = 2.NCM1 

00081 

ISN 

0057 

111 

BMIDTH(JJ) = ( DISK JJ-1 ) + DIST(JJ)) / 2. 

00082 



c 

CALL MATPRN( BWIDTH, 25, 1 , 'WDTH 1 ) 

00083 

ISN 

0058 

201 

CONTINUE 

00084 

ISN 

0059 


DO 112 JJ = 1 ,NC 

00085 

ISN 

0060 

112 

CHORD = CHORD + BWIDTH (JJ) 

00086 



C 

H3ITE( 6, 131 ) I, CHORD 

00087 



C131 

FORMAT! 5X, 'STATION, CHORD' ,I5,5X,E12.5) 

00088 



C 


00089 

ISN 

0061 


DO 100 J = 1 >NC 

00090 

ISN 

0062 


NODE = NODE + 1 

00091**3 



c 


00092 

ISN 

0063 


IF(X(NODE+NC) .LE. RBOT) GO TO 10 

00093 

ISN 

0065 


IF(X(NODE+NC ) .GT. RBOT .AND. X(NODE+NC) .LE. RTIP) GO TO 20 

00094 

ISN 

0067 


IF(X(NODE+NC) .GT. RTIP) GO TO 30 

00095 



c 


00096 



c 

THIS RADIAL SECTION IS SOLID 

00097 



c 


00098 

ISN 

0069 

10 

B = 0. 

00099 

ISN 

0070 


GO TO 50 

00100 



c 


00101 



c 

THIS RADIAL SECTION IS HOLLOW / SOLID 

00102 



c 


00103 

ISN 

0071 

20 

B = BSPAN(J) 

00104 

ISN 

0072 


IF(X( NODE ) .LT. RBOT) B = X(N0DE+NC) - RBOT 

00105 

ISN 

0074 


IFdHOLE .EG. 0) IHOLE = I 

00106**3 

IStl 

0076 


GO TO 50 

00107 



c 


00108 



c 

THIS RADIAL SECTION IS NEAR THE TIP, MAY INCLUDE SOME HOLLOW 

00109 



c 


00110 

ISN 

0077 

30 

B = 0. 

00111 

ISN 

0073 


IF ( X( NODE ) .LT. RTIP) B = RTIP - X(NODE) 

00112 



C 


00113 
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+VER5I0N 1.3.0 
ISM 0080 


ISN 0081 
ISM 0083 


ISM 0084 
ISN 0085 
ISM 0086 


ISM 0087 

ISN O0S8 
ISM 0090 
ISN 0092 
ISN 0093 
ISM 0095 


ISN 0097 
ISM 0098 


ISN 0099 
ISM 0100 
ISM 0102 


ISN 0103 
ISM 0104 


ISM 0105 
ISM 0106 


ISN 0107 

ISM 0109 
ISM 0110 
ISM 0111 


ISN 0112 
ISM 0113 
ISN 0114 
ISM 0115 


(01 MAY 80) HOLLOW SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 
50 CONTINUE 
C 

C NOW BEGIN CHORDWISE SEARCH FOR - A - DIMENSION 
C 

IF(B .GT. 0. ) GO TO 60 
GO TO 61 
C 

C THIS IS A HOLLOW BEAM 
C 

60 CDIST = 0. 

DO 120 JJ = 1,J 

120 CDIST = CDIST + BWIDTH(JJ) 

C 

C CDIST = DISTANCE FROM LE TO BEAM (J) 

C CTE = DISTANCE FROM LE TO CHORDWISE END OF CAVITY 

C 

CTE = CHORD - DTE 
C 

IF( CDIST .LE. DLE) GO TO 61 

IF (CDIST .GT. DLE .AND. CDIST .LE. CTE) GO TO 62 
CDIST 1 = CDIST - BWIDTH(J) 

IF( CDIST1 .LT. CTE .AND. CDIST .GT. CTE) GO TO 63 
IF( CDIST1 .GT. CTE) GO TO 64 
C 

C SOLID LE SECTION 

C 

61 A = 0. 

GO TO 65 

C 

C HOLLOW / SOLID SECTION - LE 

C 

62 A = COIST - DLE 

IF( A .GT. BWIDTH(J)) A = BWIDTH(J) 

GO TO 65 
C 

C HOLLOW / SOLID SECTION - TE 

C 

63 A = CTE - CDIST1 
GO TO 65 

C 

C SOLID TE SECTION 

C 

64 A = 0. 

65 CONTINUE 
C 

C DEFINE THICKNESS OF EACH LAYER IN BEAM (J) 

C 

IF( B .EQ. 0. .OR. A .EQ. 0.) GO TO 80 
C 

TAVE = (T(NODE) + T(N0DE+NC) ) / 2. 

TCHECK = TAVE - 2. * TTI - 2. * TBT 
IF(TCHECK) 90,90,95 
C 

C NO HOLLOW SECTION DUE TO MINIMUM THICKNESS 
C 

90 TCHEK1 = TAVE - 2. # TTI 
IF(TCHEKl) 91,91,92 

91 TTI1 = TAVE / 2. 

TBT1 = 0. 


DATE 82.141/10.51.05 

00114 

00115 

00116 

00117 

00118 

00119 

00120 
00121 
00122 

00123 

00124 

00125 

00126 

00127 

00128 

00129 

00130 

00131 

00132 

00133 

00134 

00135 

00136 

00137 

00138 

00139 

00140 

00141 

00142 

00143 

00144 

00145 

00146 

00147 

00148 

00149 

00150 

00151 

00152 

00153 

00154 

00155 

00156 

00157 

00158 

00159 

00160 
00161 
00162 

00163 

00164 

00165 

00166 

00167 

00168 

00169 

00170 

00171 , 

00172 



cr> 

co 
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ISN 

0116 


THOL =0. 

00173 

ISN 

0117 


GO TO 200 

00174 

ISN 

0118 

92 

TBT1 = TCHEK1 / 2. 

00175 

ISN 

0119 


TTI1 = TTI 

00176 

ISN 

0120 


THOL = 0. 

00177 

ISN 

0121 


GO TO 200 

00178 



C 


00179 



C 

HOLLOW SECTION THICKNESS IS NONZERO 

00180 



C 


00181 

ISN 

0122 

95 

THOL = A * B / BHIDTHU) / BSPAN(J) * TCHECK 

00182 

ISN 

0123 


TBT1 = A * B / BWIDTH(J) / BSPAN(J) * TBT 

00183 

ISN 

0124 


TTI1 = TAVE - THOL - 2. * TBT1 

00184 

ISN 

0125 


TTI1 = TTI1 / 2. 

00185 

ISN 

0126 


GO TO 200 

00186 



C 


00187 



C 

SOLID SECTION - ALL TITANIUM 

00188 



C 


00189 

ISN 

0127 

80 

TTI1 = (T(NODE) ♦ T(NODE+NC) ) / 4. 

00190 

ISN 

0128 


TBT1 = 0. 

00191 

ISN 

0129 


THOL = 0. 

00192 



C 


00193 

ISN 

0130 

200 

CONTINUE 

00194 



C 

URITE(6,132) I,J,A,B 

00195 



C132 

FORMAT! 5X , 1 STATION , BEAM , A , B * , 215 , 2 E 1 2 . 5 ) 

00196 

ISN 

0131 


PLY( I, J > 1 ) = TTI1 

00197 

ISN 

0132 


PLY( I, J ,2 ) = TBT I 

00198 

ISN 

0133 


PLY( I, J, 3 ) = 0. 

00199 

ISN 

0134 


PLY( I, J,4) = THOL 

00200 

ISN 

0135 


PLY(I,J,5) = 0. 

00201 

ISN 

0136 


PLY( I > J >6 ) = TBT1 

00202 

ISN 

0137 


PLY( I, J, 7) = TTI1 

00203 



C 

WRITE! 6, 300) I, J, ( PLY( I , J,K ) ,K=1 ,7) 

00204**3 



C300 

FORMAT! 5X» 1 STATION , BEAM , PLY ' ,2I5,/,5X,7E12.5) 

00205**3 



C 


00206 

ISN 

0138 

100 

CONTINUE 

00207 



c 


00208 

ISN 

0139 


RETURN 

00209 

ISN 

0140 


END 

00210 


^OPTIONS IN EFFECT*NAME ( MAIN ) OPTIMI2E(3) LINEC0UHT1 60 ) SIZE(MAX) AUT0D3L(DBL4) 

"OPTIONS IN EFFECT*SOURCE EECOIC NOLIST NODECK OBJECT NONAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FUGII) 
^STATISTICS* SOURCE STATEMENTS = 139, PROGRAM SIZE = 2480, SUBPROGRAM NAME =HOLLON 

*STATISTICS* NO DIAGNOSTICS GENERATED 

****** END Or COMPILATION ****** 2992K BYTES OF CORE NOT USED 



♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 83.141/10.51.11 PAGE 

REQUESTED OPTIONS: AUTODBL( OBL4 ) .SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNT! 60 ) SIZE(MAX) AUTODEK DBL4 ) 





SOURCE EBCDIC NOLIST NODECK OBJECT 

NONAP NOFCRMAT GOSTMT NOXREF 

NOALC N0ANSF TERM IBM FLAG(I) 



C 


DATA SET U498DBMFIT AT LEVEL 003 AS OF 11/02/81 




C 


DATA SET T926BMFIT AT LEVEL 002 AS OF 05/25/79 

00001 

ISN 

0002 



SUBROUTINE BMFIT2 ( X, Y, YP1, 

YPN, N, IP, A, B, C, D ) 

00002 

ISN 

0003 



DIMENSION X(N), Y(N)> A(N) > B(N), C(N), DIN) 

00003 

ISN 

0004 



IF ( H - 2 ) 10, 30, 40 


00004 

ISN 

0005 


10 

WRITE (6,20) N 


00005 

ISN 

0006 


20 

FORMAT (//, 46H THE NUMBER OF DATA POINTS IS LESS THAN 2. N 

=,14)00006 

ISN 

0007 



GO TO 240 


00007 

ISN 

0003 


30 

D(l) = 0.0 


00008 

ISN 

0009 



C(l) = 0.0 


00009 

ISN 

0010 



Bill = ( Y(2) - Y(l) ) / ( X( 2 ) 

- X(l) ) 

00010 

ISN 

0011 



All) = YU) 


00011 

ISN 

0012 



GO TO 240 


00012 



c 




00013 

ISN 

0013 


40 

C(l) = X( 2 ) - XU) 


00014 

ISN 

0014 



Ml = N - 1 


00015 

ISN 

0015 



N2 = N - 2 


00016 

ISN 

0016 



DO 50 I = 2, N1 


00017 



c 




00018 



c 

H( I ) = X(I+1) - X(I) 


00019 



C 

LAMBDA! I) = HU) / ( H(I-l) + H(I) 

) 

00020 



C 

SD(I) = 6 .* ((YU+1)-Y(I))/H(I) - 

(Y(I)-Y(I-l) )/H( I-1))/(H(I-1)+H(I))00021 



c 




00022 

ISN 

0017 



CU) = XU+l) - X(I) 


00023 

ISN 

0018 



D(I) = C(I) / ( C(I-l) + CU) ) 


00024 

ISN 

0019 



All) = 6 .* ( (Y(I+1 )-Y(I) )/C(I)- 

(Y(I)-Y(I-l) l/CII-l ) )/(C( 1-1 )+C( I ) >00025 

ISN 

0020 


50 

CONTINUE 


00026 



c 




00027 



C 

DETERMINE END CONDITIONS AND SET LEFT END CONDITION 

00028 



c 

S 

= DIN) 


00029 



c 

R 

= C(N) 


00030 



c 

S0( 1 ) = A( 1 ) 


00031 



c 

LAMBDA! 1) = DU) 


00032 



c 




00033 

ISN 

0021 



DIN) = 0.0 


00034 

ISN 

0022 



C(N) = 0.0 


00035 

ISN 

0023 



IF ( IP - 20 ) 110, 60, 70 


00036 

ISN 

0024 


60 

D(l) = 0.0 


00037 

ISN 

0025 



A( 1 ) = YP1 + YP1 


00033 

ISN 

0026 



GO TO 160 


00039 

ISN 

0027 


70 

IF ( IP - 30 ) 90, 80, 100 


00040 

ISN 

0028 


80 

DU) = -2. # ( C(l) + C( 2 ) ) / 

C( 2) 

00041 

ISN 

0029 



A( 1 ) = 0.0 


00042 

ISN 

0030 



C(H) = ( C(l) + C(l) ) / C(2) 


00043 

ISN 

0031 



GO TO 160 


00044 

ISN 

0032 


90 

DU) = 0.0 


00045 

ISN 

C033 



All) = YP1 + YP1 


00046 

ISN 

0034 



IF ( IP - 22 ) 170, 180, 190 


00047 

ISN 

0035 

100 

D(l) = -2. * ( C(l) + C( 2 ) ) / 

C( 2) 

00048 

ISN 

0036 



All) = 0.0 


00049 

ISN 

0037 



C(N) = ( CU) + C(l) ) / C(2) 


00050 

ISN 

003S 



IF ( IP - 32 ) 170, 180, 190 


00051 

ISN 

0039 

110 

IF ( IP - 10 ) 140, 120, 130 


00052 

ISfl 

0040 

120 

DU) = 1.0 


00053 

ISN 

0041 



A(l) = ( ( Y ( 2 ) — Y ( 1 ) )/C( 1 ) - YP1 

) * (6. / cm ) 

00054 



♦VERSION 1.3.0 

(01 

HAY 80) BMFIT2 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

DATE 82.141/10.51.11 

ISN 

0042 


GO TO 160 

00055 

ISN 

0043 

130 0(1) = 1.0 

00056 

ISU 

0044 


A( 1 ) = ( ( Y(2 )-Y( 1 ) )/C( 1 ) - YP1 ) * (6. / C(l) ) 

00057 

ISN 

0045 


IF ( IP - 12 ) 170, 180, 190 

00058 

ISU 

0046 

140 Dll) = -YP1 - YP1 

00059 

ISU 

0047 


A(l) = 0.0 

00060 

ISH 

0043 


IF ( IP - 2 ) 150, 180, 190 

00061 

ISN 

0049 

150 IF ( IP ) 300, 160, 170 

00062 



C 


00063 



C 

PERIODIC SPLINE 

00064 



c 


00065 



c 

LAM3DA(N) = H(l) / ( H( 1 ) + H(N-l) ) 

00066 



c 


00067 

ISN 

0050 

300 D(N) = cm / ( C(N1 ) + C(l) ) 

00068 



c 


00069 



c 

SD(N) = 6. #(((Y(2)-Y(N))/H(1) - (Y(N)-Y(N-l ) )/H(N-l ) )/<H(N-J )+H( 1 )) 100070 



c 


00071 

ISN 

0051 


A(H) = 6. #(((Y(2)-Y(N) )/C( 1 ) - (Y(N)-Y(Nl ) )/C(Nl ) ) /(C(N1 )+C( 1 )) 100072 



c 


00073 



c 


00074 

ISN 

0052 


B( 2 ) = ( D( 2 ) - 1. ) / 2 

00075 

ISN 

0053 


A( 2 ) = A(2) / 2 

00076 

ISN 

0054 


D( 2 ) = -D( 2 ) / 2 

00077 



c 


00078 



c 

S(I) = S( 1-1 )#( LAMBDA( I )-l . ) / ( 2.*Q( 1-1 )*( 1 .-LAMBDA! I ) ) ) 

00079 



c 

U(I) = (SD(I)-U(I-l Wl.-LAMBDA(I))) / ( 2.*Q( 1-1 )#( 1 ,-LAMBDA( I) ) ) 00080 



c 

Q( I ) = -LAI1BDA( I ) / (2.*Q(I-1 )#( l.-LANSDA(I) ) ) 

00031 



c 


00082 

ISN 

0055 


DO 310 I = 3, N1 

00083 

ISN 

0056 


B(I) = (B( 1-1 )#(D( I )-l . ) ) / (2.+D(I-l)*(l.-D(I))) 

00084 

ISN 

0057 


A ( I ) = (A(I)-A(I-1)*(1.-D(I)>) / (2.40(1-1 )«( l.-D(I))) 

00085 

ISN 

005S 


D(I) = — D ( I ) / ( 2.+DI 1-1 )*( 1 .-D( I) ) ) 

00036 

ISN 

0059 

310 CONTINUE 

00087 



C 


00063 



C 

T(N-l) = Q(N-l) + S(N-l) 

00069 



c 

V(N-l) = U(N-l) 

00090 



c 

T(K J = Q(K) * T(K+1 ) + S(K) 

00091 



c 

V(K) = Q(K) * V(K+1 ) + U(K) 

00092 



c 


00093 

ISN 

0060 


B(N1 ) = D(N1 ) ♦ B(N1) 

00094 

ISN 

0061 


D(N1) = A( HI ) 

00095 

ISN 

0062 


DO 320 1=2, N2 

00096 

ISN 

0063 


K = N - I 

00097 

ISN 

0064 


B(K) = 0(K) * B( K+l ) ♦ B(K ) 

00093 

ISN 

0065 


D(K) = D(K) * D(K+1 ) + A(K) 

00099 

ISN 

0066 

320 CONTINUE 

00100 



C 


00101 



C 

M(N) = ( SD ( H ) - V(N-l) + LAMBDA! N) * ( V(N-l) - V(2) ) ) / ( 

2. + 00102 



C 

T(N-l) - LAMBDA(N) * ( T(N-l) - T(2) ) ) 

C0103 



C 

MCI) = MIN) 

00104 



C 


00105 

ISN 

0067 


A(N) = (A(N)-D(Nl»D(N)*(D(Nl)-D(2)))/(2.+B(Nl)-D(N)#(B(Nl) 

-B( 2 ) ) >00106 

ISN 

0C66 


A ( 1 ) = A(N) 

00107 

ISN 

0069 


DO 330 I = 1, N2 

00108 

ISN 

0070 


K = N - I 

00109 



C 


00110 



c 

M(K) = T(K) * M(N) + V(K) 

00111 



c 


00112 

ISN 

0071 


A(K) = B(K) * A(N) + D(K) 

00113 


PAGE 



♦VERSION 1.3.0 

(01 

MAY 80) BMFIT2 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.51.11 

ISI1 

0072 

330 CONTINUE 


00114 

ISN 

0073 


GO TO 225 


00115 



C 



00116 



C 

SET RIGHT END CONDITION 


00117 



C 

TAU = B(N) 


00118 



C 

SO ( N ) = A(N > 


00119 



C 



00120 

ISN 

0074 

160 B(N) = -YFN - YPN 


00121 

ISN 

0075 


A(H) = 0.0 


00122 

ISN 

0076 


GO TO 200 , 1 


00123 

ISN 

0077 

170 B(N) = 1.0 


00124 

ISN 

0076 


A(N) = ( YPN - (Y(N)-Y(N1))/C(N1) ) * (6. / C(N1) ) 


00125 

ISN 

0079 


GO TO 200 


00126 

ISN 

0080 

180 B(N) = 0.0 


00127 

ISN 

0031 


AIN) = YFN + YPN 


00128 

ISN 

0082 


GO TO 200 


00129 

ISN 

0063 

190 BIN) = -2. * ( ( C(N1 ) + C(N-2 ) ) / C (N-2) ) 


00130 

ISN 

0034 


A(N) = 0.0 


00131 

ISN 

0035 


D(N) = I C(N1 ) + C(N1 ) ) / C(N-2 ) 


00132 



C 



00133 



C 

G( 1 ) = ( LAMBDA ( 1 )#S0( 2 )-2.#SD( 1 ) ) / I LAMBDA! 1 )*( 1 .-LAMBDA! 2 ) )-4. ) 


00134 



C 

W(l) = (LANBDA(1)*LAMBDA(2)-2.*R) / ( LAMED A( 1 )*( l.-LAI!CDA( 2 ) )-4. ) 


00135 



C 

G(2) = (SD(2)-G(1)*(1.-LAHB0A(2))) / 2. 


00136 



c 

W(2) = ( LAMBDA! 2 )-W( 1 )*( 1 . -LAMBDA! 2 ) ) ) / 2. 


00137 



c 



00133 

ISN 

0086 

200 A(l) = (Dll )*A( 2 )-A( 1 )-A( 1 ) ) / (D( l )*( 1 .-D( 2) )-4. ) 


00139 

ISN 

0087 


B(l) = I D( 1 )*D( 2 )-C(N)-C(N) ) / (D( 1 )*( 1 .-D( 2) )-4. ) 


00140 

ISN 

0038 


A( 2 ) = (A(2)-A(l)#(l.-D(2))) / 2. 


00141 

ISN 

0089 


B( 2 ) = ( D( 2 )-B( 1 )*( 1 . -D( 2 ) ) ) / 2. 


00142 



C 



00143 



C 

G( I ) = (SDI I )-G( 1-1 )#( 1-LAMBDA( I ) ) ) / ( 2-W( 1-1 )*( l-LAf!3DA( I ) ) ) 


00144 



C 

WII) = LANEDA(I) / (2-U(I-l)*(U-LAi1BDA(I))) 


00145 



C 



00146 

ISN 

0090 


DO 210 I = 3, Nl 


00147 

ISN 

0091 


A( I ) = (A(I)-A(I-1)*(1.-D(I))) / I2.-B(I-1)*(1.-D(I))) 


00148 

ISN 

0092 


B( I ) = D( I ) / (2.-B(I-l)*(l.-D(I))) 


00149 

ISN 

0093 

210 CONTINUE 


00150 



C 



00151 



c 

M(N) = ( SD(N)-S*( GIN-2 )-W( N-2 )#G(N-1 ) )-TAU*G(N-l ) ) / ( 2-ITAU-S* 


00152 



c 

W(N-2))*U(N-1) ) 


00153 



c 

M(K) = G(K) - W( K ) * MIK+l ) 


00154 



c 



00155 

ISN 

0094 


A(N) = I A(N) - DIN) * ( At N2 ) - B(N2) * A(N1) ) - BIN) # A(N1) 

) 

00156 




1 / ( 2. - ( BIN) - DIN) * B(N2) ) * B(N1) ) 


00157 

ISN 

0095 


DO 220 I = 1, N2 


00158 

ISN 

0096 


K = N - I 


00159 

ISN 

0097 


AIK) = AIK) - BIK) * AIK+l) 


00160 

ISN 

0093 

220 CONTINUE 


00161 



C 



00162 



C 

Mil) = Gil) - W(l) # Ml 3 ) 


00163 



C 



00164 

ISN 

0099 


All) = All) - B( 1 )#A( 3) 


00165 



C 



00166 



C 

COMPUTE COEFFICIENTS 


00167 



c 



00163 

ISN 

0100 

225 DO 230 I = 1, Ni 


00169 



C 



00170 



C 

DU) = I MII+l) - Mil) ) / I 6. * HII) ) 


00171 



C 

BID = I YII+l) - YII) ) / HID - HII) * I I MII+l) + 2 * Mil) ) / 

6. 

,00172 



ro 


♦VERSION 1.3.0 


ISM 0101 
ISN 0102 
IStl 0103 
ISM 0104 
ISN 0105 
ISN 0106 
ISN 0107 


(01 HAY 80) BMFIT2 

c cm = tit i ) / 2 
c A(I) = Y(I) 

C 


SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 


230 

240 


Dll) 

6(1) 

cm 

A( I ) 
CONTINUE 
RETURN 
END 


A( 1+1 ) - At I ) ) / ( 6. 
Y( 1+1 ) — Y ( X ) ) / C(I) - 
/ 2 


A( I ) 
Y( I ) 


* C(I) ) 

( A( 1+1 )+A(I )+A( I ) 


DATE 82.141/10.51. 

00173 

00174 

00175 

00176 

) *(C(I) / 6. )00177 

00178 

00179 
00130 
00181 
00182 


11 


^OPTIONS IN EFFECT*NAME( MAIN) 0PTIMIZE(3) LINECOUNT(60 ) SIZE(MAX) AUT0DBLIDBL4) 

^OPTIONS IN EFFECTKSOURCE EBCDIC NOLIST NODECK OBJECT N0MAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM 
^STATISTICS* SOURCE STATEMENTS = 106, PROGRAM SIZE = 2398, SUBPROGRAM NAME =BMFIT2 

* STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 2984K BYTES OF CORE NOT USED 


PAGE 4 


FLAG(I) 


^STATISTICS* NO DIAGNOSTICS THIS STEP 




F64-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED MAP, LIST, LET, , ,SIZE=( 256K.36K) 
VARIABLE OPTIONS USED - SIZE=(262144, 36864) 

IEW0132 CUBIC 
IEU0132 FEMFIT 
IEIJ0132 FOD 


MODULE MAP 


CONTROL SECTION 


ENTRY 


NAME 

ORIGIN 

LENGTH 

STAEBL 

00 

22A5C 

BBIP 

22A60 

1864 

BIRDF 

242C8 

42C 

ECOORD 

246F8 

2CE 

BEAM 

249C8 

27D6 

CORD2R 

27IA0 

A1C 

ESTIFF 

27BC0 

50A 

EXNECK 

230D0 

12F2 

FRPil 

293C8 

2C2 

HOI.ZER 

29690 

AE8 

INFUT 

2A178 

3A8 

KDGG 

2A520 

9F0 

LAMINA 

2AF10 

9FA 

LAMIN1 

2B910 

39A 

LOAD 2 

2BCB0 

77E 

MATADD 

2C430 

1B4 

MATMPY 

2C5E8 

232 

MATPP.N 

2C820 

21E 

MINV 

2CA40 

5DE 

MODMAS 

2D020 

40A 

HODSTR 

2D430 

4C2 

PARTN 

2D6F8 

37A 

PP1 

2DC78 

216 

RBE2 

2DE90 

5D8 

SECTN 

2E468 

4390 

SHAPE 

327F8 

340 

SMULT 

32B38 

100E 

STABEL 

33E48 

12E58 

STATIC 

469A0 

1D2C 

ZSTRES 

4S6D0 

1440 

THICK 

45B10 

25FE 

TSAINU 

4C110 

458 

HARP 

4C568 

A16 

HOLLOW 

4CF80 

9B0 

EMFIT2 

4D930 

95 E 

IHOLASCN# 

4E290 

267 

IHOLATH2* 

4E4F8 

278 

IHOLCOS # 

4E770 

280 


NAME LOCATION NAME LOCATION NAME LOCATION NAME LOCATION 


IH$DARCS 

4E290 

DARCOS 

4E290 

IHSDARSN 

4E2A8 

DARSIN 

4E2A8 

DATAN2 

4E4F8 

IHSDATA2 

4E4F8 

DATAN 

4E510 

IH$DATAN 

4E510 

DCOS 

4E770 

IHSDCOS 

4E770 






pi ■ 



NAME 

ORIGIN 

LENGTH 

NAME 

LOCATION 

NAME 

LOCATION 

NAME 

LOCATION 

NAME 

LOCATION 

IHOLSIN * 

4E9F0 

2F0 

DSIN 

4E9F0 

IHSDSIN 

4E9F0 





IHOLSQRT* 

4ECE0 

170 

DSQRT 

4ECE0 

IHSDSQRT 

4ECE0 





IHOLTNCT* 

4EE50 

2F0 

DCOTAN 

4EE50 

IHSDCOTN 

4EE50 

DTAN 

4EE72 

IH$DTAN 

4EE72 




QDTAN 

4F02C 







FIOEXEC * 

4F140 

14EE 

TYPSTK$ 

4F88F 

VALSTK$ 

4F918 

FOESET 

4F9CC 

FIOCOVER 

4F9D4 




FOXCALL 

4FE5E 

FCRASH 

50058 





FIOPRET * 

50630 

3500 

FIOFRETC 

50630 

FIOPRETS 

50658 

FIOPRETI 

53100 

FIODCB6 

53140 




FOXCOUNT 

534A8 

FSYSUNIT 

534B0 





FIOCONPL* 

53B30 

2846 

DYNMENT 

53B50 

VARCOMP 

53B7A 





IHOECOMH* 

56378 

E54 

IBCON* 

563AC 

PWIBSAVE 

56428 

FDIOCS8 

56468 

PWFIOCSV 

570C8 




IHTSWTCH 

57110 







FI0AP8 # 

571D0 

61C 









IHOCOMH2* 

577F0 

AO 4 

SEQDASO 

57BD6 







IHOFCVTH# 

532C8 

CEA 

ADC0N8 

582C8 

FCVAOUTP 

58334 

FCVLOUTP 

5834C 

FCV20UTP 

58364 




FCVIOUTP 

5837C 

FCVEOUTP 

583B4 

FCVCOUTP 

583B4 

ADCONI# 

58AB3 




ADC0N08 

58AD4 

INT6SUCH 

5SFB1 





IHOEFNTH# 

58FB8 

800 

ARITH# 

58FB8 

AQJSUTCH 

5954C 





IHOLEXP * 

597B8 

3DC 

DEXP 

597B8 

IHSDEXP 

597B3 





IHOEFIOS* 

59B98 

118C 

FI0CS8 

59B93 

FIOCSBEP 

59B9E 





IHOFIOS2* 

5 AO 28 

642 









IHOERRM * 

5B370 

624 

ERRNON 

5B370 

IHOERRE 

5B383 





IHOUATBL* 

EB998 

328 









IHOUOPT « 

5BCC0 

4C8 









IHOFCONI* 

5C188 

416 

FQCONI# 

5C188 







IHCFCONO* 

5C5A0 

8B3 

FQCONOB 

5C5A0 







IHOETRCH# 

5CE58 

2AE 

IHOTRCH 

5CE58 

ERRTRA 

5CE60 





PHPOSTOP* 

50108 

128 









IHOFTEN * 

50230 

220 

FTEN8 

5D230 







BLKCU 

50450 

6904 









BLK2 

63D58 

20 









BLK4 

63078 

2C 









BLK7 

63DA8 

4EC 









BLKX2 

64298 

348 









BLKAA 

645E0 

348 









BLK8 

64928 

998 










NAME 

BLKA 

BLK9 

INFUTT 

SC 

ANAL33 

FAIL 

SMAXX 

M0DAL1 

BLK15 

COORD 1 

BLK3 

EC 

BSTIFF 

ESTIF 

LAYER 

REOROR 

QIJ 

STIFF 

STRS 

PLYI 

2C0EF 

HSTIFF 

STATC 

CALCA 

RBE 

MODAL 

UARPP 

BLKAC 

DSTIFF 

TRANS 

HOLE 

HIEGHT 


ORIGIN 

652C0 

65608 

65550 

6D650 

6DA90 

6DA93 

6E228 

6E368 

71BQ3 

72B78 

899B8 

899E8 

89610 

89F10 

85090 

85660 

86160 

86358 

6DDF8 

129128 

12B97Q 

12B668 

131968 

137B98 

13CC10 

13D510 

13E7D0 

1919B0 

1581B0 

163580 

163B98 

163BA0 


LENGTH 

398 

398 

7D00 

3F0 

58 

790 

190 

3370 

FAO 

11990 

30 

128 

900 

180 

7D0 

900 

1F8 

7AA0 

96330 

7398 

1F8 

6300 

61E0 

50C8 

900 

12C0 

31E0 

16600 

B900 

5E8 

9 

38 


NAME LOCATION 


NAME LOCATION NAME LOCATION 


NAME 


ENTRY ADDRESS 00 

TOTAL LENGTH 163BD8 

*xkmU9932029 NOW REPLACED IN DATA SET 
AUTHORIZATION CODE IS 0. 


DIAGNOSTIC MESSAGE DIRECTORY 

IEW0132 ERROR - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE. 


LOCATION 



PRATT & WHITNEY AIRCRAFT ENGINEERING DIV 
SR.FR0G2.PANLIB 


VER 

10.0 


05/21/82 

10.51.52 


PAGE 

1 


SERIAL 

037212 


PANVALET 

THE PROGRAM MANAGEMENT AND SECURITY SYSTEM 

PROGRAMS AND ALL SUPPORTING MATERIALS COPYRIGHT 1975 BY PANSOPHIC SYSTEMS, INCORPORATED 
+4HRITE W0PK,U498SF0D 

***** ABOVE ACTION SATISFACTORILY COMPLETED ***** 

++WRITE WORK i U493SANLIZ 

***** ABOVE ACTION SATISFACTORILY COMPLETED ***** 

++WRITE WORK i U498SRD ATA 

***** ABOVE ACTION SATISFACTORILY COMPLETED ***** 

++MRITE W0RK,U493SCALCT 

***** ABOVE ACTION SATISFACTORILY COMPLETED ***** 

++WRITE H0RK.U498SIT983 

***** ABOVE ACTION SATISFACTORILY COMPLETED ***** 

++NRITE WORK, U498SND 983 

***** ABOVE ACTION SATISFACTORILY COMPLETED ***** 

++WRITE WORK ,U493SRD983 

***** AEOVE ACTION SATISFACTORILY COMPLETED ***** 

++NRITE WORK, U498SRD 137 

***** ABOVE ACTION SATISFACTORILY COMPLETED ***** 

+ +WRITE WORK,U498SRSFUN 

***** ABOVE ACTION SATISFACTORILY COMPLETED ***** 

++WRITE WORK , U4 98STMAX 

***** ABOVE ACTION SATISFACTORILY COMPLETED ***** 

++WRITE WORK >U493SMT983 

***** ABOVE ACTION SATISFACTORILY COMPLETED ***** 

++WRITE WORK , U4 98SNT 137 

***** ABOVE ACTION SATISFACTORILY COMPLETED ***** 

++MRITE WORK , U498S0BJTV 

***** ABOVE ACTION SATISFACTORILY COMPLETED ***** 

++WRITE WORK , PREFIX=U i *77C 

***** ABOVE ACTION SATISFACTORILY COMPLETED ***** 

+ +IJRITE WORK .UA77SIMCON 

***** ABOVE ACTION SATISFACTORILY COMPLETED ***** 

++NRITE WORK ,U^77MAIN 

***** ABOVE ACTION SATISFACTORILY COMPLETED ***** 



FORTRAN H EXTENDED (ENHANCED) 


SOURCE 

STATEMENTS 

= 

105, 

FROSRAM 

SIZE 

= 

4294, 

SUSPROGRAM 

NAME 

= FOD 

SOURCE 

STATEMENTS 

= 

187, 

PROGRAM 

SIZE 

= 

3568, 

SUBPROGRAM 

NAME 

=ANALIZ 

SOURCE 

STATEMENTS 

= 

70, 

PROGRAM 

SIZE 

= 

1244, 

SUBPROGRAM 

NAME 

=RDDATA 

SOURCE 

STATEMENTS 

= 

42, 

PROGRAM 

SIZE 

= 

1032, 

SUBPROGRAM 

NAME 

=CALCTH 

SOURCE 

STATEMENTS 

= 

77, 

PROGRAM 

SIZE 

= 

1402, 

SUBPROGRAM 

NAME 

=ITT983 

SOURCE 

STATEMENTS 

= 

19, 

PROGRAM 

SIZE 

= 

464, 

SUBPROGRAM 

NAME 

=NDT983 

SOURCE 

STATEMENTS 

= 

18, 

PROGRAM 

SIZE 

= 

558, 

SUBPROGRAM 

NAME 

=RDT983 

SOURCE 

STATEMENTS 

= 

110, 

PROGRAM 

SIZE 

= 

3472, 

SUBPROGRAM 

NAME 

=RDW137 

SOURCE 

STATEMENTS 

= 

33, 

PROGRAM 

SIZE 

= 

1048, 

SUBPROGRAM 

NAME 

=RSFUNC 

SOURCE 

STATEMENTS 

= 

58, 

PROGRAM 

SIZE 

= 

1098, 

SUBPROGRAM 

NAME 

= TMAX 

SOURCE 

STATEMENTS 

= 

49, 

PROGRAM 

SIZE 

= 

1206, 

SUBPROGRAM 

NAME 

=NTT933 

SOURCE 

STATEMENTS 

= 

114, 

PROGRAM 

SIZE 

= 

3002, 

SUBPROGRAM 

NAME 

=WTW137 

SOURCE 

STATEMENTS 

= 

58, 

PROGRAM 

SIZE 

= 

1994, 

SUBPROGRAM 

NAME 

= OBJTV 

SOURCE 

STATEMENTS 

= 

87, 

PROGRAM 

SIZE 

= 

1730, 

SUBPROGRAM 

NAME 

=CNMN01 

SOURCE 

STATEMENTS 

= 

40, 

PROGRAM 

SIZE 

= 

654, 

SUBPROGRAM 

NAME 

=CNMN02 

SOURCE 

STATEMENTS 

= 

249, 

PROGRAM 

SIZE 

= 

3520, 

SUBPROGRAM 

NAME 

=CNMN03 

SOURCE 

STATEMENTS 

= 

105, 

PROGRAM 

SIZE 

= 

1754, 

SUBPROGRAM 

NAME 

=CN?1N04 

SOURCE 

STATEMENTS 

= 

122, 

PROGRAM 

SIZE 

= 

2548, 

SUBPROGRAM 

NAME 

=CNMN05 

SOURCE 

STATEMENTS 

= 

493, 

PROGRAM 

SIZE 

= 

6746, 

SUBPROGRAM 

NAME 

=CNMN06 

SOURCE 

STATEMENTS 

= 

55, 

PROGRAM 

SIZE 

= 

936, 

SUBPROGRAM 

NAME 

=CNMN07 

SOURCE 

STATEMENTS 

= 

84, 

PROGRAM 

SIZE 

= 

1390, 

SUBPROGRAM 

NAME 

=CNMN08 

SOURCE 

STATEMENTS 

= 

830, 

PROGRAM 

SIZE 

= 

15164, 

SUBPROGRAM 

NAME 

=CONMIN 

SOURCE 

STATEMENTS 

r 

706, 

PROGRAM 

SIZE 

= 

15790, 

SUBPROGRAM 

NAME 

=C0PE01 

SOURCE 

STATEMENTS 

= 

41, 

PROGRAM 

SIZE 

= 

1352, 

SUBPROGRAM 

NAME 

=COPE02 

SOURCE 

STATEMENTS 

= 

68, 

PROGRAM 

SIZE 

= 

1246, 

SUBPROGRAM 

NAME 

=COPE03 

SOURCE 

STATEMENTS 

= 

230, 

PROGRAM 

SIZE 

= 

3454, 

SUBPROGRAM 

NAME 

=COPE04 

SOURCE 

STATEMENTS 

= 

71, 

PROGRAM 

SIZE 

= 

2210, 

SUBPROGRAM 

NAME 

=COPE05 

SOURCE 

STATEMENTS 

= 

48, 

PROGRAM 

SIZE 

= 

1118, 

SUBPROGRAM 

NAME 

=COPE06 

SOURCE 

STATEMENTS 

r 

52, 

PROGRAM 

SIZE 

s 

1470, 

SUBPROGRAM 

NAME 

=COPE07 



SOURCE 

STATEMENTS 

~ 

63, 

PROGRAM 

SIZE 

= 

846, 

SUBPROGRAM 

NAME 

=COPE08 

SOURCE 

STATEMENTS 

= 

544, 

PROGRAM 

SIZE 

= 

9868, 

SUBPROGRAM 

NAME 

=COPE09 

SOURCE 

STATEMENTS 

= 

69, 

PROGRAM 

SIZE 

= 

2038, 

SUBPROGRAM 

NAME 

=COPE10 

SOURCE 

STATEMENTS 

= 

57, 

PROGRAM 

SIZE 

= 

1134, 

SUBPROGRAM 

NAME 

=COPEl 1 

SOURCE 

STATEMENTS 

= 

125, 

PROGRAM 

SIZE 

= 

2844, 

SUBPROGRAM 

NAME 

=COPE12 

SOURCE 

STATEMENTS 

= 

23, 

PROGRAM 

SIZE 

= 

566, 

SUBPROGRAM 

NAME 

=C0PE13 

SOURCE 

STATEMENTS 

= 

95, 

PROGRAM 

SIZE 

= 

2632, 

SUBPROGRAM 

NAME 

=C0PE14 

SOURCE 

STATEMENTS 

= 

63, 

PROGRAM 

SIZE 

= 

1728, 

SUBPROGRAM 

NAME 

=C0PE15 

SOURCE 

STATEMENTS 

= 

29, 

PROGRAM 

SIZE 

= 

878, 

SUBPROGRAM 

NAME 

=COPE16 

SOURCE 

STATEMENTS 

= 

36, 

PROGRAM 

SIZE 

= 

660, 

SUBPROGRAM 

NAME 

=C0PE17 

SOURCE 

STATEMENTS 

= 

49, 

PROGRAM 

SIZE 

= 

1408, 

SUBPROGRAM 

NAME 

=C0PE1S 

SOURCE 

STATEMENTS 

= 

157, 

PROGRAM 

SIZE 

= 

3780, 

SUBPROGRAM 

NAME 

=SIMCON 

SOURCE 

STATEMENTS 

= 

248, 

PROGRAM 

SIZE 

- 

3930, 

SUBPROGRAM 

NAME 

= MAIN 



♦VERSION 1.3.0 (01 MAY 60) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.52.17 PAGE 

REQUESTED OPTIONS: SOURCE , NOMAP, NOXREF , NOLIST, N3DECK, OPT! 3 ) .AUTODBL! NONE ) .NOALC 
OPTIONS IN EFFECT: NAME (MAIN) 0PTIMIZE(3) LINECOUNT(60 ) SIZE(MAX) AUTODBL! NONE ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NCFORHAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 


ISN 0002 


ISN 0003 
ISN 0004 
ISN 0005 
ISN 0006 
ISN 0007 
ISN 0006 
ISN 0009 
ISN 0010 
ISN 0011 
ISN 0012 

ISN 0013 
ISN 0014 

ISN 0015 
ISN 0016 


ISN 0017 
ISN 0016 


ISN 0019 
ISN 0020 
ISN 0021 
ISN 0022 
ISN 0023 
ISN 0024 
ISN 0025 
ISN 0026 
ISN 0027 

ISN 0026 
ISN 0029 


ISN 0030 
ISN 0031 
ISN 0032 
ISN 0033 


C DATA SET U498SFOD AT LEVEL 006 AS OF 03/01/82 

C DATA SET U498SF0D AT LEVEL 004 AS OF 02/08/82 00001 

C DATA SET U493SFOD AT LEVEL 002 AS OF 11/16/81 00002 

SUBROUTINE FOD( NR ,NC,RPM1 .ALPHA 1 ) 00003 

C 00004 

C LSBIP - LOCAL STRESS BIRD INGESTION PARAMETER 00005 

C 000C6 

IMPLICIT REAL*B( A-H,Q-Z) 00007 

REAL * 4 VALT , BRSU , N3 00008 

COMMON /INPUTT/ X( 1000 ) ,Y( 1000 ) ,Z( 1000 ) ,T( 1000 ) 00009 

COMMON /BLK 3/ FN, BLADES, BETA, THR ,THT,MST1 ,NBB 00010 

COMMON /BLKAA/ ALPMIN( 21 ) ,XSC( 21 ) , YSC( 21 ) ,XXX( 21 ) ,YYY( 21 ) 00011 

COMMON /BLK 8/ SMB( 21 ) ,ITTLE( 18 ) , VARI( 235 ) ,TMAX( 21 ) ,HALPHA( 21 ) 00012 

COMMON /LAYER/ TH( 7, 25 ) ,EMASS( 25) ,BSPAN( 25) .BUIDTHl 25) 00013 

COMMON /BIRO/ BLSMAX(21) 00014 

COMMON /PLY1/ PLY( 21 ,25,7 ) ,THETA( 7 ) ,RH( 7) 00015**6 

COMMON /STRS/ RBE( 12 , 12 , 25,21 ), FOUT( 12 ,21 ) ,SL( 25,21 ) ,SH( 25,21 ) 00016**6 

C 00017 

DIMENSION TB( 25 ) > AREA( 25 ) , AAREA( 25),TCRS(25),TB1(25) 00018 

DIMENSION TB2( 25) ,BIP( 25 ) ,XX( 25 ) » ALPHA 1( 1 ) 00019 

C 00020 

WRITE! 6, 270) 00021 

270 FORMAT!//, 10X, ■** LSBIP ANALYSIS **' ,//) 00022 

C 00023 

C CALCULATE LSBIP AT EACH STATION, LOCATING A MAXIMUM FOR EACH 00024 

C STATION AND STORING IT IN BLSMAX(21) 00025 

C 00026 

DO 500 KK = 1 ,NR 00027 

NSTA = KK 00028 

C 00029 

C XF = DISTANCE OF LOAD APPLICATION ALONG CHCRQ 00030 

C 00031 

VBIRD = 180.0 00032 

N3 = BLADES 00033 

PI = 3.14159265 00034 

ALPHA = ALPHAl(NSTA) 00035 

RPM = RFM1 * 30. / PI 00036 

VI = .42 * 12. * VBIRD * DCOS( ALPHA ) 00037 

NODE = (NSTA-1 ) * NC + 1 00038 

V2 = PI * X( NODE ) * RPM / 30. * DSINt ALPHA ) 00039 

VB LAD E = XtNODE 1/12. * RPM * PI / 30. 00040 

C 00041 

WRITE! 6,400 ) NSTA, NC.RFM, ALPHA, N3, VBIRD ,XSC(NSTA) 00042 

400 FORMAT! /,5X, 'FOD INPUT • ,5X, ' STATION = ' , 15,/, 19X, ’NC = ’,15, 00043 

1 /, 19X, 'RPM! REV/MIN ) = ', F7. 2 ,/, 19X, ' ALPHA CHORD! RADIANS ) ='00044 

2 , E12. 5, /,19X, 'NUMBER OF BLADES = ' ,E12.5,/, 19X, 00045 

3 'BIRD VELOCITY (FT/SEC) = ' ,E12 .5 ,/, 19X, 00046 

4 'SHEAR CENTER (FROM TE) = *,E12.5,/) 00047 

C 00043 

C ZERO MATRICES 00049 

C 00050 

DO 260 I = 1,25 00051 

TB1! I ) = 0. 00052 

TB2! I ) = 0. 00053 

TB( I ) =0. 00054 



♦VERSION 1.3. 
ISN 0034 
ISN 0035 
ISN 0036 
ISN 0037 
ISN 0038 


ISN 0039 


ISN 0040 

ISN 0041 
ISN 0042 


ISN 0043 
ISN 0044 
ISN 0046 
ISN 0047 
ISN 0043 
ISN 0049 
ISN 0050 
ISN 0051 


ISN 0052 
ISN 0053 
ISN 0054 


ISN 0055 
ISN 0056 
ISN 0057 


ISN 0058 
ISN 0059 
ISN 0060 
ISN 0061 
ISN 0063 
ISN 0064 
ISN 0065 
ISN 0066 
ISN 0067 

ISN 0068 
ISN 0069 
ISN 0070 


0 (01 MAY 80) FOD SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

AREA! I ) = 0. 

AAREA(I) = 0. 

TORS(I) = 0. 

XX(I) = 0. 

260 BIP(I) = 0. 

C 

C DISTANCE TO CENTER OF LOAD APPLICATION FROM LE 
C 

XF = 2. * PI * X(NODE) / NB / (V2/V1-1.) / DCOS( ALPHA ) 

C 

C P = IMPACT LOAD 
C 

P = X(NODE)**2 / NB * RFM * DSIN( ALPHA ) * VBIRD * .0000001 
C 

NRITE(6,401) XF,P 

401 FORMAT! 19X, ' XF DISTANCE = ' ,E12.5,/, 19X, 

1 'P LOAD = 1 >E12.5>/) 

C 

C METAL ONLY THICKNESS 

C 

II = KK 

IF(KK .EQ. NR) II = KK - 1 
DO 110 I = 1 >NC 
110 BNIDTH(I) = SN(I.II) 

DO 100 I = 1 »NC 

TB1(I ) = PLY( II »I » 1 ) + PLY(II,I,2) 

TB2( I ) = PLY(II,I,6) + PLY(II,I,7) 

100 TB( I ) = TBl(I) + TB2( I ) 

C CALL MATPRN(TB, 25,1, ' TB ') 

C 

C AREA CALCULATION - METAL AREA ONLY 
C 

AREA(l) = BNIDTH(l) * TB( 1 ) 

DO 101 I = 2,NC 

101 AREA(I) = AREA(I-i) + BNIDTH(I) * TB(I) 

C CALL MATPRN(AREA, 25,1, 'AREA* ) 

C 

C EVALUATING THE DOUBLE AREA INTEGRAL , AAREA 
C 

AAREA(l) = AREA! 1 ) * BWIDTH(l) 

DO 102 I = 2 >NC 

102 AAREA(I) = AAREA(I-l) + AREA! I ) * BWIDTH(I) 

C CALL MATPRN! AAREA, 25, 1,'AARE 1 ) 

C 

C TORSION TERMS - THIN SECTION ASSUMPTION 

C 

NODE = (NSTA-1 ) * NC + 1 
NRNC = NR * NC 
NOD El = NODE + NC 

IF (NODE1 .GE. NRNC) NODE1 = NODE - NC 
DO 200 I = 1»NC 

TAVE = ( T( NODE ) + T(NODEl) ) / 2. 

TAVE = 0. 

DO 201 J = 1,7 

201 TAVE = TAVE + PLY(II,I,J) 

C 

NOD El = NOD E 1 + 1 

TORI = 1./3. * BWIDTH(I) * TB(I)#*3 
THOL = TAVE - TB(I) 


DATE 82.141/10.52.17 

00055 

00056 

00057 

00058 

00059 

00060 
00061 
00062 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

00070 

00071 

00072 

00073 

00074 
00075**6 
00076**6 
00077**6 
00073**6 
00079 
00030**6 
00081**6 
00082 

00083 

00084 

00085 

00086 
00087 
00083 
00009 

00090 

00091 

00092 

00093 

00094 

00095 

00096 

00097 

00098 

00099 

00100 
00101 
00102 

00103 

00104 

00105 

00106 
00107**6 
00108**6 
00109**6 
00110**6 
00111 
00112 
00113**6 



+VERSION 1.3.0 

(01 MAY 80) FOD SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

DATE 82.141/10.52.17 

ISM 

0071 


TOR 2 = 1./3. * BWIOTH(I) * (TAVE**3 - THOL**3) 

00114**6 

ISM 

0072 


TORS(I) = TORI 

00115 

ISM 

0073 


IF( ( TB1 ( I )+TB2( I ) + . 0001 ) .LT. TAVE) TORS(I) = TOR2 

00116 

ISM 

0075 


IF( I .EQ. 1) GO TO 200 

00117 

ISM 

0077 


TORS(I) = TORS(I-l) + TORSI I) 

00118 

ISM 

007S 

200 

NODE = MODE + 1 

00119 



C 

CALL MATPRN! TORS, 25,1 , 'TORS' ) 

00120 



C 


00121 



C 

DISTANCE FROM L.E. , XX 

00122 



C 


00123 

ISM 

0079 


XX(1) = EWIDTHI 1 )/2 . 

00124 

ISM 

0060 


DO 210 I = 2,MC 

00125 

ISM 

0031 

210 

XX(I) = XX(I-l) + BWIDTH(I-l)/2. + BUIDTH(I)/2. 

00126 



C 

CALL MATPRNI XX,25, 1 , ' XX •) 

00127 



C 


00128**6 



C 

XBAR = DISTANCE FROM LOAD CENTER TO C.G. 

00129**6 



C 


00130**6 

ISM 

0082 


TDX = 0. 

00131**6 

ISM 

0063 


DO 350 I = 1 ,NC 

00132**6 

ISM 

0084 

350 

TDX = TDX + XX(I) * TB( I ) 

00133**6 

ISM 

0085 


XBAR = TDX / AREA(NC) - XF/2. 

00134**6 



C 


00135**6 

ISM 

0086 


WRITE! 6, 351) XBAR 

00136**6 

ISM 

0087 

351 

FORMAT! 5X, 'DISTANCE TO LOAD FROM CG. , XBAR =',E12.5) 

00137**6 



C 


00138**6 



C 


00139 



C 

LSBIP CALCULATION - BIP 

00140 



C 


00141 

ISM 

0088 


NC2 = NC 

00142**6 

ISM 

0069 


DO 300 I = 1 »NC2 

00143 

ISM 

0090 


IF( XX(I) .LT. XF ) GO TO 333 

00144 



C 


00145 



C 

XX .GT. XF 

00146 



C 


00147 

ISM 

0092 


BIP(I) = P/TB(I)**2 * (XX(I) - XF/2. - AAREA( I )/AREA( NC) - 

00148 




1 XBAR / TORS(NC) * TORS(I) ) 

00149 



C 


00150 

ISM 

0093 


GO TO 300 

00151 



c 


00152 



c 

XX .LE. XF 

00153 



c 


00154 

ISM 

0094 

333 

BIP(I) = P/TB( I )**2 * ( XX! I) **2/2. /XF - AAREAI I )/AREA( NC ) - 

00155 




1 XBAR / TORS(NC) * TORS! I) ) 

00156 



C 


00157 

ISM 

0095 

300 

CONTINUE 

00158 



C 

CALL MATFRH(BIP»25, 1 , ' BIP') 

00159 



C 


00160 



c 

SEARCH FOR MAXIMUM BIP FOR SECTION KK 

00161 



c 


00162 

ISM 

0096 


BLSMAX(KK) = 0. 

00163 

ISM 

0097 


DO 405 I = 1 ,NC2 

00164 

ISN 

0098 


IF! BIP! I) .GT. BLSMAX(KK) ) BLSMAX(KK) = BIP! I) 

00165 

ISM 

0100 

405 

CONTINUE 

00166 



C 


00167 

ISM 

0101 

500 

CONTINUE 

00168 



C 


00169 

ISM 

0102 


DO 505 I = l.NS 

00170 

ISM 

0103 

505 

l'RITE(6 ,506 ) I.BLSMAX(I) 

00171 

ISM 

0104 

506 

FORMAT! 5X, 'MAX BIP , STATION = ' ,I5,5X,E12.5) 

00172 



00 

ro 


FOD SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 


DATE 82. 141/10.52. 17 

00173 

00174 

00175 


+ VERSION 1.3.0 (01 MAY 80) 

C 

ISN 0105 RETURN 

ISN 0106 END 

♦♦OPTIONS IN EFFECT*NAME(MAIN) OPTIMIZE(3) LINECOUNT(60 ) SIZE(MAX) AUTODBU NONE ) 

♦•OPTIONS IN EFFECT*SOL'RCE EBCDIC NOLIST NODECK OBJECT NOMAP HOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
♦•STATISTICS* SOURCE STATEMENTS = 105, PROGRAM SIZE = 4294, SUBPROGRAM NAME = FOD 

*STATISTICS* NO DIAGNOSTICS GENERATED 

****** Et,Q 0F COMPILATION ****** 2988K BYTES OF CORE NOT USED 


PAGE 




+VERSICN 1.3.0 (01 MAY 80 » SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82. 141/10. 52. 24 PAGE 1 

REQUESTED OPTIONS: SOURCE, NOMAP, NOXREF, NOLIST, NODECK, OPT< 3) ,AUTODBL(NCNE ), NOALC 
OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTODBU NONE ) 

SOURCE EBCDIC HOLIST NODECK OBJECT NOMAP HOFORMAT GOSTMT NOXREF NOALC HOANSF TERM IBM FLAGtl) 


ISN 0002 
ISM 0003 
ISN 0004 
ISN 0005 
ISN 0006 

ISN 0007 

ISN 0008 

ISN 0009 
ISN 0010 

ISN 0011 
ISN 0012 
ISN 0013 


ISN 0014 
ISN 0015 

ISN 0016 


ISN 0017 
ISN 0018 
ISN 0019 
ISN 0020 
ISN 0021 
ISN 0022 
ISN 0023 
ISN 0024 
ISN 0025 
ISN 0026 
ISN 0027 
ISN 0028 
ISN 0029 
ISN 0030 
ISN 0031 
ISN 0032 
ISN 0033 
ISN 0034 
ISN 0036 
ISN 0037 
ISN 0038 
ISM 0039 
ISN 0040 
ISN 0041 


C DATA SET U49SSANLIZ AT LEVEL 019 AS OF 03/16/82 

C DATA SET U498SANLIZ AT LEVEL 018 AS OF 03/15/82 00001 

C DATA SET U498SANLIZ AT LEVEL 017 AS OF 03/15/62 00002 

C DATA SET U498SANLIZ AT LEVEL 016 AS OF 03/12/82 00003 

SUBROUTINE AHALIZ (ICALC) 00004 

COMMON /BKH 137/ B LAD NT , FREQ(IOO) 00005 

COMMON /UIOS/ 151 , 161 00006 

COMMON /AMAL03/ RPM , FMS , DFN , TOLL , ROOT , DR PM , R PMMN , R PMMX 00007 
COMMON /ANAL04/ NSTA , MST1 , MST2 , NOACR , ILT , LONG , ISTE , 00008 

1 DENB , EB , POIB , BR , SERIES , BRS , BTS , IOPP 00009 

COMMON /ANAL05/ R( 21) , BOBR( 21 ) ,TCB( 21 ) ,THSTH( 21 ) , ALPHA! 21 ) , 00010 

1 SGB( 21 ) , RLE( 21 ) , RTE(21) , A0UT(21) , 0(21) 00011 

COMMON /ANAL17/ XPS(3,53,21) , TMX(21) , TCCI21) , BMX(21) 00012 

1 , BCC( 21 ) 00013 

COMMON /ANAL30/ NTIS , NRF , IST(21) , VALT(21) , BRSV 00014 

COMMON /ANAL33/ DLED , DTED , DROOTD , DTIPD , TTID , TLTD , NCD 00015 

1 , NCK , TISD , TICD , PCBAD , PCGED 00016 

COMMON /ANAL54/ ND(5) , DLSV(5) 00017 

COMMON /PLY1/ PLY( 21 ,25,7 ) , THETAD( 7 ) , RH0(7) 00018 

COMMON /GLOBCM/ OBJF , FN(5) , DLAR(5 ) , THKVAU21) , RF(5,4) 00019 

1 , BRCC , FODLSBt 21 ) , DLE , DTE , DROOT , DTIP , TTI , TLT 00020 

2 , OBJFUN , SMAX1S18) , SMAX2S(8) , SMAX3SI8) 00021 

3 , SMAXLS(S) , SMAXTS(8) , THETA( 7 ) , HLRTIO , ECRTIO , TOVB(21) 00022 

4 , FODMAX , TIS , TIC , PCBA , VAL 00023 

COMMON /BIRD/ BLSMAX(21) 00024 

COMMON /SMAXX/ SMAXK8) , SMAX2(8) , SMAX3(8) , SMAXL(8) 00025 

1 , SMAXT(8) 00026 

DOUBLE PRECISION BLADWT , FREQ , BLSMAX , DLED , DTED , DROOTD 00027 

1 , DTIPD , TTID , TLTD , SMAX1 , SMAX2 , SMAX3 00028 

2 , SMAXL , SMAXT , PLY , THETAD , RHO , TISD , TICD , PCBAD 00029 

3 , PCGED 00030 

DLED = DLE 00031 

DTED = DTE 00032 

DROOTD = DROOT 00033 

DTIPD = DTIP 00034 

TTID = TTI 00035 

TLTD = TLT 00036 

TISD = TIS 00037 

TICD = TIC 00038 

PCBAD = PCBA 00039 

PCGED = 1.0 - PCBAD 00040 

PCGE = PCGED 00041 

DO 40 I = 1,3 00042 

THETA(8-I ) = THETA(I) 00043 

40 CONTINUE 00044 

DO 50 I = 1,7 00045 

THETAD(I) = THETA(I) 00046 

50 CONTINUE 00047 

IF (ICALC .GT. 1) GO TO 200 00048 

CALL MYTIME ( ITIME ) 00049 

ITIMEC = 2 00050 

WRITE (26,3000) ITIMEC , ITIME 00051 

3000 FORMAT (100X.2I10) 00052 

CALL RDN137 (ICALC) 00053 

CALL RDDATA 00054 


* U 



♦VERSION 1.3.0 

(01 MAY 80) ANALIZ SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

DATE 82.141/10.52.24 

isn 

0042 

IF (NRF .NE. 0) CALL RDT933 (ICALC) 

00055 

ISN 

0044 

CALL TMAX (ICALC) 

00056 

ISN 

0045 

CALL WTW137 (ICALC) 

00057 

ISN 

0046 

DO 150 I = l.NTIS 

00053 

ISN 

0047 

THKVALt I ) = VALT(I) 

00059 

ISN 

0048 

150 CONTINUE 

00060 

ISN 

0049 

BRCC = BRSV 

00061 

ISN 

0050 

CALL MYTIME ( ITIME ) 

00062 

ISN 

0051 

ITIMEC = 3 

00063 

ISN 

0052 

WRITE (26,3000) ITIMEC , ITIME 

00064 

ISN 

0053 

RETURN 

00065 

ISN 

0054 

200 IF (ICALC .GT. 2) GO TO 300 

00066 

ISN 

0056 

CALL MYTIME (ITIME) 

00067 

ISN 

0057 

ITIMEC = 4 

00068 

ISN 

0058 

WRITE (26,3000) ITIMEC , ITIME 

00069 

ISN 

0059 

NGRS = BRS + .05 

00070 

ISN 

0060 

IF (NCD .Eq. 2) GO TO 210 

00071 

ISN 

0062 

HLRTIO = (DTIP + DROOT) / (R(NSTA) - R( 1 ) ) 

00072 

ISN 

0063 

ECRTIO = (DLE + DTE) / BRCC 

00073 

ISN 

0064 

WRITE (161,1000) 

00074 

ISN 

0065 

WRITE (161,238) DLE , DTE , DROOT , DTIP , TTI , TLT 

00075 



1 , HLRTIO , ECRTIO 

00076 

ISN 

0066 

GO TO 220 

00077 

ISN 

0067 

210 WRITE (161,1030) 

00078 

ISN 

0068 

VAL = (2.0 * TIS + TIC) / (THKVAL(l)) 

00079 

ISN 

0069 

WRITE (161,238) TIS , TIC , PCBA , PCGE , VAL 

00080 

ISN 

0070 

220 CONTINUE 

00081 

ISN 

0071 

WRITE (161,1010) 

00382 

ISN 

0072 

WRITE (161,238) (THETA(I) , 1=1,7) 

00083 

ISN 

0073 

CALL RDW137 (ICALC) 

00084 

ISN 

0074 

CALL CALCTH 

00085 

ISN 

0075 

CALL TMAX (ICALC) 

00086 

ISN 

0076 

CALL WTW137 (ICALC) 

00087 

ISN 

0077 

CALL NNW137 

00088 

ISN 

0078 

CALL RSFUNC 

00089 

ISN 

0079 

03JF = BLADWT 

00090 

ISN 

0080 

CALL OBJTV 

00091 

ISN 

0081 

WRITE (161,930) 

00092 

ISN 

0032 

WRITE (161,238) 03JF , OBJFUN 

00093 

ISN 

0033 

NROOT = ROOT + .01 

00094 

ISN 

0084 

DO 230 I = 1, NROOT 

00095 

ISN 

0035 

FN( I ) = FREQ(I) 

00096 

ISN 

0086 

230 CONTINUE 

00097 

ISN 

0087 

DO 232 I = l.NTIS 

00098 

ISN 

0038 

N = IST(I) 

00099 

ISN 

0089 

TOVB(I) = TCC(N) / BCC(N) 

00100 

ISN 

0090 

232 CONTINUE 

00101 

ISN 

0091 

WRITE (161,1020) 

00102 

ISN 

0092 

WRITE (161,238) (TOVB(I) , I=1,NTIS) 

00103 

ISN 

0093 

DO 235 I = NBRS.NSTA 

00104 

ISN 

0094 

FODLSB(I) = BLSMAX(I) 

00105 

ISN 

0095 

235 CONTINUE 

00106 

ISN 

0096 

FODMAX =0.0 

00107 

ISN 

0097 

RCHKR = R(N3RS) + 2.0 - .005 

00108 

ISN 

0098 

RCHKT = R(NSTA) - 2.0 + .005 

00109 

ISN 

0099 

DO 234 K = NBRS.NSTA 

00110 

ISN 

0100 

IF ( R ( K ) .LT. RCHKR) GO TO 234 

00111 

ISN 

0102 

IF (R(K) .GT. RCHKT) GO TO 234 

00112 

ISN 

0104 

BMAX = BLSMAX(K) 

00113 
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+VERSION 1.3.0 

(01 NAY 80) ANALIZ SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

DATE 82.141/10.52.24 

ISH 0105 

FODI1AX = AMAXH FODMAX, BMAX) 

00114 

ISN 0106 

IF (FODMAX .Eq. BMAX ) RMAX = R(K) 

00115 

ISN 0108 

WRITE (161,238) FODMAX , RMAX 

00116 

ISN 0109 

234 CONTINUE 

00117 

ISN 0110 

URITE (161,970) 

00118 

ISN 0111 

URITE (161,238) (FODLSB(I) ,I=NBRS,NSTA) 

00119 

ISN 0112 

236 FORMAT (/8( 3X.E12.5) ) 

00120 

ISN 0113 

238 FORMAT (8( 3X.E12.5 ) ) 

00121 

ISN 0114 

DO 237 I = 1,8 

00122 

ISN 0115 

SNAXIS(I) = SMAXKI) 

00123 

ISN 0116 

SMAX2S( I ) = SMAX2( I ) 

00124 

ISN 0117 

SMAX3S( I ) = SMAX3( I ) 

00125 

ISN 0118 

SMAXLS(I) = SMAXKI) 

00126 

ISN 0119 

SMAXTS(I) = SMAXKI) 

00127 

ISN 0120 

237 CONTINUE 

00128 

ISN 0121 

URITE (161,940) 

00129 

ISN 0122 

WRITE! 161,238) (SMAXIS(I) , 1=1,8) 

00130 

ISN 0123 

WRITE (161,950) 

00131 

ISN 0124 

WRITE! 161,238) ( SMAX2SI I ) , 1=1,6) 

00132 

ISN 0125 

WRITE (161,960) 

00133 

ISN 0126 

NRITE( 161,238) (SMAX3S(I) , 1=1,8) 

00134 

ISN 0127 

WRITE (161,980) 

00135 

ISN 0128 

WRITE (161,238) (SMAXLS(I) , 1=1,8) 

00136 

ISN 0129 

WRITE (161,990) 

00137 

ISN 0130 

WRITE (161,238) (SMAXTS(I) , 1=1,8) 

00133 

ISN 0131 

CALL MYTIME ( ITIME ) 

00139 

ISN 0132 

ITIMEC = 5 

00140 

ISN 0133 

WRITE (26,3000) ITIMEC , ITIME 

00141 

ISN 0134 

IF (NRF .EQ. 0) GO TO 240 

00142 

ISN 0136 

CALL ITT983 (ICALC) 

00143 

ISN 0137 

WRITE (161,920) 

00144 

ISN 0138 

DO 240 I = 1 ,NRF 

00145 

ISN 0139 

WRITE (161,910) ND( I ) , DLSV(I) 

00146 

ISN 0140 

DLAR(I) = DLSV(I) 

00147 

ISN 0141 

240 CONTINUE 

00148 

ISN 0142 

CALL MYTIME (ITIME) 

00149 

ISN 0143 

ITIMEC = 6 

00150 

ISN 0144 

WRITE (26,3000) ITIMEC , ITIME 

00151 

ISN 0145 

RETURN 

00152 

ISN 0146 

300 CONTINUE 

00153 

ISN 0147 

CALL MYTIME (ITIME) 

00154 

ISN 0148 

ITIMEC = 7 

00155 

ISN 0149 

WRITE (26,3000) ITIMEC , ITIME 

00156 

ISN 0150 

CALL RDW137 (ICALC) 

00157 

ISN 0151 

CALL CALCTH 

00158 

ISN 0152 

CALL TMAX (ICALC) 

00159 

ISN 0153 

CALL UTW137 (ICALC) 

00160 

ISN 0154 

ICALC = 4 

00161 


C CALL WTW137 (ICALC) 

00162 

ISN 0155 

ICALC = 3 

00163 

ISN 0156 

IF (NRF .EQ. 0) GO TO 350 

00164 

ISN 0158 

IWAVE = -1 

00165 

ISN 0159 

IND = 4 

00166 

ISN 0160 

MODE = 1 

00167 

ISN 0161 

CALL WTT983 (ICALC, MODE, IND, IWAVE) 

00168 

ISN 0162 

MODE = 2 

00169 

ISN 0163 

CALL WTT983 ( ICALC, MODE, IND, IWAVE ) 

00170 

ISN 0164 

MODE = 3 

00171 ' 

ISN 0165 

CALL WTT983 ( ICALC, MODE, IND, IWAVE) 

00172 
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co 

cn 


♦VERSION 1.3.0 (01 MAY 80) ANALIZ SYSTEtl/370 FORTRAN H EXTENDED (ENHANCED) DATE 82. 141/10 .52 .24 P 

ISN 0166 350 CONTINUE 00173 

ISN 0167 NBRS = ERS + .05 00174 

ISN 0168 WRITE (161,900) (TNX(I),I=NBRS,NSTA) 00175 

ISN 0169 WRITE (161,900) (TCC( I ) ,I=NBRS,NSTA) 00176 

ISN 0170 900 FORMAT (//8( 2X.F10.6 ) ) 00177 

ISN 0171 910 FORMAT (5X,I5,5X,E12.5) 00178 

ISN 0172 920 FORMAT (/6X, 'ND-SAVE DELAERO-SAVE 1 ) 00179 

ISN 0173 930 FORMAT ( /,6X, ‘HEIGHT OBJECT FUNCTION' ) 00180 

ISN 0174 940 FORMAT (/>5X» 1 SMAXK I ) I = 1,8* ) 00181 

ISN 0175 950 FORMAT (/,5X, 'SMAX2( I ) I = 1,6‘) 00182 

ISN 0176 960 FORMAT (/,5X, ‘SMAX3( I ) I = 1,8‘) 00183 

ISN 0177 970 FORMAT (/,5X, * LSBIP( I ) I = 1,NTIS‘) 00184 

ISN 0178 980 FORMAT (/,5X, 'SMAXLE(I) I = 1,8‘) 00185 

ISN 0179 990 FORMAT (/,5X, ‘SMAXTE( I ) I = 1,8‘) 00186 

ISN 0180 1000 FORMAT (/,8X, ‘DLE‘ , 12X, 'DTE ' ,1 IX, 'DROOT* , 10X, 'DTIP' , 00187 

1 11X, 'TTI ' , 1 IX, 'TBT' , 12X, 'HLRATIO* ,9X, ' ECRATIO' ) 00188 

ISN 0181 1010 FORMAT (/,5X, 'THETA( I ) I = 1,7') 00189 

ISN 0182 1020 FORMAT (/,5X» 'T/B( I) I = 1,NTIS‘) 00190 

ISN 0183 1030 FORMAT (/ ,8X» 'TIS' , 12X, 'TIC' , 11X, ' PCBA* , 11X, 'PCGE' ,9X, 'T RATIO' ) 00191 

ISN 0184 CALL MYTIME ( ITIME ) 00192 

ISN 0185 ITIMEC = 8 00193 

ISN 0186 WRITE (26,3000) ITIMEC , ITIME 00194 

ISN 0187 RETURN 00195 

ISN 0188 END 00196 

^OPTIONS IN EFFECT*NAME ( MAIN ) OPTIMIZE(3) LINECOUNT( 60 ) SIZE(MAX) AUTODBL( NONE ) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
^STATISTICS# SOURCE STATEMENTS = 187, PROGRAM SIZE = 3563, SUBPROGRAM NAME = ANALIZ 

^STATISTICS# HO DIAGNOSTICS GENERATED 


EfiQ 0F COMPILATION *###«# 2980K BYTES OF CORE NOT USED 



♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.52.30 PAGE 

REQUESTED OPTIONS: SOURCE , NOMAP, NOXREF , NOLIST, NODECK, OPT( 3 ) ,AUTQDBL( NONE ) .NOALC 
OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNT(60 ) SIZE(NAX) AUTODBK NONE ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTIIT NOXREF NOALC NOANSF TERM IBM FLAG(I) 


ISN 0002 
ISN 0003 
ISN 0004 
ISN 0005 
ISN 0006 
ISN 0007 
ISN 0008 

ISN 0009 

ISN 0010 
ISN 0011 


ISN 0012 


ISN 0013 


ISN 0014 


ISN 0015 
ISN 0017 
ISN 0018 
ISN 0020 
ISN 0022 
ISN 0024 
ISN 0026 


C DATA SET U498SRDATA AT LEVEL 005 AS OF 03/15/82 

C DATA SET U498SRDATA AT LEVEL 004 AS OF 02/24/82 00001 

C DATA SET U49SSR0ATA AT LEVEL 003 AS OF 02/23/82 00002 

C DATA SET U498SRDATA AT LEVEL 002 AS OF 01/29/82 00003 

C DATA SET U493SRDATA AT LEVEL 001 AS OF 11/12/81 00004 

C DATA SET U500RDDATA AT LEVEL 003 AS OF 07/16/81 00005 

C DATA SET U500RDDATA AT LEVEL 002 AS OF 06/18/81 00006 

C DATA SET U500RDDATA AT LEVEL 001 AS OF 06/08/81 00007 

SUBROUTINE RDDATA 00008 

COMMON /UIOS/ 151 , 161 00009 

COMMON /ANAL54/ ND(5) , DLSV(5) 00010 

COMMON /AHAL30/ NTIS , NRF , IST(21) , VALT(21) , BRSV 00011 

COMMON /ANAL31/ NSFA , ISTN(21) 00012 

COMMON /ANAL32/ RPMMN , RPMMX , E0RD(4) , NORD 00013 

COMMON /ANAL33/ DLED , DTED , DROOTD , DTIPD , TTID , TLTD , NCD 00014 

1 , NCK , TISD , TICD , PCBAD , PCGED 00015 

COMMON /AHAL04/ NSTA , MST1 , MST2 , NOACR , ILT , LONG , ISTE , 00016 

1 DENB , EB , POIB , BR , SERIES , BRS , BTS , IOPP 00017 

COMMON /PLY1/ PLY( 21,25,7) , THETAD( 7 ) , RHO(7) 00018 

COMMON /GLOBCM/ OBJF , FN(5) , D LAR ( 5 ) , THKVAL( 21 ) , RF(5,4) 00019 

1 , BRCC , FODLSBt 21 ) , OLE , DTE , DROOT , DTIP , TTI , TLT 00020 

2 , OBJFUN , SMAX1S(8) , SMAX2S(8) , SMAX3SI 8 ) 00021 

3 , SMAXLS(8) , SMAXTS(8) , THETA( 7 ) , HLRTIO , ECRTIO , TOVB(21) 00022 

4 , FODMAX , TIS , TIC , PCBA 00023 

DOUBLE PRECISION DLED , DTED , DROOTD , DTIPD , TTID , TLTD 00024 

1 , THETAD , PLY , RHO , TISD , TICD , PCBAD , PCGED 00025 

C 00026 

C READ NTIS - NUMBER OF THICKNESS INPUT STATIONS (MAX OF 21) 00027 

C READ NRF - NUMBER OF ROOTS CALCULATED BY FLUTTER ANALYSIS 00028 

C (MAX OF 5) 00029 

C READ NSFA - NUMBER OF W137 OUTPUT STATIONS USED FOR 00030 

C THE FLUTTER ANALYSIS (MAX OF 21) 00031 

C READ NORD - NUMBER OF ORDERS FOR RESONANCE FUNCTION 00032 

C CALCULATION (MAX OF 4) 00033 

C 00034 

READ (151,900) NTIS , NRF , NSFA , NORD , BRSV 00035 

C 00036 

C READ NTIS VALUES OF STATION NUMBER AND THICKNESS 00037 

C 00038 

READ (151,901) (IST(I).VALT(I) , I = l.NTIS) 00039 

C 00040 

C READ NRF VALUES OF NODAL DIAMETER (1 PER ROOT) FOR INITIAL 00041 

C STARTING VALUES FOR THE FLUTTER CALCULATION 00042 

C 00043 

IF (NRF .EQ. 0) GO TO 70 00044 

READ (151,902) (ND(I) , I = 1 ,NRF ) 00045 

IF ( NO ( 1 ) .EQ. 0) NO ( 1 ) = -4 00046 

IF (ND( 2) .EQ. 0) ND( 2 ) = 4 00047 

IF ( NQ ( 3 ) .EQ. 0) ND( 3 ) = 4 00043 

IF ( ND ( 4 ) .EQ. 0) ND ( 4 ) = -4 00049 

IF ( ND ( 5 ) .EQ. 0) ND(5) = 4 00050 

C 00051 

C READ W137 OUTPUT STATION NUMBERS TO BE USED 00052 

C IN THE FLUTTER ANALYSIS 00053 

C 00054 



+VERSICN 1.3.0 (01 MAY 80) RDDATA SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.52.30 


ISN 

0C28 


60 

CONTINUE 

00055 

ISN 

0029 



READ (151,903) (ISTN(I) , I = l.NSFA) 

0C056 

ISN 

0030 



NBRS = BRS + .05 

00057 

ISN 

0031 



NCK = NSTA - NBRS + 1 

0C058 

ISN 

0032 



IF ( NCK .NE. NSFA) GO TO 70 

00059 

ISN 

0034 



DO 65 I = l.NSFA 

00060 

ISN 

0035 



ISTN(I) =1+3 

00061 

ISN 

0026 


65 

CONTINUE 

00062 

ISN 

0037 


70 

CONTINUE 

00063 



C 



00064 



c 


READ MIN AMD MAX SPEED AND ORDERS FOR 

00065 



c 


RESONANCE FUNCTION 

00066 



c 



00067 

ISN 

0038 



READ (151,904) RPMMN , RPMMX , EORD(l) , EORD(2) 

00068 




1 , EORD( 3 ) , EORD( 4 ) 

00069 



c 



00070 



c 


READ CODE TO DETERMINE IF FOIL IS HOLLON OR COMPOSITE 

00071 



c 


NCD = 1 (HOLLON) 

00072 



c 


NCD = 2 (COMPOSITE) 

00073 



c 



00074 

ISN 

0039 



READ (151,905) NCD 

00075 

ISN 

0040 



IF (NCD .EQ. 2) GO TO 90 

00076 



c 



00077 



c 


READ DATA ASSOCIATED WITH HOLLOW FOIL 

00078 



c 



00079 



c 


DLE = DISTANCE TO HOLE FROM LEADING EDGE 

00080 



c 


DTE = DISTANCE TO HOLE FROM TRAILING EDGE 

00081 



c 


DROOT = DISTANCE TO HOLE FROM FOIL ROOT 

00082 



c 


DTIP = DISTANCE TO HOLE FROM FOIL TIP 

00083 



c 


TTI = THICKNESS OF TITANIUM 

00084 



c 


TLT = THICKNESS OF BORSIC TITANIUM 

00085 



c 



00086 

ISN 

0042 



READ (151,906) DLE , DTE , DROOT , DTIP , TTI , TLT 

00037 

ISN 

0043 



DLED = DLE 

00033 

ISN 

0044 



DTED = DTE 

00089 

IoN 

0045 



DROOTD = DROOT 

00090 

ISN 

0046 



DTIPD = DTIP 

00091 

ISN 

0047 



TTID = TTI 

00092 

ISN 

0043 



TLTD = TLT 

00093 

ISN 

0049 


90 

CONTINUE 

00094 



c 



00095 



c 


READ FIBER DIRECTION ANGLE 

00096 



c 



00097 

ISN 

0050 



READ (151,907) (THETA( I ) , 1=1 ,7) 

00098 

ISN 

0051 



DO 100 I = 1,7 

00099 

ISN 

0052 



THETAD(I) = THETA(I) 

00100 

ISN 

0053 


100 

CONTINUE 

00101 

ISN 

0054 



IF (NCD .EQ. 1) GO TO 110 

00102 



c 



00103 



c 


READ DATA ASSOCIATED WITH COMPOSITE FOIL 

00104 



c 



00105 



c 


TIS = TITANIUM SKIN THICKNESS 

00106 



c 


TIC = TITANIUM CENTER THICKNESS 

00107 



c 


PCBA = PERCENT OF BORON ALUMINUM 

00103 



c 



00109 

ISN 

0056 



READ (151,907) TIS , TIC , PCBA 

00110 

ISN 

0057 



TISD = TIS 

00111 

ISN 

0058 



TICD = TIC 

00112 

ISN 

0059 



PCBAD = PCBA 

00113 
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ISN 

0060 


PCGED = 

= 1.0 - PCBAD 

00114 

ISN 

0061 

no 

CONTINUE 

00115 

ISN 

0062 

900 

FORMAT 

( 415, lOXtFlO .5) 

00116 

ISN 

0063 

901 

FORMAT 

(8(12, F8.0)) 

00117 

ISN 

0064 

902 

FORMAT 

( 1615) 

00118 

ISN 

0065 

903 

FORMAT 

(2014) 

00119 

ISN 

0066 

904 

FORMAT 

(2F10.5.4F5.2) 

00120 

ISN 

0067 

905 

FORMAT 

(12) 

00121 

ISN 

0068 

906 

FORMAT 

(6F10.5) . 

00122 

ISN 

0069 

907 

FORMAT 

( 7F10.5) 

00123 

ISN 

0070 


RETURN 


00124 

ISN 

0071 


END 


00125 


♦.OPTIONS IN EFFECT*NANE( MAIN ) OPTIMIZED) LINECOUNT(60) SIZE(MAX) AUTODBL(NONE) 

♦.OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG! I) 
♦.STATISTICS* SOURCE STATEMENTS = 70, PROGRAM SIZE = 1244, SUBPROGRAM NAME =RDDATA 

*STATISTICS* NO DIAGNOSTICS GENERATED 
****** END OF COMPILATION ****** 


3004K BYTES OF CORE NOT USED 




♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.52.33 PAGE 1 

REQUESTED OPTIONS: SOURCE , NOMAP, NOXREF , NOLIST, NODECK, OPT( 3 ) .AUTOOBL! NONE ) ,N0ALC 
OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNK 60 ) SIZE(MAX) AUTCDBL(NCNE ) 

SOURCE EBCDIC MOLIST NODECK 03JECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG! I) 


C DATA SET U493SCALCT AT LEVEL 010 AS OF 01/29/82 

C DATA SET U498SCALCT AT LEVEL 009 AS OF 01/28/82 00001 

C DATA SET U49SSCALCT AT LEVEL 008 AS OF 10/19/81 00002 

C DATA SET U500CALCTH AT LEVEL 007 AS OF 07/23/81 00003 

C DATA SET U500CALCTH AT LEVEL 006 AS OF 07/17/81 00004 

C DATA SET U500CALCTH AT LEVEL 005 AS OF 07/16/81 00005 

C DATA SET U500CALCTH AT LEVEL 004 AS OF 06/17/31 00006 

ISN 0002 SUBROUTINE CALCTH 00007 

ISN 0003 COMMON /UIOS/ 151 , 161 00008 

ISN 0004 COMMON /ANALC4/ NSTA , MST1 , MST2 , NOACR , ILT , LONG , ISTE , 00009 

1 DENE , EB , POIB , BR , SERIES , BRS , BTS , IOPP 00010 

ISN 0005 COMMON /ANAL05/ R(21) , BOER( 21 ) ,T03( 21 ) ,THSTH( 21 ) , ALPHA! 21 ) , 00011 

1 SOB( 21) , RLE! 21 ) , RTE(21) > ADilTt 21 ) , 0(21) 00012 

ISN 0006 COMMON /ANAL17/ XPS( 3,53,21) , TMX(21) , TCC(21) , BMX(21) 00013 

1 , BCC( 21 ) 00014 

ISN 0007 COMMON /ANAL30/ NTIS , NRF , IST(21) , VALT(21) , BRSV 00015 

ISN 0008 COMMON /GLOBCM/ OBJ F , FN(5) , D LAR ( 5 ) , THKVALl 21 ) , RF(5,4) 00016 

1 , BRCC 00017 

ISN 0009 DIMENSION RIST(21) , THKVEL( 21 ) 00018 

C 00019 

C DETERMINE RADIUS AT EACH INPUT THICKNESS STATION 00020 

C 00021 

C WRITE (161,910) NSTA , BRS 00022 

ISN 0010 DO 10 I = l.NTIS 00023 

ISN 0011 N = IST(I) 00024 

ISN 0012 RISK I ) = R(N) 00025 

ISN 0013 THKVEL(I) = THKVAL(I) 00026 

C WRITE (161,910) I , THKVAL(I) , THKVEL(I) 00027 

C WRITE (161,910) I , RISK I) 00028 

ISN 0014 910 FORMAT (I5.2F12.8) 00029 

ISN 0015 10 CONTINUE 00030 

C 00031 

C CALCULATE THICKNESS AT EACH W137 INPUT RADIUS USING C0032 

C A LINEAR FIT OF THKVAL 00033 

C 00034 

ISN 0016 N = 2 00035 

ISN 0017 WRITE (161,920) 00036 

ISN 0018 920 FORMAT (/,• STA THICKNESS CHORD 1 ) 00037 

ISN 0019 NBRS = BRS + .05 00038 

ISN 0020 TCC(NBRS) = THKVEL(l) 00039 

ISN 0021 BCC(NBRS) = BRCC 00040 

ISN 0022 WRITE (161,910) NBRS , TCC(NBRS) , BCC(NBRS) 00041 

ISN 0023 IF (N .GT. NTIS) GO TO 30 00042 

ISN 0025 NN = NBRS + 1 00043 

ISN 0026 DO 20 I = NN.NSTA 00044 

ISN 0027 IF( BRSV .EQ. 0.0) GO TO 15 00045 

ISN 0029 BCC(I) = BMX(I) * BRCC / BMX(NBRS) 00046 

ISN 0030 15 IF(R( I ) .LE. RIST(N)) GO TO 16 00047 

ISN 0032 N = N + 1 00048 

ISN 0033 IF (N .GT. NTIS) GO TO 30 00049 

ISN 0035 GO TO 15 00050 

ISN 0036 16 TCC( I )=THKVEL(N-1 ) -(THKVEL(N-1 J-THKVEL(N) )*(R( I )-RIST(N-l ) ) 00051 

1 / (RIST(N) - RISKN-l ) ) 00052 

ISN 0037 WRITE (161,910) I , TCC(I) , BCC(I) 00053 

ISN 0033 20 CONTINUE 00054 



♦VERSION 1.3.0 (01 MAY 80) CALCTH SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82. 141/10.52. 33 PAGE 

C WRITE (161,910) N , THKVEL(l) 

ISN 0039 RETURN 

ISN 0040 30 WRITE (161,900) N , NTIS 

ISN 0041 900 FORMAT ( 1 N = 1 ,15, 1 NTIS = '.IS,' N EXCEEDS NTIS’//) 

ISN 0042 STOP 

ISN 0043 END 

^OPTIONS IN EFFECT*NAHE ( MAIN ) OPTIMIZE! 3) LINECOUNT( 60 ) SIZE(MAX) AUTODBL(NONE) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFCRMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FUG(I) 
^STATISTICS* SOURCE STATEMENTS = 42, PROGRAM SIZE = 1032, SUBPROGRAM NAME =CALCTH 

^STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 3012K BYTES OF CORE NOT USED 


DATE 82.141/10.52.33 

00055 

00056 

00057 

00058 

00059 

00060 



+ VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 32.141/10.52.36 PAGE 

REQUESTED OPTIONS: SOURCE .NOMAP, NOXREF, NOLIST, NCDECK.OPTI 3 ) ,AUTODBL(NONE ) .NOALC 
OPTIONS IN EFFECT: NAME (MAIN) 0PTIMIZE(3) LINECOUNTt 60 ) SIZE(MAX) AUTODBL(NONE ) 

SOURCE EBCDIC NO LIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC HOANSF TERM IBM FLAG(I) 




C 

DATA SET U493SIT983 AT LEVEL 009 AS OF 03/10/82 




c 

DATA SET U498SIT933 AT LEVEL 008 AS OF 11/09/81 

00001 



c 

DATA SET U500ITT933 AT LEVEL 007 AS OF 06/09/81 

00002 



c 

DATA SET U500ITT983 AT LEVEL 006 AS OF 06/03/81 

00003 

ISH 

0002 


SUBROUTINE ITT983 (ICALC) 

00004 

ISN 

0003 


COMMON /UIOS/ 151 , 161 

00005 

ISN 

0004 


COMMON /ANAL30/ NTIS , NRF , IST(21) , VALT(21) 

00006 

ISN 

0005 


COMMON /ANAL54/ ND(5) , DLSV(5) 

00007 

ISN 

0006 


COMMON /SECO/ FLAP(21,21), TWIST121 ,21 ) , AC0EF(21,4), ZOOALD(21), 

00008 




1 RED( 21 ) , DELAERI 21 ) , F2M5D, F2P5D 

00009 

ISN 

0007 


COMMON /JNPCHK/ JMP(5) , MODE 

00010 

ISN 

0003 


COMMON /ANAL1 1/ MAY , NAX , ISTR . NBB , DEND , DENA , EO 

00011 




1 , DIAND , BLADES , POID 

00012 

ISN 

0009 


NNIN = 2 

00013 

ISN 

0010 


MNMIN = -2 

00014 

ISN 

0011 


UMAX = ( (BLADES + .05) / 2. ) -2. 

00015 

ISN 

0012 


MNMAX = -NMAX 

00016 

ISN 

0013 


LIM = NRF 

00017 

ISN 

0014 


DO 5 I = 1,5 

00018 

ISN 

0015 


JMP(I) = 0 

00019 

ISN 

0016 


5 CONTINUE 

00020 

ISN 

0017 


WRITE (161,110) 

00021 

ISN 

0018 


MODE = 1 

00022 

ISN 

0019 


10 INC = 1 

00023 

ISN 

0020 


INAVE = 1 

00024 

ISN 

0021 


IF (ND(MODE) .NE. NMIN) GO TO 13 

00025 

ISN 

0023 


ND( MODE ) = MNMIN 

00026 

ISN 

0024 


GO TO 17 

00027 

ISN 

0025 


13 IF (ND( MODE ) .EQ. MNMAX .OR. ND(MODE) .EQ. NMIN) 

00028 




1 NO (MODE ) = ND(MODE) ♦ 1 

00029 

ISN 

0027 


IF (ND( MODE ) .EQ. NMAX .OR. ND(MODE) .EQ. MNMIN) 

00030 




1 NO ( MODE ) = ND(MODE) - 1 

00031 

ISN 

0029 


17 IF ( NO ( MODE ) .LT. 0 ) INAVE = -1 

00032 

ISN 

0031 


NODE = IABS (ND( MODE ) ) 

00033 

ISN 

0032 


CALL NTT 98 3 ( ICALC, MODE .NODE, INAVE ) 

00034 

ISN 

0033 


CALL MNT983 

00035 

ISN 

0034 


DELSAV = DELAERI 1) 

00036 

ISN 

0035 


NSAV = ND(MODE) 

00037 

ISN 

0036 


WRITE (161,100) DELSAV , DELAERI 1 ) , NSAV , ND(MODE) 

00038 

ISN 

0037 


NOD = NO (MODE) 

00039 

ISN 

0033 


CALL NDT983 ( NOD, NODE, IWAVE, INC) 

00040 

ISN 

0039 


ND(MODE) = NODE * IWAVE 

00041 

ISN 

0040 


CALL WTT983 (ICALC, MODE, NODE, IWAVE) 

00042 

ISN 

0041 


CALL MNT983 

00043 

ISN 

0042 


IF (DELAERI 1) .EQ. DELSAV) GO TO 40 

00044 

ISN 

0044 


IF (DELAER(l) .LT. DELSAV) GO TO 20 

00045 

ISN 

0046 


INC = -1 

00046 

ISN 

0047 


WRITE (161,100) DELSAV , DELAERI 1) , NSAV , ND(MODE) 

00047 

ISN 

0048 


ND(MODE) = ND( MODE ) + INC 

00048 

ISN 

0049 


IF (HD(MODE) .EQ. 1) ND(MODE) = MNMIN 

00049 

ISN 

0051 


GO TO 30 

00050 

ISN 

0052 


20 DELSAV = DELAERI 1) 

00051 

ISN 

0053 


NSAV = ND(MCDE) 

00052 

ISN 

0054 


WRITE (161,100) DELSAV , DELAERI 1 ) , NSAV , ND(MODE) 

00053 

ISN 

0055 


30 NOD = ND(MODE) 

00054 
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ISN 

0056 


CALL N0T983 (NCD .NODE ,IUAVE , INC) 

00055 

ISN 

0057 


ND(MODE) = NODE # IUAVE 

00056 

ISN 

0058 


CALL WTT983 ( ICALC, MODE .NODE, IWAVE ) 

00057 

ISN 

0059 


CALL MHT933 

00053 

ISN 

0060 


IF (DELAER(l) .GE. DELSAV ) GO TO 40 

00059 

ISN 

0062 


DELSAV = DELAER(l) 

00060 

ISN 

0063 


NSAV = ND(MODE) 

00061 

ISN 

0064 


NRITE (161,100) DELSAV , DELAER(l) , NSAV , ND(MQDE) 

00062 

ISN 

0065 


GO TO 30 

00063 

ISN 

0066 

40 

CONTINUE 

00064 

ISN 

0067 


NRITE (161,100) DELSAV , DELAER(l) , NSAV , h'D( MODE ) 

00065 

ISN 

0068 


ND( MODE ) = NSAV 

00066 

ISN 

0069 


DLSV( MODE ) = DELSAV 

00067 

ISN 

0070 


JMP(MODE) = 0 

00068 

ISN 

0071 


MODE = MODE + 1 

00069 

ISN 

0072 


IF (MODE .GT. LIM) GO TO 50 

00070 

ISN 

0074 


GO TO 10 

00071 

ISN 

0075 

50 

RETURN 

00072 

ISN 

0076 

100 

FORMAT (5X,E12.5,5X,E12.5,5X,I5,5X,I5) 

00073 

ISN 

0077 

110 

FORMAT (/5X, 'DELAERO-SAVE' ,8X, •DELAERO 1 ,9X, 'ND-SAVE* ,4X, ‘ND ' ) 

00074 

ISN 

0078 


END 

00075 


"OPTIONS IN EFFECT*NAME(MAIN) OPTIMIZE! 3) LINECOUNT( 60 ) SIZE! MAX) AUTODBL(NONE) 

"OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST HODECK OBJECT NOMAP NOFORMAT GOSTMT HOXREF NOALC NOANSF TERM IBM FLAG(I) 
^STATISTICS# SOURCE STATEMENTS = 77, PROGRAM SIZE = 1402, SUBPROGRAM NAME =ITT983 

#STATI5TICS# NO DIAGNOSTICS GENERATED 

#####* END OF COMPILATION *#«### 3004K BYTES OF CORE NOT USED 


u> 

co 



♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82. 141/10.52.40 PAGE 1 

REQUESTED OPTIONS: SOURCE , NOMAP, NOXREF, NQLIST, NODECK, OPT( 3 ) ,AUTCDBL( NONE ) .NOALC 
OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNT(60) SIZE(MAX) AUTODEL(NONE) 

SOURCE EBCDIC NOLIST NODECK OBJECT HOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 


DATA SET U498SND983 AT LEVEL 002 AS OF 06/01/80 




C 

DATA SET U5D0NDT983 AT LEVEL 001 AS OF 05/15/81 

00001 

ISN 

0002 


SUBROUTINE NDT9S3 (NOD, NODE, IUAVE, INC) 

00002 



C 


00003 



C 

THIS ROUTINE SELECTS A NODAL DIAMETER (NOD) BETWEEN -(NB/2-2) AND 

00004 



C 

-2 AND BETWEEN 2 AND (NB/2-2) AND SETS NODE TO THE ABS(NOD) AND 

00005 



C 

THE WAVE DIRECTION EQUAL TO THE SIGN OF NOD. THIS ROUTINE 

00006 



C 

INCREMENT NOD BY KINC) UNTIL DELTA AERO IN THE CALLING ROUTINE 

00007 



C 

IS MINIMIZED. 

00008 



C 


00009 

ISN 

0003 


COMMON /ANAL11/ MAY , NAX , ISTR , NBB , DEND , DEHA , ED 

00010 




1 , DIAMD , BLADES , POID 

00011 

ISN 

0004 


COMMON /JMPCHK/ JMP(5) , MODE 

00012 

ISN 

0005 


NMIN = 2 

00013 

ISN 

0006 


NMAX =( (BLADES +.05) / 2. ) - 2. 

00014 

ISN 

0007 


IF ( IABS(NOD) .GT. NMIN .AND. IABS(NOD) .LT. UMAX ) GO TO 10 

00015 

ISN 

0009 


IF (JMP(MODE) .NE. 0) GO TO 10 

00016 

ISN 

0011 


JMP( MODE ) = 1 

00017 

ISN 

0012 


MOD = NOD *(-l) 

00018 

ISN 

0013 


GO TO 20 

00019 

ISN 

0014 


10 NOD = NOD + INC 

00020 

ISN 

0015 


20 IWAVE = 1 

00021 

ISN 

0016 


IF ( NOD .LT. 0 ) IWAVE = -1 

00022 

ISN 

0018 


NODE = IABS (NOD) 

00023 

ISN 

0019 


RETURN 

00024 

ISN 

0020 


END 

00025 


♦(OPTIONS IN EFF£CT*NAME(HAIN) OPTIMIZE(3) LINECOUNTf 60 ) SIZE(MAX) AUTCD8L(NCNE ) 

♦(OPTIONS IN EFFECT*SCURCE EECDIC NOLIST NODECK OBJECT HOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG! I) 
♦(STATISTICS* SOURCE STATEMENTS = 19, PROGRAM SIZE = 464, SUBPROGRAM NAME =NDT983 

♦(STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 3016K BYTES OF CORE NOT USED 



+VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82. 141/10.52.45 PAGE 1 

REQUESTED OPTIONS: SOURCE, NOMAP, NOXREF, NOLIST, NODECK, OPT( 3 ) ,AUT0D3L( NONE ) ,NOALC 
OPTIONS IN EFFECT: NAME(MAIN) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTODBLINONE ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IEM FLAG! I) 




C 

DATA SET U498SRD983 AT LEVEL 002 AS OF 06/04/81 




c 

DATA SET U500RDT9S3 AT LEVEL 001 AS OF 05/12/81 

00001 

ISN 

0002 


SUBROUTINE RDT933 (ICALC) 

00002 

ISN 

0003 


COMMON /UIOS/ 151 , 161 

00003 

ISN 

0004 


COMMON /ANAL50/ TITL(20) 

00004 

ISN 

0005 


COMMON /ANAL51/ MACH , MAERO , NUMA , MW137 , IMD , IBETA , IGUST 

00005 




1 , MGUST , NGUST , IPARM , IPRNT 

00006 

ISN 

0006 


COMMON /ANAL52/ TIAERO(20) 

00007 

ISN 

0007 


COMMON /ANAL53/ RAERO(21) , AMACHK 21 ) , VELK21 ) , TEMPI (21 ) 

00008 




1 , FRES( 21 ) i PSIK21), BETA1( 21 ) 

00009 

ISN 

0008 

c 

IXI = 151 

00010 

00011 



c 

READ TITLE CARD 

00012 



c 


00013 

ISN 

0009 

C 

READ (1X1,900) TITL 

00014 

00015 



C 

READ CONTROL CARD 

00016 



c 


00017 

ISN 

0010 


READ (1X1,901) MACH , MAERO ,NUMA ,MW137 ,IKD , IBETA , IGUST 

00018 




1 , MGUST , NGUST , IPARM , IFRNT 

00019 



c 


00020 



c 

READ AERO CASE TITLE 

00021 



c 


00022 

ISN 

0011 

c 

READ (1X1,900) TIAERO 

00023 

00024 



c 

READ AERO DATA 

00025 



c 


00026 

ISN 

0012 


DO 20 I = 1, MAERO 

00027 

ISN 

0013 


READ (1X1,902) RAERO(I) , AMACHl(I) , VELKI) , TEMPl(I) 

00028 




1 , PRES(I) , PSIKI) , BETAl(I) 

00029 

ISN 

0014 

20 CONTINUE 

00030 

ISN 

0015 


RETURN 

00031 

ISN 

C016 

900 

FORMAT (20A4) 

00032 

ISN 

0017 

901 

FORMAT (515, 5X, 615) 

00033 

ISN 

0018 

902 

FORMAT (7F10.0) 

00034 

ISN 

0019 


END 

00035 


^OPTIONS IN EFFECT*NAHE(NAIN) OPTIMIZED) LINECOUNT(60 ) SIZE(MAX) AUTODBLINONE) 

^OPTIONS IN EFFECT*SOUDCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFGRMAT GOSTMT NOXREF NOALC NOANSF TERM IEM FLAG(I) 
^STATISTICS* SOURCE STATEMENTS = 18, PROGRAM SIZE = 558, SUBPROGRAM NAME =RDT983 

^STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 3016K BYTES OF CORE NOT USED 


<x> 

cn 



+VERSION 1.3.0 (01 HAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82. 141/10 .52. 48 PAGE 1 

REQUESTED OPTIONS : SOURCE , NOMAP , NOXREF , NOLIST , NOD ECK , OPT( 3 ) , AUTCD8U NONE ) , NOALC 
OPTIONS IN EFFECT: NAME(MAIN) OPTIMIZED) LIHECOUNT( 60 ) SIZE(MAX) AUTODBL(NONE) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NQFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 


VO 

cn 


ISN 0002 
ISN 0003 
ISN 0004 
ISN 0005 
ISN 0006 
ISN 0007 

ISN 0008 

ISN 0009 

ISN 0010 
ISN 0011 
ISN 0012 

ISN 0013 

ISN 0014 

ISN 0015 
ISN 0016 
ISN 0017 


ISN 0018 


ISN 0019 
ISN 0020 


ISN 0021 
ISN 0022 

ISN 0024 
ISN 0026 
ISN 0027 
ISN 0023 
ISN 0029 

ISN 0030 
ISN 0031 


C DATA SET U498SRD137 AT LEVEL 004 AS OF 02/01/82 

C DATA SET U496SRD137 AT LEVEL 003 AS OF 11/23/81 00001 

C DATA SET U493SRD137 AT LEVEL 002 AS OF 05/28/81 00002 

C DATA SET U500RDM137 AT LEVEL 001 AS OF 04/06/81 00003 

SUBROUTINE RDW137 (ICALC) 00004 

COMMON /UIOS/ 151 , 161 00005 

COMMON /AHALOl/ NTEST 00006 

COMMON /ANAL02/ ITTLEU8), IOP1 , IOP2 , IOP3 00007 

COMMON /ANAL03/ RPM , FN , DFN , TOLL , ROOT , DRPM,RPMMN,RPMMX 00008 
COMMON /ANALQ4/ NSTA , MST1 , MST2 , NOACR , ILT , LONG , ISTE , 00009 

1 DENS , EB , POIB , BR , SERIES , BRS , BTS , IOPP 00010 

COMMON /ANAL05/ R(2l) , BCBRt 21 ) ,TOB( 21 ) ,THSTH( 21 ) , ALPHA! 21 ) , 00011 

1 SQB( 21 ) , RLE( 21 ) , RTE(21) , ADHT(21) , 0(21) 00012 

COMMON /ANAL06/ TLTA( 21) , TLTT(21) , XADHT(21) , YADHTC21) , 00013 

1 AKX( 21 ) , AKY( 21 ) , AKZ(21) 00014 

COMMON /ANAL07/ XP( 3,53,21) , NP(21) 00015 

COMMON /ANAL08/ THET , THER , AKMIH , AKMAX , ERANG 00016 

COMMON /ANAL09/ HTS1 , XSHR1 , YSHR1 , ARSK1 , XISHi , XISH3 , 00017 

1 AKSH1 , SHFOI1 , AKGS1 , NSL , 00018 

COMMON /ANAL10/ WTS2 , XSHR2 , YSHR2 , ARSH2 , XISH2 , XISH4 , 00019 

1 AKSH2 , SHFOI2 , ANGS2 00020 

COMMON /ANAL1 1/ MAY , NAX , ISTR , NOB , DEND , DENA , ED 00021 

1 , DIAND , BLADES , POID 00022 

COMMON /ANA LI 2/ RAD(32) , THE (32) 00023 

COMMON /ANA LI 3/ SIGBOR , RADST(32) , TANST(32) 00024 

COMMON /ANAL14/ ELP , HP , H3P, DBP , MNP , BNP , EL , W , 00025 

1 NS , OS , HZ , DT , RZ , THZ , TTH , OF , 00026 

2 NT , EMU , DLX , RRT , BNP , TUP , HR , RDR 00027 

COMMON /ANA LI 5/ SA , SB , SC , SD , SE , SF , SG , SH , SI , SJ , 00028 

1 SK , SL , SN , REF , HI , Til , R2 , D2 , D3 , D4 , D5 , D6 , 00029 

2 OLR , T1 » T2 » T3 , T4 » RA , BETO 00030 

COMMON /ANAL16/ JXN(30) , VAL(30,12) , III 00031 

DIMENSION X( 3,53 ) 00032 

C 00033 

C READ FIRST FOUR CARDS OF THE W137 INPUT 00034 

C CARD 1 — NEN CASE CONTROL CARD 00035 

C CARD 2 — TITLE CARD AMD RING AND RIM PROPERTIES OPTIONS 00036 

C CARD 3 — SPEED , FREQUENCIES , ROOT , EOT. 00037 

C CARD 4 — H137 CONTROL CARD 00038 

C 00039 

IXI = 151 00040 

IF (ICALC .GT. 1) IXI = 24 00041 

C IF (ICALC .EQ. 3) IXI = 5 00042 

IF (IXI .EQ. 24 .OR. IXI .Eq. 5) REHIND IXI 00043 

READ (1X1,900) NTEST 00044 

READ (1X1,901) ITTLE >I0P1 ,IOP2 ,10P3 00045 

READ (1X1,902) RPM, FN, DFN, TOLL, ROOT, DRPM.RPMHN.RPMMX 00046 

READ (1X1,903) NSTA, MST1 ,MST2, NOACR, ILT, LONG, ISTE, DENB.EB, 00047 

1 POIB, BR, SERIES, BRS, BTS, IOPP 00048 

DO 20 1=1, NSTA 00049 

READ (1X1,904) R( I ) ,BOBR( I ) ,TOB( I ) ,THSTH( I ) , ALPHAl I ) ,SGB( I ) , 00050 

1 RLE( I ) ,RTE( I ) »ADWT( I ) ,0( I ) 00051 

C 00052 

C READ TILT AND SPRING CARD IF: 00053 

C 1 TILT IS INPUT AT EACH STATION (ILT = 1) 00054 
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C 


2— TILT IS INPUT AT THE TIP STATION (ILT = 2 ) 

AND THE 

00055 



C 


TIP STATION IS BEING READ ( I = NO. 

OF STATIONS ) 

00056 



C 


3 ADDED WEIGHT HAS BEEN INPUT 



00057 



c 





00058 

ISN 

0032 



IF (ILT .Eq. 1 ) GO TO 5 



00059 

ISN 

0034 



IF (ILT .EQ. 2 .AND. I .EQ. NSTA ) GO TO 5 



03060 

ISN 

0036 



IF ( ADWT(I) ) 5,6,5 



00C61 

ISN 

0037 


5 

READ (1X1,905) TLTA(I) , TLTT(I) , XADWTtl) 

, YADWT(I) , 

00062 





1 AKX(I) , AKY(I) , AKZ(I) 



' 00063 



c 





00064 



c 


IF T/B IS FOSITIVE — STOP READING AIRFOIL 1 

DATA 


00065 



c 


IF T/B IS NEGATIVE — READ COORDINATES 



00066 



c 





00067 

ISN 

0038 


6 

IF ( TOB(I) .GT. 0.0 ) GO TO 20 



00068 

ISN 

0040 



N = 0(1) + .05 



00069 

ISN 

0041 



DO 10 JI = 1,3 



00070 

ISN 

0042 



READ (1X1,905) ( X(JI,IN) , IN = 1,N ) 



00071 

ISN 

0043 


10 

CONTINUE 



00072 

ISN 

0044 



DO 15 M = 1 >N 



00073 

ISN 

0045 



XPd.M.I) = X(l,h) 



00074 

ISN 

0046 



XP( 2 ,M, I ) = X(2,M) 



00075 

ISN 

0047 



XP( 3,M,I ) = X(3,M) 



00076 

ISN 

0043 


15 

CONTINUE 



00077 

ISN 

0049 



NP( I ) = N 



00078 

ISN 

0050 


20 

CONTINUE 



00079 



c 





00080 



c 


READ ROOT AND TIP ANGLE , M/O , AND EROACH 

ANGLE 


00081 



c 





00082 

ISN 

0051 



READ (1X1,906) THET , THER , AKMIN , AKMAX 

, BRANS 


000S3 



c 





00084 



c 


READ SHROUO DATA (MST1 = 0,NO SHROUD ) 



00085 



c 





00086 

ISN 

0052 



IF ( MST1 .LT. 1 ) GO TO 30 



00087 

ISN 

0054 



READ (1X1,907) HTS1 , XSHR1 , YSHR1 , ARSH1 

, XISH1 

, XISH3 , 

00088 





1 AKSH1 , SHPOI1 , ANGS1 , NSL 



00089 

ISN 

0055 



IF ( MST2 .LT. 2 ) GO TO 30 



00090 

ISN 

0057 



READ (1X1,907) WTS2 , XSHR2 , YSHR2 , ARSH2 

, XISH2 

, XISH4 , 

00091 





1 AKSH2 , SHFOI2 , ANG52 



00092 



c 





00093 



c 


READ DISC CONTROL DATA 



00094 



c 





00095 

ISN 

0058 


30 

CONTINUE 



00096 

ISN 

0059 



READ (1X1,908) MAY , NAX , ISTR , MSB , DEND , DENA 

, ED 

00097 





1 , DIAND , BLADES , POID 



00098 



c 





00099 



c 


READ DISC RADII AND THICKNESSES IF MAY .NE. 

0 


00100 



c 





00101 

ISN 

0060 



IF ( MAY .EQ. 0 ) GO TO 40 



00102 

ISN 

0062 



READ (1X1,909) ( RAD( I ) ,THE( I ) , 1=1 ,MAY ) 



00103 

ISN 

0063 


40 

CONTINUE 



00104 



c 





00105 



c 


READ BORE STRESS , STRESS AT EACH STATION , 

OR NO STRESS 

00106 



c 





00107 

ISN 

0064 



IF (ISTR) 50,70,60 



00108 

ISN 

0065 


50 

READ (1X1,910) SIGBOR 



00109 

ISN 

0066 



GO TO 70 



00110 

ISN 

0067 


60 

J = NAX + 1 



00111 

ISN 

0068 



READ (1X1,909) (RADST(I) , TANST(I), 1= J , 

MAY ) 


00112 

ISN 

0069 


70 

CONTINUE 



00113 


PAGE 2 



♦VERSION 1.3.0 (01 HAY SO) RDU137 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82 . 141/10.52. 48 PAGE 




C 



00114 



C 


READ DOVETAIL INPUT OR SKIP TO RING INPUT 

00115 



C 



00116 

ISM 

0070 



IF ( IOP1 .EG. 0 ) GO TO 80 

00117 

ISN 

0072 



READ (1X1,902) ELP,NP,U3P,DBP,NNP,DN?,EL,H 

00118 

ISN 

0073 



READ (1X1,902) HS,DS,NZ,DT,RZ,THZ,TTH,DF 

00119 

ISN 

0074 



READ (1X1,902) NT , EMU ,DLX,RRT,ENP, TNP , HR 

00120 

ISN 

0075 



IF ( NR .ME. 0. ) READ (1X1,910) RDR 

00121 

ISN 

0077 


80 

CONTINUE 

00122 



C 


1 

00123 



C 


READ DISC RIM INPUT IOP2 = 1 OR 2 

00124 



C 



00125 

ISN 

0078 



IF ( IOP2 - 1 ) 110,100,90 

00126 

ISN 

0079 


90 

READ (1X1,902) SA , SB , SC , SD , SE , SF , SG , SH 

00127 

ISN 

0060 



READ (1X1,902) SI , SJ , SK , SL , SN , REF , WI 

00128 

ISN 

0061 



IF ( Ml ) 95,110,95 

00129 

ISN 

0082 


95 

READ (1X1,902) Til , R2 

00130 

ISN 

0083 



GO TO 110 

00131 

ISN 

0084 


100 

READ (1X1,902) D2 , D3 , D4 , 05 , D6 , DLR , Ml 

00132 

ISN 

0085 



READ (1X1,902) T1 , T2 , T3 , T4 , RA , BETD 

00133 

ISN 

0036 



IF ( Ml ) 105,110,105 

00134 

ISN 

0087 


105 

READ (1X1,902) Til , R2 

00135 

ISN 

0088 


110 

CONTINUE 

00136 



C 



00137 



C 


READ SPRING AND RING PROPERTY INFORMATION 

00138 



C 



00139 

ISN 

0039 



I = 1 

00140 

ISN 

0090 


120 

READ (1X1,911) JXN(I) , ( VAL( I, L) , L=1 , 12 ) 

00141 

ISN 

0091 



IF ( JXN(I) .EQ. 0 ) GO TO 130 

00142 

ISN 

0093 



1 = 1+1 

00143 

ISN 

0094 



GO TO 120 

00144 

ISN 

0095 


130 

1 = 1 + 1 

00145 

ISN 

0096 



READ (1X1,911) JXN(I) 

00146 

ISN 

0097 



III = I - 2 

00147 

ISN 

0093 



RETURN 

00148 

ISN 

0099 


900 

FORMAT! 72X.I1 ) 

00149 

ISN 

0100 


901 

FORMAT! 18A4, IX, 311) 

00150 

ISN 

0101 


902 

FORMAT! 8F8.0 ) 

00151 

ISN 

0102 


903 

FORMAT! 712, 2X.7F8.0, IX, ID 

00152 

ISN 

0103 


904 

FORMAT! 9F8.0, IX, F4.0) 

• 00153 

ISN 

0104 


905 

FORMAT! 9F8.0) 

00154 

ISN 

0105 


906 

FORMAT! 5E3.0 ) 

00155 

ISN 

0106 


907 

FORMAT( 9F8.0,1X,I1) 

00156 

ISN 

0107 


908 

F0RMAT(4I2,eX,6F8.0 ) 

00157 

ISN 

0103 


909 

FORMAT! 8F8. 2) 

00158 

ISN 

0109 


910 

FORMAT! F8. 2) 

00159 

ISN 

0110 


911 

FORMAT! I2,6(F3.0,F8.0)) 

00160 

ISN 

0111 



END 

00161 


^OPTIONS IN EFFECT*NAME( MAIN ) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTODBL(NONE) 

^OPTIONS IN EFFECT*SQURCE EECDIC NOLIST NODECK ODJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
^STATISTICS* SOURCE STATEMENTS = 110, PROGRAM SIZE = 3472, SU3PROGRAM NAME =RDU137 

^STATISTICS* NO DIAGNOSTICS GENERATED 
****** END OF COMPILATION ****** 


2988K BYTES OF CORE NOT USED 



♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82. 141/10 .52.54 PAGE 

REQUESTED OPTIONS: SOURCE , NOMAP, NOXREF, NOLIST, NODECK,OPT( 3 ) ,AUTODBL( NONE ) ,NOALC 
OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTODBUNCNE ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFCRMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 




C 


DATA SET U498SRSFUN AT LEVEL 003 AS OF 01/28/62 




C 


DATA SET U498SRSFUN AT LEVEL 002 AS OF 06/24/81 

00001 



C 


DATA SET U500RSFUNC AT LEVEL 001 AS OF 06/22/81 

00002 

ISN 

0002 



SUBROUTINE RSFUHC 

00003 

ISM 

0003 



COMMON /UIOS/ 151 , 161 

00004 

ISM 

0004 



COMMON /ANAL03/ RPM , FNS , OFN , TOLL .ROOT ,DRPM,RPMMN,RPMMX 

00005 

ISN 

0005 



COMMON /ANAL21/ FNRQUOO) , SPEED! 100 ) , BTA(IOO) 

00006 

ISN 

0006 



COMMON /ANAL32/ RFMN , RPMX , EGRD(4) , NORD 

00007 

ISN 

0007 



COMMON /GLOBCM/ 03JF , FN(5) , DLAR(5) , THKVALC 21 ) , RF(5,4) 

00008 

ISN 

0003 



DOUBLE PRECISION FNRQ , SPEED , BTA 

00009 



C 



00010 



C 


SAVE THE LARGER VALUE OF RFMAX AND RFMIN FOR EACH 

00011 



C 


ORDER AND EACH ROOT 

00012 



C 



00013 

ISN 

0009 



NROOT = ROOT + .05 

00014 

ISN 

0010 



WRITE (161,910) 

00015 

ISN 

0011 


910 

FORMAT!/, 5X, ’FREQUENCY' ,8X, ’SPEED’ ,10X, 'BETA* ) 

00016 

ISN 

0012 



DO 3 I = 1, NROOT 

00017 

ISN 

0013 



WRITE (161,900) FNRq(I) , SPEED(I) , BTA(I) 

00018 

ISN 

0014 


3 

CONTINUE 

00019 

ISN 

0015 


900 

FORMAT ( 5( 3X, E12 .5 ) ) 

00020 

ISN 

0016 



WRITE (161,920) 

00021 

ISN 

0017 


920 

FORMAT! /,6X, ’RPM-MIN’ ,8X, ’RPMMAX' , 9X , ’ ND ( 1 ) ’ , 

00022 




1 10X, 'ND( 2 ) ’ , 10X, *ND( 3) * , 10X, ’ND(4) ' ) 

00023 

ISN 

0018 



WRITE (161,900) RPMN , RPMX , EORD(l) , ECRD(2) , EORD(3) 

00024 

ISN 

0019 



WRITE (161,930) 

00025 

ISN 

0020 


930 

FORMAT ( / , 7X , ’DMAX’ , 11X, ‘DMIN’.llX, ’RFMAX’ , 10X, ‘RFMIN’ , 1 IX, ’RF’ ) 

00026 

ISN 

0021 



DO 10 I = 1, NROOT 

00027 

ISM 

0022 



DO 5 J = l.NORD 

00028 

ISN 

0023 



DMAX = FNRQ( I )**2 + BTA(I) * (RFMX**2 - SPEED(I)**2) 

00029 

ISN 

0024 



DMIN = FNRQ ( I )**2 + BTA(I) * (RPMN**2 - SPEED(I)**2) 

00030 

ISN 

0025 



RFMAX = 60. * SORT (DMAX) / EORD(J) / RPMX - 1.0 

00031 

ISN 

0026 



RFMIN = 1.0 - 60. * SQRT(DMIN) / EORD(J) / RPHN 

00032 

ISN 

0027 



RF( I, J ) = RFMAX 

00033 

ISN 

0028 



IF (RFMIN .GT. RFMAX) RF(I,J) = RFMIN 

00034 

ISN 

0030 



WRITE (161,900) DMAX , DMIN , RFMAX , RFMIN , RF(I,J) 

00035 

ISN 

0031 


5 

CONTINUE 

00036 

ISN 

0032 


10 

CONTINUE 

00037 

ISN 

0033 



RETURN 

00038 

ISN 

0034 



END 

00039 


^OPTIONS IN EFFECT*NAME(MAIN) OPTIMIZE(3) LINECOUNT( 60 ) SIZE(MAX) AUTODBUNONE ) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG! I ) 
^STATISTICS* SOURCE STATEMENTS = 33, PROGRAM SIZE = 1048, SUBPROGRAM NAME =RSFUNC 

^STATISTICS* NO DIAGNOSTICS GENERATED 
*x**x* END OF COMPILATION ****** 


3012K BYTES OF CORE NOT USED 



♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.52.58 PAGE 

REQUESTED OPTIONS: SOURCE .NOMAP, NOXREF, NOLIST, NQDECK,OPT( 3 ) , AUTODBLCNONE ) .NOALC 
OPTIONS IN EFFECT: NAME (MAIN) 0PTIMIZE(3) LINECCUNTt 60 ) SIZE(MAX) AUTODBL(NCNE ) 





SOURCE EBCDIC NOLIST NGDECK 03JECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FUG(I) 



C 

DATA SET U498STMAX AT LEVEL 003 AS OF 02/01/82 




c 

DATA SET U498STMAX AT LEVEL 002 AS OF 07/16/81 

00001 



c 

DATA SET U500TMAX AT LEVEL 001 AS OF 04/06/81 

00002 

ISN 

0002 


SUBROUTINE TMAX (ICALC) 


00003 

ISN 

0003 


COMMON /UIOS/ 151 , 16 I 


00004 

ISN 

0004 


COMMON /ANAL04/ NSTA , MST1 , MST2 , NOACR , ILT > 

LONS , ISTE , 

00005 




1 DENB , EB , POIB , BR , SERIES , BRS , BTS , IOPP 


00006 

ISN 

0005 


COMMON /AHAL07/ XPt 3,53,21) , NP(21) 


00007 

ISN 

0006 


COMMON /ANAL17/ XPS( 3,53,21) , THX(2l) , TCC(21) , 

EMX( 21 ) 

00008 




1 , ECC( 21 ) 


00009 

ISN 

0007 


NBRS = BRS + .05 


00010 

ISN 

0008 


IF ( ICALC .EQ. 3 ) GO TO 70 


00011 

ISN 

0010 


IF ( ICALC .EQ. 1 .OR. ICALC .EQ. 2 ) GO TO 10 


00012 

ISN 

0012 


WRITE (161,900) ICALC 


00013 

ISN 

0013 


STOP 


00014 

ISN 

0014 


10 IF ( ICALC .EQ. 2 ) GO TO 70 


00015 



c 



00016 



c 

DETERMINE MAX THICKNESS OF EACH INFUT STATION AMO SAVE CQORDINATES00017 



c 



00018 

ISN 

0016 


DO 30 I = NBRS , NSTA 


00019 

ISN 

0017 


NPP = NP( I ) 


00020 

ISN 

0013 


TMAX =XP( 2,1,1) -XP( 3, 1 »I ) 


00021 

ISN 

0019 


BMX(I) = XP( 1 , NPP, I ) - XP( 1,1,1) 


00022 

ISN 

0020 


DO 20 J = 1, NPP 


00023 

ISN 

0021 


T =XP(2,J,I) - XP(3,J,I) 


00024 

ISN 

0022 


TMAX = AMAX1 (TMAX.T) 


00025 

ISN 

0023 


20 CONTINUE 


00026 

ISN 

0024 


TMX(I) = TMAX 


00027 

ISN 

0025 


30 CONTINUE 


00026 

ISN 

0026 


DO 60 I = NBRS , NSTA 


00029 

ISN 

0027 


NPP = NP( I ) 


00030 

ISN 

0028 


DO 50 J = l.NPP 


00031 

ISN 

0029 


DO 40 K = 1,3 


00032 

ISN 

0030 


XPS(K, J, I ) = XP(K,J,I) 


00033 

ISN 

0031 


40 CONTINUE 


00034 

ISN 

0032 


50 CONTINUE 


00035 

ISN 

0033 


60 CONTINUE 


00036 

ISN 

0034 


GO TO 999 


00037 

ISN 

0035 


70 CONTINUE 


0C033 



c 



00039 



c 

RATIO THE Y-UPPERS AND Y-LOUERS TO REFLECT THE NEW 


00040 



c 

THICKNESS FROM COPES-CONMIN 


00041 



c 



00042 

ISN 

0036 


DO 90 I = NBRS, NSTA 


00043 

ISN 

0037 


NPP = NP( I ) 


00044 

ISN 

0038 


PER = TCC(I) / TMX(I) 


00045 

ISN 

0039 


DO 80 J = 1 , NPP 


00046 

ISN 

0040 


T = XPS( 2 , J , I ) - XPS(3,J,I) 


00047 

IS!) 

0041 


XS = T/TMXd) 


00048 

ISN 

0042 


XP( 2 , J , I ) = XPS( 2 , J , I ) + (PER -l.)#.5*T#XS 


00049 

ISN 

0043 


XPt 3, J ,1 ) = XPS( 3, J,I ) - (PER - 1.) * .5 * T * XS 


00050 

ISN 

0044 


60 CONTINUE 


00051 

ISN 

0045 


90 CONTINUE 


00052 



c 



00053 



c 

RATIO THE Y-UPPERS AND Y- LONERS TO REFLECT THE NEW 


00054 



+VERSIOM 1.3.0 (01 MAY 80) 


TMAX 


SYSTEH/370 FORTRAN H EXTENDED (ENHANCED) 


CHORD FROM COPES-CONMIN 


DATE 82.141/10.52.58 

00055 

00056 


PAGE 


ISN 

0046 


DO 110 I = NBRS.NSTA 




00057 

ISN 

0047 


NPP = NP( I ) 




00053 

ISN 

0048 


IF (BCC(I) .EQ. 0.0 .OR. 

BMX(I) 

.EQ 

. 0.0) GO TO 110 

00059 

ISN 

0050 


PER = BCC(I) / BHX(I) 




00060 

ISN 

0051 


DO 100 J = 1 , NPP 




00061 

ISN 

0052 


XP(1,J,I) = XP(1,J,I) + 

(PER - 

1.0) 

* XP(1,J,I) 

00062 

ISM 

0053 


XP(2,J,I) = XP( 2 , J , I ) + 

(PER - 

1.0) 

* XP( 2 , J , I ) 

00063 

ISM 

0054 


XP( 3, Ji I ) = XP( 3, J , I ) + 

(PER - 

1.0) 

* XP( 3, J , I ) 

00064 

ISN 

0055 

100 

CONTINUE 




00065 

ISN 

0056 

110 

CONTINUE 




00066 

ISM 

0057 

900 

FORMAT C ICALC = M10) 




00067 

ISN 

0058 

999 

RETURN 




00068 

ISN 

0059 


END 




00069 


^OPTIONS IN EFFECT*NAI1E(HAIN) OPTIMIZE! 3) LINECOUNT! 60 ) SIZE(MAX) AUTODBU NONE ) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG! I) 
^STATISTICS* SOURCE STATEMENTS = 53, FROGRAM SIZE = 1098, SUBPROGRAM NAME = TMAX 

*STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 3004K BYTES OF CORE NOT USED 



♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.53.00 PAGE 1 

REQUESTED OPTIONS: SOURCE , NOMAP, NOXREF, NOLIST, NODECK, OPT( 3 ) ,AUTODBL( NONE ) ,NOALC 
OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNT(60 ) SIZE(MAX) AUTCDBKNONE ) 

SOURCE EBCDIC NOLIST NCDECK OBJECT NOMAP NOFORMAT G05TMT NOXREF NOALC NOANSF TERM IBM FUG(I) 


po 

o 

ro 


ISN 000Z 
ISM 0003 
ISN 0004 

ISN 0005 

ISN 0006 

ISN 0007 


ISN 0008 
ISN 0009 

ISN 0010 
ISN 0011 

ISN 0012 
ISN 0013 

ISN 0014 
ISN 0016 
ISN 0017 
ISN 0018 


ISN 0020 


ISN 0021 
ISN 0022 
ISN 0023 
ISN 0024 
ISN 0025 
ISN 0026 
ISN 0027 
ISN 0028 
ISN 0029 
ISN 0030 


ISN 0031 


C DATA SET U498SNT983 AT LEVEL 014 AS OF 01/29/82 

C DATA SET U498SWT933 AT LEVEL 013 AS OF 12/02/81 00001 

C DATA SET U49SSMT933 AT LEVEL 012 AS OF 09/14/81 00002 

C DATA SET U500UTT983 AT LEVEL Oil AS OF 09/09/81 00003 

C DATA SET U500UTT983 AT LEVEL 010 AS OF 06/09/81 00004 

SUBROUTINE WTT983 ( ICALC.MODE.IND, IWAVE ) 00005 

C0NM0N/UI0S/ 151 , 161 00006 

COMMON/ ANAL04/ HSTA , MST1 , MST2 , NOCAR , ILT , LONG , ISTE , 00007 

1 DENB , EB , POIB , BR , SERIES , BRS , BTS , IOPP 00008 

COMMON /ANAL11/ HAY , NAX , ISTR , NBB , DEND , DENA , ED 00009 

1 , DIAHD , BLADES , POID 00010 

COMMON /ANAL17/ XPS(3,53,21) , TMX(21) , TCC(21) , BMX(21) 00011 

1 , BCC( 21 ) 00012 

COMMON/ ANAL20/ SPEEO(5) , AN0D(5) , FRFN(5) , TKEB(5) 00013 

1 , RAD (5, 21 ) , CHD( 5, 21 ) , SCT(5,21) 00014 

2 , ALPH(5,21 ) , PFDF(5,21) , PFAG(5,21) , PWDF(5,21) , PWAG(5,21) 00015 

3 , IRNO(5) , NBLO( 5 ) , N137(5) 00016 

COMMON/ ANAL50/ TITU20) 00017 

COMMON/ANA L5 1 / MACH , MAERO , NUHA , MIU37 , IWD , IBETA , IGUST 00018 

1 , MGUST , NGUST , IPARM , IPRNT 00019 

COMMON/ ANAL52/ TIAERO(20) 00020 

COMMON/ANA L5 3/ RAERO(21) , AMACHK21) , VELK21) , TEMPK21 ) 00021 

1 , PRES( 21 ) , PSIK21) , BETAK21) 00022 

COMMON /ANAL31/ NSFA , ISTN(21) 00023 

DOUBLE PRECISION SPEED , ANOD , FRFN , TKEB 00024 

1 , RAD , CHD , SCT , ALPH , PFDF , PFAG , PWDF , PHAG 00025 

IF (ICALC .Eq. 2) REWIND 5 00026 

NBR = BRS + .05 00027 

IYI = 161 00028 

IF (ICALC .Eq. 2) IYI = 5 00029 

C 00030 

C WRITE TITLE CARD - - CARD 1 00031 

C 00032 

WRITE (IYI, 900) TITL 00033 

C 00034 

C WRITE CONTROL CARD - - CARD 2 00035 

C 00036 

NUMA = 1 00037 

MH137 = 1 00038 

NIN = 5 00039 

MN = 5 00040 

IGUST = 0 00041 

MGUST =0 00042 

NGUST = 0 00043 

IPARM = 0 00044 

IPRNT = 0 00045 

WRITE (IYI, 901) MACH , MAERO , NUMA , MW137 , IWAVE , NIN , MN 00046 
1 , IBETA , IGUST , MGUST , NGUST , IPARM , IPRNT 00047 

C 00048 

C WRITE AERO CASE TITLE - - CARD 3 00049 

C 00050 

WRITE (IYI, 900) TIAERO 00051 

C 00052 

C WRITE AERO DATA - - CARD 4 00053 

C 00054 



+VERSIGN 1.3.0 (01 MAY 80) WTT933 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.53.00 PAGE 


ISN 

0032 


DO 10 I = 1 ,MAERO 


00055 

ISN 

0033 


WRITE (IYI.902) RAERO(I) , AMACHl(I) , VELl(I) 

, TEMPI ( I ) 

00056 




1 , PRES(I) , PSIKI) , BETAl(I) 


00057 

ISN 

0034 


10 CONTINUE 


00053 



C 



00059 



c 

WRITE W137 CONTROL CARD - - CARD 7 


00060 



c 



00061 

ISN 

0035 


DIA = IND 


00062 

ISN 

0036 


ANBLD = BLADES * BMX(NBR) / BCC(NBR) 


00063 

ISN 

0037 


WRITE (IYI.903) SPEED! MODE) , DIA , IRNO(MODE) 

, FRFN(MODE) 

, 00064 




1 TKEB(MODE) , ANBLD , NSFA 


00065 



c 

WRITE (26,903) SPEED(MODE) , DIA , IRNO(MODE) , 

FRFN(MODE) , 

00066 



c 

1 TKEB(MGOE) , ANBLD , NSFA 


00067 



c 



00068 



c 

WRITE W137 MODE SHAPE - - CARD 8 


00069 



c 



00070 

ISN 

0038 


DO 20 J = l.NSFA 


00071 

ISN 

0039 


I = ISTNU) 


00072 

ISN 

0040 


WRITE (IYI.904) RADINODE ,1 ) , CHD(MODE.I) , SCT(MODE.I) , 

00073 




1 ALFIK MODE > I ) , PFDF(MODE.I) , PFAG(MODE.I) , PNDF(MODE,I) , 

00074 




2 PW AG (NODE, I) 


00075 

ISN 

0041 


20 CONTINUE 


00076 

ISN 

0042 


IF ( IYI .EQ. 5) REWIND 5 


00077 

ISN 

0044 


RETURN 


00078 

ISN 

0045 


900 FORMAT (20A4) 


00079 

ISN 

0046 


901 FORMAT (515,13,12,615) 


00080 

ISN 

0047 


902 FORMAT ( 2F10 -5,3F10.3, 2F10.4) 


00081 

ISN 

0048 


903 FORMAT ( 2F10 .2,110 ,F10 .4, 2E10. 4,110 ) 


00032 

ISN 

0049 


904 FORMAT (4F10.5,E10.4,F10.4,E10.4,F10.4) 


00083 

ISN 

0050 


END 


00084 

^OPTIONS IN EFFECT*NAME(MAIN) OPTIMIZED) LINECOUNT1 60 ) SIZE(MAX) AUTGDBH NONE ) 


^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORHAT 

GOSTMT NOXREF 

NOALC NOANSF TERM IBM FLAG(I) 

^STATISTICS* 

SOURCE STATEMENTS = 49, PROGRAM SIZE = 1206 

, SUBPROGRAM 

NAME =WTT983 

^STATISTICS* 

NO 

DIAGNOSTICS GENERATED 




END OF 

COMPILATION ****** 

3Q0SK BYTES 

OF CORE NOT USED 


2 



♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82. 141/10.53. 04 PAGE 1 

REQUESTED OPTIONS: SOURCE, NOMAP, NOXREF, NOLIST, NODECK, OPT( 3 ) ,AUTODBL( NONE ) ,NOALC 
OPTIONS IN EFFECT: NAME (MAIN) 0PTIMIZE(3) LINECOUNT( 60 ) SIZE(MAX) AUTODBUNONE ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 


ro 

o 

-P> 


c 

c 

c 

c 

c 

ISN 0002 
ISN 0003 
ISN 0004 
ISN 0005 
ISN 0006 
ISN 0007 

ISN 0008 

ISN 0009 

ISN 0010 
ISN 0011 
ISN 0012 

ISN 0013 

ISN 0014 

ISN 0015 
ISN 0016 
ISN 0017 


ISN 0018 


ISN 0019 
ISN 0020 

C 

C 

C 

C 

C 

C 

c 

ISN 0021 
ISN 0022 
ISN 0024 
ISN 0026 
ISN 0028 
ISN 0030 
ISN 0031 
ISN 0032 
ISN 0033 

ISM 0034 

C 

C 


DATA SET U498SNT137 AT LEVEL 005 AS OF 03/11/82 

DATA SET U498SHT137 AT LEVEL 004 AS OF 01/28/82 00001 

DATA SET U49SSHT137 AT LEVEL 003 AS OF 12/02/81 00002 

DATA SET U49SSUT137 AT LEVEL C02 AS OF 05/28/81 00003 

DATA SET U500UTH137 AT LEVEL 001 AS OF 04/06/81 00004 

SUBROUTINE WTM137 (ICALC) 00005 

COMMON /UIOS/ 151 , 161 00006 

COMMON /ANAL01/ HTEST 00007 

COMMON /ANAL02/ ITTLE(18), IOP1 , IOP2 , IOP3 00008 

COMMON /ANAL03/ RPM , FN , DFN , TOLL , ROOT , DR PM , R PMMN , R PMMX 00009 

COMMON /ANAL04/ NSTA , MST1 , HST2 , NOACR , ILT , LONG , ISTE , 00010 

1 DEN3 , EB , POIB , BR , SERIES , BRS , BTS , IOPP 00011 

COMMON /ANAL05/ R(21) , B03R( 21 ) ,TOB( 21 ) .THSTHC 21 ) , ALPHA( 21 ) , 00012 

1 SCBI21) , RLE( 21 ) , RTE(21) , AOHT(21) , 0(21) 00013 

COMMON /ANALQ6/ TLTAt 21 ) , TLTT( 21 ) , XADWT(21) , YADWT(21) , 00014 

1 AKX( 21 ) , AKY( 21 ) , AKZ(21) 00015 

COMMON /ANAL07/ XP(3,53,21) , NP(21) 00016 

COMMON /ANAL08/ THET , THER , AKMIN , AKMAX , ERANG 00017 

COMMON /ANAL09/ WTS1 , XSHR1 , YSHR1 , ARSH1 , XISH1 , XISH3 , 00018 

1 AKSH1 , SHPOI1 , ANGS1 , NSL 00019 

COMMON /ANAL10/ WTS2 , XSHR2 , YSHR2 , ARSH2 , XISH2 , XISH4 , 00020 

1 AKSH2 , SHPOI2 , ANGS2 00021 

COMMON /ANA LI 1/ MAY , NAX , ISTR , N3B , DEND , DENA , ED 00022 

1 , DIAND , BLADES , POID 00023 

COMMON /ANAL12/ RAD(32) , THE (32) 00024 

COMMON /ANAL13/ SIGBOR , RADST(32) , TANST(32) 00025 

COMMON /ANAL14/ ELP , HP , WBP, DSP , MNP , DNP , EL , W , 00026 

1 WS , OS , HZ , DT , RZ , THZ , TTH , DF , 00027 

2 NT , EMU , DLX , RRT , BNP , TNP , NR , RDR 00028 

COMMON /ANAL15/ SA , SB , SC , SD , SE , SF , SG , SH , SI , SJ , 00029 

1 SK , SL , SN , REF , (Jl , Til , R2 , D2 , D3 , D4 , D5 , D6 , 00030 

2 DLR , T1 , T2 , T3 , T4 , RA , BETO 00031 

COMMON /ANAL16/ JXN(30) , VAL(30,12) , III 00032 

COMMON /ANAL17/ XPS( 3,53,21) , TMX(21) , TCC(21) , BMX(21) 00033 

1 , BCC( 21 ) 00034 

00035 

NRITE FIRST FOUR CARDS OF THE W137 INPUT 00036 

CARD 1 — NEW CASE CONTROL CARD 00037 

CARD 2 TITLE CARO AND RING AND RIM PROPERTIES OPTIONS 00038 

CARD 3 SPEED , FREQUENCIES , ROOT , ECT. 00039 

CARD 4 W137 CONTROL CARD 00040 

00041 

IYI = 161 00042 

IF (ICALC .EQ. 1) IYI = 24 00043 

IF (ICALC .EQ. 2) IYI = 5 00044 

IF (ICALC .EQ. 4) IYI = 7 00045 

IF (IYI .Eq. 5 .OR. IYI .EQ. 24) REWIND IYI 00046 

WRITE (IYI, 900) NTEST 00047 

WRITE (IYI, 901) ITTLE , IOP1 , IOP2 , I0P3 00048 

WRITE (IYI, 902) RPM , FN , DFN , TOLL , ROOT , DRPM , R PMMN, R PMMX 00049 

WRITE (IYI, 903) NSTA , MST1 , MST2 , NOACR , ILT , LONG , ISTE , 00050 

1 DENB , EB , POIB , BR , SERIES , BRS , BTS , IOPP 00051 

00 20 I = 1 , NSTA 00052 

00053 

WRITE AIRFOIL DATA 00054 



♦VERSION 1.3.0 (01 I1AY 80) WTW137 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82 . 141/10.53. 04 




C 




00055 

ISN 

0035 



WRITE (IYI.904) R(I) , B08R(I) , TG3(I) , THSTH(I) , ALPHA! I) , 

00056 





1 SOB(I) , RLE(I) , RTE(I) , ADHT(I) ,0(1) 


00057 



c 




00058 



c 


WRITE TILT AND SPRING CARD IF: 


00059 



c 


1 — TILT IS INPUT AT EACH STATION ( ILT = 1) 


00060 



c 


2 — TILT IS INPUT AT THE TIP STATION (ILT = 2) AND THE 

00061 



c 


TIP STATION IS BEING READ (I = NO. OF STATIONS) 


00052 



c 


3 ADDED WEIGHT HAS BEEN INPUT 


00063 



c 




00054 

ISM 

0036 



IF (ILT .EQ. 1) GO TO 5 


00065 

ISN 

0038 



IF (ILT .EQ. 1 .AND. I .EQ. NSTA ) GO TO 5 


00066 

ISN 

0040 



IF (ADWT(I)) 5,6,5 


00067 

ISN 

0041 


5 

WRITE (IYI.905) TLTA(I) , TLTT(I) , XAOUT(I) , YADWT( I ) 

, 

0C068 





1 AKX(I) , AKY(I) , AKZ(I) 


00069 



c 




00070 



c 


IF T/B IS POSITIVE STOP READING AIRFOIL DATA 


00071 



c 


IF T/B IS NEGATIVE — READ COORDINATES 


00072 



c 




00073 

ISN 

0042 


6 

IF (TOB(I) .GT. 0.0) GO TO 20 


00074 

ISN 

0044 



N = 0(1) + .05 


00075 

ISN 

0045 



DO 10 J = 1 , 3 


00076 

ISN 

0046 



WRITE (IYI.906) (XP(J,IN,I) , IN = 1 , N) 


00077 

ISN 

0047 


10 

CONTINUE 


00078 

ISN 

004S 


20 

CONTINUE 


00079 



c 




00030 



c 


WRITE ROOT AND TIP ANGLE , M/O , AND BROACH ANGLE 


00031 



c 




00082 

ISN 

0049 



WRITE (IYI.907) THET , THER , AKMIN , AKMAX , ERANG 


00083 



c 




00084 



c 


WRITE SHROUD DATA (MST1 = 0 , NO SHROUDS) 


00085 



c 




00086 

ISN 

0050 



IF (MSTl .LT. 1) GO TO 30 


00037 

ISN 

0052 



WRITE ( IYI»90S) HTS1 , XSHR1 , YSHR1 , ARSH1 , XISH1 , 

XISH3 , 

00088 





1 AKSH1 , SHFOI1 , ANGS1 , NSL 


00089 

ISN 

0053 



IF (MST2 .LT. 2) GO TO 30 


00090 

ISN 

0055 



WRITE ( IYI.908 ) WTS2 , XSHR2 , YSHR2 , ARSH2 , XISH2 , 

XISH4 , 

00091 





1 AKSH2 , SHPOI2 , ANGS1 


00092 

ISN 

0056 


30 

CONTINUE 


00093 



c 




00094 



c 


WRITE DISC CONTROL DATA 


00095 



c 




00096 

ISN 

0057 



BLADE = BLADES 


00097 

ISN 

0053 



IF (ICALC .EQ. 1) GO TO 35 


00093 

ISN 

0060 



NSR = BRS + .05 


00099 

ISN 

0061 



BLADE = BLAOES * BMX(NBR) / BCC(NER) 


00100 

ISN 

0062 


35 

WRITE (IYI.909) NAY , NAX , ISTR , NBB , DEND , DENA , 

ED , 

00101 





1 DIAND , BLADE , POID 


00102 



c 




00103 



c 


WRITE DISC RADII AND THICKNESSES IF NAY .NE. 0 


00104 



c 




00105 

ISN 

0063 



IF (MAY .EQ. 0) GO TO 40 


00106 

ISN 

0065 



WRITE (IYI.910) (RAD( I ) ,THE( I ) , 1 = 1, MAY) 


00107 

ISN 

0066 


40 

CONTINUE 


00103 



c 




00109 



c 


WRITE BORE STRESS , STRESS AT EACH STATION , OR NO STRESS 

00110 



c 




00111 

ISN 

0057 



IF (ISTR) 50,70,60 


00112 

ISN 

0063 


50 

WRITE ( IYI.911 ) SIGBOR 


00113 


PAGE 2 



♦VERSION 1.3.0 (01 NAY 80) NTW137 SYSTEN/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.53.04 PAGE 


ISU 

0069 



GO TO 70 




00114 

ISN 

0070 


60 

J = MAX + 1 




00115 

ISM 

0071 



WRITE ( IYI , 911 ) (RADST(I) , TAUST(I) , 

I = J 

, MAY) 

00116 

ISN 

0072 


70 

CONTINUE 




00117 



C 






00118 



C 


WRITE DOVETAIL INPUT OR SKIP TO RING INPUT 



00119 



C 






00120 

ISN 

0073 



IF (IOP1 .EQ. 0) GO TO 80 




00121 

ISN 

0075 



WRITE (IYI, 910) ELP , UP , WBP , DBP , 

WNP , 

DNP , 

EL , M 

00122 

ISN 

0076 



WRITE (IYI, 910) NS , DS , WZ , DT , RZ 

, THZ 

, TTH 

, DF 

00123 

ISN 

0077 



WRITE (IYI, 910) NT , EMU , DLX , RRT , 

BNP , 

TNP , 

WR 

00124 

ISN 

0073 



IF (UR .NE. 0.) WRITE (IYI, 910) RDR 




00125 

ISN 

ooeo 


80 

CONTINUE 




00126 



c 






00127 



c 


WRITE DISC RIM INPUT IF IOP2 = 1 OR 2 




00128 



c 






00129 

ISN 

0081 



IF ( IOP2 - I) 110,100,90 




00130 

ISN 

0082 


90 

WRITE (IYI, 910) SA , S3 , SC , SD , SE 

, SF , 

SG , 

SH 

00131 

ISN 

00S3 



WRITE (IYI, 910) SI , SJ , SK , SL , SN 

, REF 

, W1 


00132 

ISN 

0084 



IF (Hi) 95,110,95 




00133 

ISN 

0085 


95 

WRITE (IYI, 910) Til , R2 




00134 

ISN 

0086 



GO TO 110 




00135 

ISN 

0087 


100 

WRITE (IYI, 910) D2 , D3 , D4 , D5 , D6 

, DLR 

, W1 


00136 

ISN 

0083 



WRITE (IYI, 910) T1 , T2 , T3 , T4 , RA 

, BETD 


00137 

ISN 

0089 



IF U-U) 105,110,105 




00138 

ISN 

0090 


105 

WRITE (IYI, 910) Til , R2 




00139 

ISN 

0091 


110 

CONTINUE 




00140 



c 






00141 



c 


WRITE SPRING AND RING PROPERTY INFORMATION 



00142 



c 






00143 

ISN 

0092 



DO 120 I = 1 , III 




00144 

ISN 

0093 



WRITE (IYI, 912) JXN(I) , (VAL(I,L) , L 

= 1 , 

12) 


00145 

ISN 

0094 


120 

CONTINUE 




00146 

ISN 

0095 



IXX = 0 




00147 

ISN 

0096 



WRITE (IYI, 913) IXX 




00148 

ISN 

0097 



WRITE (IYI, 913) IXX 




00149 

ISN 

0093 



IF (IYI .EQ. 5) REWIND IYI 




00150 

ISN 

0100 



RETURN 




00151 

ISN 

0101 


900 

FORMAT ( 72X, 11 ) 




00152 

ISN 

0102 


901 

FORMAT ( 18A4, IX, 311 ) 




00153 

ISN 

0103 


902 

FORMAT (3F8.1,F8.5,4F8.1) 




00154 

ISN 

0104 


903 

FORMAT (7I2,2X,F8.5,E8.3,2F8.5,3F8.1,1X,I1) 



00155 

ISN 

0105 


904 

FORMAT (3F8.5,2F8.4,4F8.5,1X,F4.0) 




00156 

ISN 

0106 


905 

FORMAT (4F8.5, 3E8. 1 ) 




00157 

ISN 

0107 


906 

FORMAT ( 9F8.5 ) 




00153 

ISN 

0108 


907 

FORMAT (2F8.4»2F8.0»F8.4) 




00159 

ISN 

0109 


908 

FORMAT ( 3F8.5,F8.6,4F8.7,F8.4, 1X.I1 ) 




00160 

ISN 

0110 


909 

FORMAT (4I2,8X,2F8.5,E8.3,3F8.4) 




00161 

ISN 

0111 


910 

FORMAT (8F3.5) 




00162 

ISN 

0112 


911 

FORMAT (6F8.1) 




00163 

ISN 

0113 


912 

FORMAT (I2,F3.0,E8.3,5(F3.0,F8.5) ) 




00164 

ISN 

0114 


913 

FORMAT (7X.I1) 




00165 

ISN 

0115 



END 




00166 


^OPTIONS IN EFFECT*NAME(MAIN) OPTIMIZE! 3 ), LINECOUNT( 60 ) SIZE(MAX) AUTCDBLfNONE ) 

♦OPTIONS IN EFFECT*SCURCE EBCDIC NOLIST NODECK C3JECT NOMAP NOFORNAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
♦STATISTICS* SOURCE STATEMENTS = 114, PROGRAM SIZE = 3002, SUBPROGRAM NAME =UTU137 

♦STATISTICS* NO DIAGNOSTICS GENERATED 
****** END OF COMPILATION ****** 


2984K BYTES OF CORE NOT USED 



♦VERSION 1.3.0 (01 HAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82. 141/10.53.08 PAGE 1 

REQUESTED OPTIONS : SOURCE , NOMAP , NOXREF , NO LIST , NOD ECK , OPT( 3 ) , AUTODBLt NONE ) , NOALC 
OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZE(3) LINECOUNT( 60 ) SIZE(MAX) AUTODBLt NONE ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOAHS F TERM IBM FLAG(I) 


PO 

o 

^1 


ISN 0002 


ISN 0003 

ISN 0004 
ISN 0005 
ISN 0006 
ISN 0007 

ISN 0008 
ISN 0009 

ISN 0010 

ISN 0011 


c 

DATA 

SET 

U498S0BJTV 

AT 

LEVEL 

007 

AS 

OF 

03/16/82 


c 

DATA 

SET 

U498SOBJTV 

AT 

LEVEL 

006 

AS 

OF 

03/03/82 

00001 

c 

DATA 

SET 

U49SS0BJTV 

AT 

LEVEL 

005 

AS 

OF 

02/03/82 

00002 

c 

DATA 

SET 

U496S0BJTV 

AT 

LEVEL 

004 

AS 

OF 

12/02/81 

00003 

c 

DATA 

SET 

U498S0BJTV 

AT 

LEVEL 

003 

AS 

OF 

11/23/31 

00004 

c 

DATA 

SET 

U49850BJTV AT 

LEVEL 

002 

AS 

OF 

11/20/81 

00005 

c 

DATA 

SET 

U498S0BJTV 

AT 

LEVEL 

001 

AS 

OF 

11/19/81 

00006 


C 

C 

C 

C 


C 

C 

C 

C 


SUBROUTINE OBJTV 

CALCULATE THE OBJECTIVE FUNCTION FOR A HOLLOU FOIL WITH 
BORSIC TITANIUM INLAY OR A SUPERHYBRID FOIL 


, DLAR(5) , THKVALt 21 ) , RF(5,4) 
DTE , DROOT , DTIP , TTI , TLT 


COMMON /GLOBCM/ OBJF , FN(5) 

1 , BRCC , FODLSBt 21 ) , DLE , 

2 , OBJFUN 

COMMON /PLY1/ PLY(21,25,7) , 

COMMON /WIEGHT/ WL(7) 

COMMON /ANAL33/ DLED , DTED 
COMMON /ANA LI 7/ XPS( 3,53,21) 

1 , BCC( 21 ) 

COMMON /UIOS/ 151 , 16 I 

COMMON /ANAL04/ NSTA , MST1 , MST2 , NOACR , ILT , LONG 
1 DEN3 , EB , POIB , BR , SERIES , BRS , BTS , IOPP 
COMMON /AHAL05/ R(21) , B0BR( 21 ) ,TOB( 21 ) ,THSTH( 21 ) , ALPHAt 21 ) , 

1 SCB( 21 ) , RLE( 21 ) , RTE(21) , ADUTt 21 ) , 0(21) 

DOUBLE PRECISION PLY , THETA , RHO , WL , DLED , DTED , DROOTD 
1 , DTIPD , TTID , TLTD 


THETAt 7) , RHO( 7) 

, DROOTD , DTIPD , TTID , TLTD , NCD 
, TMX( 21 ) , TCC( 21 ) , BMXI21) 


ISTE 


NCD = 1 
NCD = 2 


(HOLLOU FOIL) 

( SUPERHYERID FOIL) 


00007 

00008 

00009 

00010 
00011 
00012 

00013 

00014 

00015 

00016 

00017 

00018 

00019 

00020 
00021 
00022 

00023 

00024 

00025 

00026 

00027 

00028 

00029 

00030 


ISN 

0012 


RC = 

BRCC 


00031 

ISN 

0013 


IF (BRCC .EG. 0.0) RC = BMX( 1 ) 


00032 

ISN 

0015 


RT = 

THKVALt 1 ) 


00033 

ISN 

0016 


IF (NCD .EQ. 2) GO TO 10 


00034 

ISN 

0018 


TIVOL 

= (ML( 1 ) + WL( 7) ) / RHO(l) 


00035 

ISN 

0019 


BTVOL 

= (MUZ) + WL( 6 ) ) / RHO( 2 ) 


00036 



C 




00037 



c 

RC 

= ROOT CHORD 


00033 



c 

RT 

= ROOT THICKNESS 


00039 



c 

TIVOL 

= VOLUME OF TITANIUM 


00040 



c 

BTVOL 

= VOLUME OF BORSIC TITANIUM 


00041 



c 




00042 

ISN 

0020 


EMC = 

2000. * (.00958 * TIVOL + 1.183 * 

(BTVOL/116 .6 )**1 . 08 ) 

00043 

ISN 

0021 


ELC = 

2000. *(.273 * (RC / 9.25)**. 35 + 

.095 * ( RT/.925)**.86 ) 

00044 

ISN 

0022 


EDC = 

246.42 * (EMC + ELC) / RC +3700. 

» RC 

00045 

ISN 

0023 


WRITE 

(161,900) RC , RT , TIVOL , BTVOL 

, EMC , ELC , EDC 

00046 

ISN 

0024 


900 FORMAT 

( 7( 3X.E12.5 )/ ) 


00047 



c 




00048 



c 

EMC 

= MATERIAL COST 


00049 



c 

ELC 

= LABOR COST 


00050 



c 

EDC 

= DELTA COST RELATIVE TO E3 


00051 



c 




00052 

ISN 

0025 


TR = 

R(N5TA) 


00053 

ISN 

0026 


NSRS 

= BRS + .05 


00054 


r 



r\3 

o 

CD 


♦VERSION 1.3.0 (01 MAY 80) 


OBJTV 


SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 


DATE 82.141/10.53.08 


ISN 

0027 


RR = R(NSRS) 

00055 

ISN 

0028 


ARATIO = 

(TR**2 - (DROOT - 2. )**2) / (TR**2 - RR**2) 

00056 

ISN 

0029 


IF ((DROOT - 2.) .LT. RR) ARATIO = 1.0 

00057 

ISN 

0031 


EDLE = 

DLE 

00058 

ISN 

0032 


IF ( (DLE - .001) .LT. 0. ) EDLE = 20.0 

00059 

ISN 

0034 


EDMMC = 

(EMC + ELC) * (4.0 + 6.8 * ARATIO/EDLE) * 220.0 

00060 




1 / 250000.0 / RC 

00061 



C 



00062 



c 

TR = 

TIP RADIUS 

00063 



c 

RR = 

ROOT RADIUS 

00064 



c 

EDMMC = 

DELTA MAINTENCE AND MATERIAL COST 

00065 



c 



00066 

ISN 

0035 


WRITE (161,910) NSTA , NBRS.TR, RR , DROOT , OLE , ARATIO , EDMMC 

00067 

ISN 

0036 


910 FORMAT ( 215 ,6( 3X.E12.5 )/) 

00068 

ISN 

0037 


FW =( WL( 1 ) + WL( 7) ♦ ML( 2 ) + WL(6) ) * 386.4 

00069 

ISN 

0038 


DNT = 99 

.5 * FW - 1.233 * FW**2 

00070 

ISN 

0039 


OBJFUN = 

.54 * EDC/100000. + .80 * EDMMC/10. + .52 * DWT/1000. 

00071 



c 



00072 



c 

FW 

= FOIL WEIGHT 

00073 



c 

DWT 

= DELTA WEIGHT RELATIVE TO E3 

00074 



c 

OBJFUN 

= OBJECTIVE FUNCTION 

0C075 



c 



00076 

ISN 

0040 


WRITE (161,900) WL( 1 ) ,WL(2) ,NL(6) ,WL(7) ,FH ,DWT ,03JFUN 

00077 

ISN 

0041 


GO TO 50 


00078 

ISN 

0042 


10 CONTINUE 


00079 



c 



00080 



c 

TIVOL = 

VOLUME OF TITANIUM 

00081 



c 

BAVOL = 

VOLUME OF BORON ALUMINUM 

00082 



c 

GEVOL = 

VOLUME OF GRAPHITE EPOXY 

00083 



c 



00084 

ISN 

0043 


TIVOL = 

(ML( 1 ) ♦ WL(4) + WL( 7 ) ) / RHO(l) 

00085 

ISN 

0044 


BAVOL = 

(WL( 2 ) + WL( 6 ) ) / RHO( 2 ) 

00036 

ISN 

0045 


GEVOL = 

( WL( 3) + WL( 5 ) ) / P.H0( 3) 

00087 



c 



00088 



c 

EMC = 

MATERIAL COST 

00039 



c 

ELC = 

LABOR COST 

00090 


ISN 0046 


ISN 0047 

ISN 0048 
ISN 0049 


ISN 0050 
ISN 0051 
ISN 0052 
ISN 0053 
ISN 0054 
ISN 0055 
ISN 0056 
ISN 0057 


C 

c 

c 


EDC 

EDMMC 


DELTA COST RELATIVE TO E3 
DELTA MAINTENCE AND MATERIAL COST 


EMC = 2000.0 


( .483 * (GEVOL / 116.6)**!. 05 
.637 * ( ( BAVOL + TIVOL ) / U6.6 )**1.08 
.1445 * ( RC / 9.25 )**1.774 ) 

( .063 * (RC / 9.251**1.15 
.121 * (RT / .925)**. 82) 

(EMC + ELC) / RC ♦ 3700.0 * RC 
EDMMC = 222.0 * (EMC + ELC) / (12500.0 * RC) 


ELC = 2000.0 


EDC = 246.42 


C 

C 

C 

c 

c 


FW 

DNT 


= FOIL WEIGHT 

= DELTA WEIGHT RELATIVE TO E3 


OBJ FUN = OBJECTIVE FUNCTION 

FW = (WL( 1 ) *WL( 2 ) +WL( 3 ) +WL(4) +WL(5) + WL(6) +ML(7))*386.4 
DWT = 99.5 * FW - 1.233 * FW**2 

03JFUN = .54 * EDC/100000 . + .80 * EDNMC/10. + .52 * DWT/1000. 
WRITE (161,900) RC , RT , TIVOL , BAVOL , GEVOL 
WRITE (161,900) (WL( I ) , 1=1,7) 

WRITE (161,900) (RHO(I) ,1=1,7) 

WRITE (161,900) EMC , ELC , EDC , EDMMC , FW , DWT , OBJFUN 
50 CONTINUE 


00091 

00092 

00093 

00094 

00095 

00096 

00097 

00098 

00099 

00100 
00101 
00102 

00103 

00104 

00105 

00106 

00107 

00108 

00109 

00110 
00111 
00112 
00113 


PAGE 2 



♦VERSION 1.3.0 (01 MAY 80) OBJTV SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.53.03 PAGE 

ISM 0058 RETURN 00114 

ISN 0059 END 00115 

^OPTIONS IN EFFECT*NAME ( MAIN ) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTCDBU NONE ) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NONAP NOFORMAT GOSTMT NDXREF NOALC NOANSF TERM IEM FLAG(I) 
"STATISTICS* SOURCE STATEMENTS = 53, PROGRAM SIZE = 1994, SUBPROGRAM NAME = OBJTV 

^STATISTICS* NO DIAGNOSTICS GENERATED 
****** END OF COMPILATION ****** 


3000K BYTES OF CORE NOT USED 



♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82 . 141/10 .53. 12 PAGE 1 

REQUESTED OPTIONS: SOURCE, NOMAP > NOXREF, NOLIST»NCDECK,OPT( 3 ) » AUT0D3UK0NE ) ,NOALC 
OPTIONS IN EFFECT: NAME(MAIH) OPTIMIZE(3) LINECOUNTI 60 ) SIZE(IIAX) AUTOQBL(NONE) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERN IBI1 FLAGtl) 


ro 

o 


C DATA SET U477CNMN01 AT LEVEL 001 AS OF 02/13/81 

C DATA SET 9188CNNN01 AT LEVEL 001 AS OF 07/10/80 00001 

ISN 0002 SUBROUTINE CNMN01 ( JGOTO,X,DF,G,ISC,IC,A,G1 ,VLB,VUB,SCAL,C,NCAL,DX00002 

1 ,DX1 ,FI ,XI,III,N1 >H2 >N3,N4 ) 00003 

ISN 0003 COMMON /CNMN1/ DELFUN,DABFUN,FDCH,FDCHM,CT,CTNIN,CTL,CTLMIN,ALPHAX00004 

1.AB03J1, THETA, OBJ, NDV,NCON,NSIDE,IFRINT,NFDG,NSCAL, LINOBJ,ITMAX,IT00005 
2RM , ICNDIR , IGOTO , NAC , INFO , INFOG , ITER 00006 

ISN 0004 DIMENSION X(N1), DF(N1), G(N2), ISC(N2), IC(N3), A(N1,N3), G1(N2), 00007 

1 VLB(Nl), VUB(Nl), SCAL(Nl), NCAL(2), C(N4) 00003 

C ROUTINE TO CALCULATE GRADIENT INFORMATION BY FINITE DIFFERENCE. 00009 

C BY G. N. VANDERPLAATS JUNE, 1972. 00010 

C NASA-AHES RESEARCH CENTER, MOFFETT FIELD, CALIF. 00011 

ISN 0005 IF (JGOTO.EQ. 1 ) GO TO 10 00012 

ISN 0007 IF (JGOTO.EQ. 2) GO TO 70 00013 

ISN 0009 INFCG=0 00014 

ISN 0010 INF=INFO 00015 

ISN 0011 NAC=0 00016 

ISN 0012 IF ( LINOBJ.NE.O. AND. ITER. GT. 1 ) GO TO 10 00017 

C 00018 

C GRADIENT OF LINEAR OBJECTIVE 00019 

c 00020 

ISN 0014 IF (NFDG.EQ. 2 ) JGOTO=l 00021 

ISN 0016 IF (NFDG. EQ.2 ) RETURN 00022 

ISN 0018 10 CONTINUE 00023 

ISN 0019 JGOTO=0 00024 

ISN 0020 IF (NFDG. EQ.2. AND. NCON.EQ.O) RETURN 00025 

ISN 0022 IF (NCON.EQ.O) GO TO 40 00026 

c 00027 

C # # * DETERMINE WHICH CONSTRAINTS ARE ACTIVE OR VIOLATED » * * 00028 

C 00029 

ISN 0024 DO 20 I=l,NCON 00030 

ISN 0025 IF (G(I).LT.CT) GO TO 20 00031 

ISN 0027 IF ( ISC( I ).GT.0.AND.G( I ) . LT.CTL) GO TO 20 00032 

ISN 0029 HAC=NAC+1 00033 

ISN 0030 IF (NAC.GE.N3) RETURN 00034 

ISN 0032 IC( NAC)=I 00035 

ISN 0033 20 CONTINUE 00036 

ISN 0034 IF (NFDG. EQ.2. AND. NAC. EQ.O) RETURN 00037 

ISN 0036 IF ((LINOBJ. GT.O. AND. ITER. GT.l). AND. NAC. EQ.O) RETURN 00038 

C — 00039 

C STORE VALUES OF CONSTRAINTS IN G1 00040 

C 00041 

ISN 0038 DO 30 I=l,HCON 00042 

ISN 0039 30 Gl( I )=G( I ) 00043 

ISN 0040 40 CONTINUE 00044 

ISN 0041 JGOTO=0 00045 

ISN 0042 IF (NAC. Eq.O. AND. NFDG. EQ.2) RETURN 00046 

c 00047 

C CALCULATE GRADIENTS 00048 

C 00049 

ISN 0044 INFOG=l 00050 

ISN 0045 INFO=l 00051 

ISN 0046 FI=CBJ 00052 

ISN 0047 111=0 00053 

ISN 0048 50 111=111+1 00054 



♦VERSION 1.3.0 (01 MAY 80) CNMN01 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.191/10.53.12 PAGE 2 


ISN 0099 XI=X(III) 00055 

ISN 0050 DX=FDCH*XI 00056 

ISN 0051 DX=ABS(DX) 00057 

ISN 0052 FDCH1=FDCHM 0C053 

ISN 0053 IF (NSCAL.NE .0 ) FDCH1=FDCHM/SCAL( III ) 00059 

ISN 0055 IF (DX.LT.FDCH1) DX=FDCH1 00060 

ISN 0057 X1=XI+DX 00061 

ISN 0053 IF (HSIDE.EQ.O) GO TO 60 00062 

ISN 0060 IF (Xl.GT.VUB(III)) DX=-DX 00063 

ISN 0062 60 DX1=1./DX 00069 

ISN 0063 X( III )=XI+DX 00065 

ISN 0069 NCAL(1)=NCAL(1)+1 00066 

C 00067 

C FUNCTION EVALUATION 00068 

C - - 00069 

ISN 0065 JGQTO=2 00070 

ISN 0066 RETURN 00071 

ISN 0067 70 CONTINUE 00072 

ISN 0068 X(III)=XI 00073 

ISN 0069 IF (MFDG.EQ.O ) DF( III )=DX1*(0BJ-FI ) 00079 

ISN 0071 IF (NAC.EQ.O) GO TO 90 00075 

c 00076 

C DETERMINE GRADIENT COMPONENTS OF ACTIVE CONSTRAINTS 00077 

C 00078 

ISN 0073 DO 80 J=i,NAC 00079 

ISN 0079 I1=IC(J) 00080 

ISN 0075 80 A(III,J)=DX1#(G(I1)-GI(I1)) 00081 

ISN 0076 90 CONTINUE 00082 

ISN 0077 IF ( III . LT.NDV) GO TO 50 00083 

ISN 0079 INFOG=0 00089 

ISN 0080 INFO=INF 00085 

ISN 0081 JGOTO=0 00086 

ISN 0082 03J=FI 00087 

ISN 0033 IF ( NCQN . EQ . 0 ) RETURN 00068 

C 00089 

C STORE CURRENT CONSTRAINT VALUES BACK IN G-VECTCR 00090 

c 00091 

ISN 0085 DO 100 I=l,NCON 00092 

ISN 0086 100 G( I )-Gl ( I ) 00093 

ISN 0037 RETURN 00099 

ISN 0038 END 00095 

^OPTIONS IN EFFECT*NAME(MAIN) OPTIMIZE(3) LINECOUNT( 60 ) SIZE(MAX) AUTODBU NONE ) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
^STATISTICS* SOURCE STATEMENTS = 87, PROGRAM SIZE = 1730, SUBPROGRAM NAME =CNMN01 


^STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 3009K BYTES OF CORE HOT USED 


PO 




+VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.53.16 PAGE 1 


REQUESTED OPTIONS: SOURCE, NOMAP, NOXREF, NOLIST, NODECK, OPTC 3 ) ,AUTODBL(NONE ) .NOALC 
OPTIONS IN EFFECT: NAME! MAIN ) OPTIMIZED) LINECOUNT(60 ) SIZE(MAX) AUTODBLC NONE ) 

SOURCE EBCOIC NOLIST NODECK 03JECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FUG(I) 

C DATA SET U477CNMN02 AT LEVEL 001 AS OF 02/13/81 

C DATA SET 9188CNMN02 AT LEVEL 001 AS OF 07/10/30 00001 

ISN 0002 SUBROUTINE CNMN02 (HCALC, SLOPE, DFTDF1 ,DF,S,N1 ) 00002 

ISN 0003 COMMON /CNMN1/ DELFUN,DABFUN,FDCH ,FDCHM,CT ,CTMIN,CTL,CTLMIN, ALPHAX00003 

1 .ABOBJl , THETA, 03 J,NDV,NCON,NSIDE , IPRINT ,NFDG»NSCAL, LINOBJ, UMAX, ITOO 004 
2RM, ICNDIR , IGOTO , MAC , INFO , INFOS, ITER 00005 

ISN 0004 DIMENSION DF(N1), S(N1) 00C06 

C ROUTINE TO DETERMINE CONJUGATE DIRECTION VECTOR OR DIRECTION 00007 

C OF STEEPEST DESCENT FOR UNCONSTRAINED FUNCTION MINIMIZATION. 00008 

C BY G. N. VANDERPLAATS AFRIL, 1972. 00009 

C NASA-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 00010 

C NCALC = CALCULATION CONTROL. 00011 

C NCALC =0, S = STEEPEST DESCENT. 00012 

C HCALC =1, S = CONJUGATE DIRECTION. 00013 

C CONJUGATE DIRECTION IS FOUND BY FLETCHER-REEVES ALGORITHM. 00014 

C 00015 

C CALCULATE NORM OF GRADIENT VECTOR 00016 

C 00017 

ISN 0005 DFTDF=0. 00018 

ISN 0006 DO 10 1=1, NOV 00019 

ISN 0007 DFI=DF( I ) 00020 

ISN 0008 10 DFTDF=DFTDF+DFI*DFI 00021 

C 00022 

C #**##*#*** FIND DIRECTION S #jbsj.*xxx*x00023 

c 00024 

ISN 0009 IF ( NCALC. NE.l) GO TO 30 00025 

ISN 0011 IF (DFTDF1.LT. 1.0E-20) GO TO 30 00026 

C 00027 

C FIND FLETCHER-REEVES CONJUGATE DIRECTION 00028 

C 00029 

ISN 0013 BETA=DFTDF/DFTDF1 00030 

ISN 0014 SLOPE=0. 00031 

ISN 0015 DO 20 1=1, NDV 00032 

ISN 0016 DFI=DF( I ) 00033 

ISN 0017 SI=BETA#S( I )-DFI 00034 

ISN 0018 SLOPE=SLOPE+SI*DFI 00035 

ISN 0019 20 S(I)=SI 00036 

ISN 0020 GO TO 50 00037 

ISN 0021 30 CONTINUE 00038 

ISN 0022 NCALC=0 00039 

C 00040 

C CALCULATE DIRECTION OF STEEPEST DISCENT 00041 

C 00042 

ISN 0023 DO 40 1=1, NDV 00043 

ISN 0024 40 S( I )=-DF( I ) 00044 

ISN 0025 SLOPE=-DFTOF 00045 

ISN 0026 50 CONTINUE 00046 

C 00047 

C NORMALIZE S TO MAX ABS VALUE OF UNITY 00048 

C 00049 

ISN 0027 S1=0. 00050 

ISN 0028 DO 60 1=1, NDV 00051 

ISN 0029 S2=A5S( S( I ) ) 00052 

ISN 0030 IF (S2.GT.S1 ) S1=S2 00053' 

ISN 0032 60 CONTINUE 00054 



♦VERSION 1.3.0 
ISH 0033 
ISN 0035 
ISil 0036 
ISN 0037 
ISN 0033 
ISN 0039 
ISN 0040 
ISN 0041 
♦(OPTIONS IN 
♦(OPTIONS IN 
♦(STATISTICS* 


(01 MAY 80) CNMN02 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.53.16 PAGE 

IF (S1.LT.1.0E-20) Sl=l .0E-20 
S1=1./S1 
DFTDF1=DFTDF*S1 
DO 70 1=1, NDV 
70 S(I)=S1*S(I) 

SLOPE=Sl*SLOPE 
RETURN 
END 

EFFECT*NAME(MAIN) OPTIMIZED) LINECOUNT(60 ) SIZE(MAX) AUTODBU NONE ) 

EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NGMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
SOURCE STATEMENTS = 40, PROGRAM SIZE = 654, SUBPROGRAM NAME =CNMN02 


DATE 82.141/10.53.16 

00055 

00056 

00057 

00058 

00059 

00060 
00061 
00062 


♦(STATISTICS* NO DIAGNOSTICS GENERATED 
****** END OF COMPILATION ****** 


3012K BYTES OF CORE NOT USED 




♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.53.20 PAGE 1 

REQUESTED OPTIONS: SOURCE, NOMAP, NOXREF , NOLIST, NODECK, OPT( 3 ) ,AUTGDEL(NONE ) ,NOALC 
OPTIONS IN EFFECT: NA)IE(IIAIN) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTCDBU NONE ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG! I ) 


C DATA SET U477CNMN03 AT LEVEL 002 AS OF 03/13/81 

C DATA SET U477CNMN03 AT LEVEL 001 AS OF 02/13/81 00001 

C DATA SET 9188CNNH03 AT LEVEL 001 AS OF 07/10/80 00002 

ISN 0002 SUBROUTINE CNUN03 (X,S, SLOPE, ALP,FFF , A1 , A2, A3, A4.F1 ,F2,F3, F4,APP,N00003 

1 1 , NCAL , KOUNT , JGOTO ) 00004 

ISN 0003 COMMON /CNMN1/ OE LFUH , DABFUN , FDCH , FDCHM , CT , CTNIN , CTL , CT LMIN , ALPHAXO 0005 

1 , ABOBJ 1 , THETA , 03 J , NDV , NCOM , NSIO E , IPRINT , NFDG .NSCAL , LIN03J , UMAX , ITO 0 0 06 
2RM,ICNDIR,IGOTO,NAC, INFO, INFOG, ITER , 0C007 

ISN 0004 COMMON /UIOS/ 151, 161 00008 

ISN 0005 DIMENSION X(N1), S(N1), NCAL(2) 00009 

C ROUTINE TO SOLVE ONE-DIMENSIONAL SEARCH IN UNCONSTRAINED 00010 

C MINIMIZATION USING 2-POINT QUADRATIC INTERPOLATION, 3-POINT 00011 

C CUBIC INTERPOLATION AND 4-POINT CUBIC INTERPOLATION. 00012 

C BY G. N. VANDERPLAATS APRIL, 1972. 00013 

C NASA-ANES RESEARCH CENTER, MOFFETT FIELD, CALIF. 00014 

C ALP = PROPOSED MOVE PARAMETER. 00015 

C SLOPE = INITIAL FUNCTION SLOPE = S-TRANSPOSE TIMES DF. 00016 

C SLOPE MUST BE NEGATIVE. 00017 

C 03J = INITIAL FUNCTION VALUE. 00018 

ISN 0006 ZRO=0. 00019 

ISN 0007 IF (JGOTO. Eq.O) GO TO 10 00020 

ISN 0009 GO TO (50,80 , 110 , 140 , 180 ,220 ,270 ), JGOTO 00021 

C 00022 

C INITIAL INFORMATION (ALFHA=0) 00023 

C 00024 

ISN 0010 10 IF (SLOPE. LT.O.) GO TO 20 00025 

ISN 0012 ALP=0. 00026 

ISN 0013 RETURN 00027 

ISN 0014 20 CONTINUE 00028 

ISN 0015 IF (IPRINT. GT. 4) WRITE (161,360) 00029 

ISN 0017 FFF=OBJ 00030 

ISN 0018 AP1=0. 00031 

ISN 0019 A1=0. 00032 

ISN 0020 F1=GBJ 00033 

ISN 0021 A2=ALP 00034 

ISN 0022 A3=0. , 00035 

ISN 0023 F3=0. 00036 

ISN 0024 AP=A2 00037 

ISN 0025 KOUNT=0 00038 

C 00039 

C MOVE A DISTANCE AP*S AND UPDATE FUNCTION VALUE 00040 

C 00041 

ISN 0026 30 CONTINUE 00042 

ISN 0027 KOUNT =KOUNT + 1 00043 

ISN 0028 DO 40 1=1, NDV 00044 

ISN 0029 40 X( I )=X( I )+AP«S( I ) 00045 

ISN 0030 IF (IPRINT. GT. 4) WRITE (161,370) AP 00046 

ISN 0032 IF (IPRINT. GT. 4) WRITE (161,380) ( X( I ) ,1=1 ,KDV) 00047 

ISN 0034 NCAL( 1 )=NCAL( 1 )+l 00048 

ISN 0035 JGOTO=l 00049 

ISN 0036 RETURN 00050 

ISN 0037 50 CONTINUE 00051 

ISN 0038 F2=OBJ 00052 

ISN 0039 IF (IPRINT. GT. 4) WRITE (161,390) F2 00053 

ISN 0041 IF (F2.LT.F1) GO TO 120 00054 




+VERSION 1.3.0 (01 MAY 80) CNMN03 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.53.20 

C 00055 

C CHECK FOR ILL-CONDITIONING 00056 

c 00057 

ISM 0043 IF (K0UNT.GT.5) GO TO 60 00058 

ISN 0045 FF=2.*ABS(F1) 00059 

ISH 0046 IF (F2.LT.FF) GO TO 90 00060 

ISM 0048 FF=5.*ABS(F1) 00061 

ISH 0049 IF (F2.LT.FF) GO TO 60 00062 

ISN 0051 A2=.5*A2 00063 

ISN 0052 AP=-A2 00064 

ISN 0053 ALP=A2 00065 

ISN 0054 GO TO 30 00066 

ISN 0055 60 F3=F2 00067 

ISN 0056 A3=A2 00068 

ISN 0057 A2=.5*A2 00069 

C 00070 

C UPDATE DESIGN VECTOR AND FUNCTION VALUE 00071 

C 00072 

ISN 0058 AP=A2-ALP 00073 

ISN 0059 ALP=A2 00074 

ISN 0060 DO 70 1=1, NDV 00075 

ISN 0061 70 X(I)=X(I)+AP*S(I) 00076 

ISN 0062 IF ( IPRINT.GT.4) WRITE (161,370) A2 00077 

ISN 0064 IF (IPRINT.GT.4) WRITE (161,380) (X( I ) ,1=1 ,NDV) 00078 

ISN 0066 NCAL( 1 )=NCAL( 1 ) + l 00079 

ISN 0067 JGOTO=2 00080 

ISN 0068 RETURN 00081 

ISN 0069 80 CONTINUE 00032 

ISN 0070 F2=OBJ 00033 

ISN 0071 IF (IPRINT.GT.4) WRITE (161,390) F2 00084 

C PROCEED TO CUBIC INTERPOLATION. 00035 

ISN 0073 GO TO 160 00086 

ISN 0074 90 CONTINUE 00087 

C 00083 

C xxxxxxx-xxx 2-FOINT QUADRATIC INTERPOLATION xxxxxxxxxx00O89 

C 00090 

ISN 0075 JJ=1 00091 

ISN 0076 11=1 00092 

ISN 0077 CALL CNMN04 ( II, APP.ZRO, A1 ,F1 .SLOPE, A2 ,F2 ,ZRO,ZRO,ZRO,ZRO ) 0C093 

ISN 0078 IF ( APP. LT.ZRO.OR . APP.GT. A2 ) GO TO 120 00094 

ISN 0080 F3=F2 00095 

ISN 0081 A3=A2 00096 

ISN 0082 A2=APP 00097 

ISN 0033 JJ=0 00093 

C 00099 

C UPDATE DESIGN VECTOR AND FUNCTION VALUE 00100 

C 00101 

ISN 0084 AP=A2-ALP 00102 

ISN 0085 ALP=A2 00103 

ISN 0086 DO 100 1=1, NDV 00104 

ISN 0037 100 X( I )=X( I )+AP*S( I ) 00105 

ISN 0033 IF (IPRINT.GT.4) WRITE (161,370) A2 00106 

ISN 0090 IF (IPRINT.GT.4) WRITE (161,380) ( X( I ) ,1=1 ,NDV) 00107 

ISN 0092 NCALt 1 )=NCAL( 1 )+l 00103 

ISN 0093 JG0T0=3 00109 

ISN 0094 RETURN 00110 

ISN 0095 110 CONTINUE 00111 

ISN 0096 F2=03J 00112 

ISN 0097 IF (IPRINT.GT.4) WRITE (161,390) F2 00113 


PAGE 2 


w a 



♦VERSION 1.3. 
ISN 0099 
ISN 0100 


ISN 0101 
ISN 0102 
ISN 0103 
ISN 0109 
ISN 0105 
ISN 0107 
ISN 0109 
ISN 0110 
ISN 0111 
ISN 0112 
ISN 0113 
ISN 0119 
ISN 0116 
ISN 0117 
ISN 0119 


ISN 0120 
ISN 0121 
ISN 0122 


ISN 0129 
ISM 0125 
ISN 0126 
ISN 0127 
ISN 0128 
ISN 0129 
ISN 0131 
ISN 0133 
ISN 0139 
ISN 0135 
ISN 0136 
ISN 0137 


ISN 0139 
ISN 0190 
ISN 0191 
ISN 0192 
ISN 0193 
ISN 0195 
ISN 0197 
ISN 0198 
ISN 0150 
ISN 0151 
ISN 0152 
ISN 0153 
ISN 0159 
ISN 0156 
ISN 0157 


0 (01 MAY 80) CNIIN03 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.191/10.53.20 
GO TO 150 00119 

120 A3=2.*A2 00115 

C 00116 

C UPDATE DESIGN VECTOR AND FUNCTION VALUE 00117 

C 00118 

AP=A3-ALP 00119 

ALP=A3 00120 

DO 130 1=1, NDV 00121 

130 X(I)=X(I)+AP*S(I) I 00122 

IF (IPRINT.GT.9) WRITE (161,370) A3 00123 

IF (IPRINT.GT.9) WRITE (161,380) (X( 1 1 ,1=1 ,NDV) 00129 

NCAL( 1 )=NCAL1 1 ) + l 00125 

JG0TQ=9 00126 

RETURN 00127 

190 CONTINUE 00128 

F3=0BJ 00129 

IF (IPRINT.GT.9) WRITE (161,390) F3 00130 

150 CONTINUE 00131 

IF (F3.LT.F2) GO TO 190 00132 

160 CONTINUE 00133 

C — 00139 

C «###*«#### 3-POINT CUBIC INTERPOLATION «*xs*x*#x* 00135 

C 00136 

11=3 00137 

CALL CHHN09 ( II , APPiZRO, A1 >F1 ,SLOFE > A2,F2> A3,F3,ZRO,ZRO) 00138 

IF (APP.LT.ZRO.OR.APP.GT.A3) GO TO 190 00139 

C 00190 

C UPDATE DESIGN VECTOR AND FUNCTION VALUE. 00191 

c —00192 

AP1=APP 00193 

AP=APP-ALP 00199 

ALP=APP 00195 

DO 170 1=1, NDV 00196 

170 X( I )=X( I )+AP*S( I ) 00197 

IF (IPRINT.GT.9) WRITE (161,370) ALP 00198 

IF (IPRINT.GT.9) WRITE (161,380) (X( I ) , 1=1 ,NOV) 00199 

NCAL(1 )=NCAL(1)+1 00150 

JG0T0=5 00151 

RETURN 00152 

180 CONTINUE 00153 

IF (IPRINT.GT.9) WRITE (161,390) OBJ 00159 

C 00155 

C CHECK CONVERGENCE 00156 

C — 00157 

AA=1 .-APP/A2 00158 

AB2=ABS(F2) 00159 

AB3=ABS(OBJ) 00160 

AB=AB2 00161 

IF ( AB3.GT.AB) AB=AB3 00162 

IF ( AB.LT.l .OE-15) AB=1.0E-15 00163 

AB=( AB2-AB3 )/AB 00169 

IF ( ABS( AB ) . LT. 1 .0E-15. AND. ABS( AA ) .LT. .001 ) GO TO 330 00165 

A9=A3 00166 

F9=F3 00167 

A3=APP 00168 

F3=OBJ 00169 

IF ( A3.GT.A2 ) GO TO 230 ' 00170 

A3=A2 00171 

F3=F2 00172 



■ -~J 


♦VERSION 1.3.0 (01 MAY 80) 


CNMN03 


SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 


ISN 

ISN 

ISN 

ISN 

0153 

0159 

0160 
0161 

190 

A2=APP 
F2=OBJ 
GO TO 230 
CONTINUE 



C 

****#:;*->;«* 4-POINT CUBIC INTERPOLATION *xx**;o;*x* 

ISN 

0162 

200 

CONTINUE 

ISN 

0163 


A4=2.»A3 



C 

UPDATE DESIGN VECTOR AND FUNCTION VALUE. 

ISN 

0164 


AP=A4-ALP 

ISN 

0165 


ALP=A4 

ISN 

0166 


DO 210 1=1, NOV 

ISN 

0167 

210 

X(I)=X(I)+AP*S(I) 

ISN 

0168 


IF ( IFRINT.GT.4 ) WRITE (161,370) ALP 

ISN 

0170 


IF ( IPRINT.GT.4 ) WRITE (161,380) ( X( I ) , 1=1 ,N0V ) 

ISN 

0172 


NCAL(1)=NCAL(1) + 1 

ISN 

0173 


JGOTO=6 

ISN 

0174 


RETURN 

ISN 

0175 

220 

CONTINUE 

ISN 

0176 


F4=0BJ 

ISN 

0177 


IF (IPRINT.GT.4) WRITE (161,390) F4 

ISN 

0179 


IF (F4.GT.F3) GO TO 230 

ISN 

0181 


A1=A2 

ISN 

0182 


F1=F2 

ISN 

0183 


A2=A3 

ISN 

0184 


F2=F3 

ISN 

0185 


A3=A4 

ISN 

0186 


F3=F4 

ISN 

0187 


GO TO 200 

ISN 

0188 

230 

CONTINUE 

ISN 

0189 


11=4 

ISN 

0190 


CALL CNMM04 ( II, APP, A1 , A1 ,F1 .SLOPE , A2, F2 , A3.F3, A4,F4) 

ISN 

0191 


IF ( APP.GT.A1 ) GO TO 250 

ISN 

0193 


AP=A1-ALP 

ISN 

0194 


ALP=A1 

ISN 

0195 


G3J=F1 

ISN 

0196 


DO 240 1=1, NDV 

ISN 

0197 

240 

X( I )=X( I )+AP«S( I ) 

ISN 

0198 


GO TO 280 

ISN 

0199 

250 

CONTINUE 



C 

UPDATE DESIGN VECTOR AND FUNCTION VALUE 

ISN 

0200 


AP=APP-ALP 

ISN 

0201 


ALP=APP 

ISN 

0202 


DO 260 1=1, NDV 

ISN 

0203 

260 

XI I )=X( I )+AP*St I ) 

ISN 

0204 


IF (IPRINT.GT.4) WRITE (161,370) ALP 

ISN 

0206 


IF (IPRINT.GT.4) WRITE (161,380) ( X( I ) ,1=1 ,NDV) 

ISN 

0203 


MCAL( 1 )=NCAL( 1 ) + l 

ISN 

0209 


JG0T0=7 

ISN 

0210 


RETURN 

ISN 

0211 

270 

CONTINUE 

ISN 

0212 


IF (IPRINT.GT.4) WRITE (161,390) OBJ 

ISN 

0214 

280 

CONTINUE 



c 

r 

CHECK FOR ILL-CONDITIONING 


DATE 82 . 141/10.53.20 

00173 

00174 

00175 

00176 

00177 

00178 

00179 

00180 
00181 
00182 

00183 

00184 

00185 

00186 

00187 

00188 

00189 

00190 

00191 

00192 

00193 

00194 

00195 

00196 

00197 

00198 

00199 

00200 
00201 
00202 

00203 

00204 

00205 

00206 

00207 

00208 

00209 

00210 
00211 
00212 

00213 

00214 

00215 

00216 

00217 

00218 

00219 

00220 
00221 
00222 

00223 

00224 

00225 

00226 

00227 

00228 

00229 

00230 

00231 


PAGE 4 


D 3 



ro 

co 


♦VERSION 1.3.0 

(01 MAY 80) CNMN03 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

DATE 82.141/10 

ISN 

0215 


IF (OBJ.GT.F2.OR.OBJ.GT.F3) GO TO 290 

00232 

ISN 

0217 


IF (OBJ.LE.F1) GO TO 330 

00233 

ISN 

0219 


AP-A1-ALP 

00234 

ISN 

0220 


ALP=A1 

00235 

ISN 

0221 


0BJ=F1 

00236 

ISN 

0222 


GO TO 310 

00237 

ISN 

0223 

290 

CONTINUE 

00238 

ISN 

0224 


IF (F2.LT.F3) GO TO 300 

00239 

ISN 

0226 


0BJ=F3 

00240 . 

ISN 

0227 


AP=A3-ALP 

00241 

ISN 

0228 


ALP=A3 

00242 

ISN 

0229 


GO TO 310 

00243 

ISN 

0230 

300 

GBJ=F2 

00244 

ISN 

0231 


AP=A2-ALP 

00245 

ISN 

0232 


ALP=A2 

00246 

ISN 

0233 

310 

CONTINUE 

00247 


.20 


PAGE 


UPDATE DESIGN VECTOR 


CHECK FOR MULTIPLE MINIMA 


FORMATS 


-00248 

00249 

-00250 


ISN 

0234 


DO 320 1=1, NDV 

00251 

ISN 

0235 

320 

X( I )=X( I )+AP*S( I ) 

00252 

ISN 

0236 

330 

CONTINUE 

00253 


-00254 

00255 

-00256 


ISN 

0237 

C 

IF (OBJ.LE.FFF) GO TO 350 
INITIAL FUNCTION IS MINIMUM. 

00257 

00258 

ISN 

0239 


DO 340 1=1, NDV 

00259 

ISN 

0240 

340 

X(I)=X(I)-ALP*S(I) 

00260 

ISN 

0241 


ALP=0 . 

00261 

ISN 

0242 


C3J=FFF 

00262 

ISN 

0243 

350 

CONTINUE 

00263 

ISN 

0244 


JGOTO=0 

00264 

ISN 

0245 


RETURN 

00265 


-00266 

00267 

-00268 

00269 

00270 


ISN 

0246 

360 

FORMAT (/////5X.60H* * * UNCONSTRAINED ONE-DIMENSIONAL SEARCH 

INF000271 




1RMATION * * *) 

00272 

ISN 

0247 

370 

FORMAT (/5X.7HALPHA =,E14.5/5X,8HX-VECT0R ) 

00273 

ISN 

0248 

380 

FORMAT (5X.6E13.5) 

00274 

ISN 

0249 

390 

FORMAT (/5X.5HGBJ =,E14.5) 

00275 

ISN 

0250 


END 

00276 


^OPTIONS IN EFFECT*NAME( MAIN ) OPTIMIZED) LINECOUNK 60 ) SIZE(MAX) AUTODBLt NONE ) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
^STATISTICS* SOURCE STATEMENTS = 249, PROGRAM SIZE = 3520, SUBPROGRAM NAME =CNNN03 

^STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 2972K BYTES OF CORE NOT USED 




+VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.53.25 PAGE 1 

REQUESTED OPTIONS: SOURCE .NOMAP, NOXREF, NOLIST, NODECK, OPT( 3 ) ,AUTODBL( NONE ) .NOALC 
OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTODBLt NOME ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOI1AP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 


C DATA SET U477CNMN04 AT LEVEL 001 AS OF 02/13/81 

C DATA SET 9188CNMN04 AT LEVEL 001 AS OF 07/10/80 00001 

ISN 0002 SUBROUTINE CNMN04 ( II ,XBAR , EPS, XI , Y1 .SLOPE ,X2 , Y2,X3,Y3,X4, Y4) 00002 

C ROUTINE TO FIND FIRST X3AR.GE.EPS CORRESPONDING TO A MINIMUM 00003 

C OF A ONE-DIMENSIONAL REAL FUNCTION BY POLYNOMIEL INTERPOLATION. 00004 

C BY G. N. VANDERPLAATS APRIL, 1972. 00005 

C NASA-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 00006 

C 00007 

C II = CALCULATION CONTROL. 00008 

C 1: 2-POINT QUADRATIC INTERPOLATION, GIVEN XI, Yl, SLOPE, 00009 

C X2 AND Y2. 00010 

C 2: 3-POINT QUADRATIC INTERPOLATION, GIVEN XI, Yl, X2, Y2, 00011 

C X3 AND Y3. 00012 

C 3: 3-POINT CUBIC INTERPOLATION, GIVEN XI, Yl, SLOPE, X2, Y2, 00013 

C X3 AND Y3. 00014 

C 4: 4-POINT CUBIC INTERPOLATION, GIVEN XI, Yl, X2, Y2, X3, 00015 

C Y3, X4 AND Y4. 00016 

C EPS MAY BE NEGATIVE. 00017 

C IF REQUIRED MINIMUM ON Y DOES NOT EXITS, 03 THE FUNCTION IS 00018 

C ILL-CONDITIONED, XBAR = EPS-1.0 HILL BE RETURNED AS AN ERROR 00019 

C INDICATOR. 00020 

C IF OESIRED INTERPOLATION IS ILL-CONDITIONED, A LONER ORDER 00021 

C INTERPOLATION, CONSISTANT HITH INFUT DATA, HILL BE ATTEMPTED, 00022 

C AND II HILL BE CHANGED ACCORDINGLY. 00023 

ISN 0003 XBAR1=EPS-1. 00024 

ISN 0004 XBAR=XBAR1 00025 

ISN 0005 X21=X2-X1 00026 

ISN 0006 IF ( ABS( X21 ) . LT. 1 . 0E-20 ) RETURN 00027 

ISN 0008 NSLOP=MOD( 11,2) 00028 

ISN 0009 GO TO ( 10,20 ,40,50 ), II 00029 

ISN 0010 10 CONTINUE 00030 

C 00031 

C 11=1: 2-POINT QUADRATIC INTERPOLATION 00032 

C 00033 

ISN 0011 11=1 00034 

ISN 0012 DX=X1-X2 00035 

ISN 0013 IF ( ABS( DX ) . LT. 1 . 0E-20 ) RETURN 00036 

ISN 0015 AA=( SLOPE+( Y2-Y1 )/DX )/DX 00037 

ISN 0016 IF (AA.LT.1.0E-20) RETURN 00038 

ISN 0018 BB=SL0PE-2.*AA*X1 00039 

ISN 0019 XBAR=-.5*6B/AA 00040 

ISN 0020 IF ( XBAR . LT. EPS ) XBAR=XBAR1 00041 

ISN 0022 RETURN 00042 

ISN 0023 20 CONTINUE 00043 

C 00044 

C 11=2: 3-POINT QUADRATIC INTERPOLATION 00045 

C 00046 

ISN 0024 11=2 00047 

ISN 0025 X21=X2-X1 00048 

ISN 0026 X31=X3-X1 00049 

ISN 0027 X32=X3-X2 00050 

ISN 0028 QQ=X21*X31#X32 00051 

ISM 0029 IF ( ABS(QQ ) . LT. 1 . 0E-20 ) RETURN 00052 

ISN 0031 AA=( Y1*X32-Y2*X31+Y3*X21 )/QQ 00053 

ISN 0032 IF (AA.LT.1.0E-20) GO TO 30 00054 



+VERSIGN 1.3. 
ISN 0034 
ISM 0035 
ISN 0036 
ISN 0038 
ISN 0039 
ISN 0040 
ISN 0042 
ISN 0043 


ISN 0044 
ISN 0045 
ISN 0046 
ISN 0047 
ISN 0048 
ISN 0049 
ISN 0051 
ISN 0052 
ISN 0053 
ISN 0055 
ISN 0055 
ISN 0058 
ISN 0059 
ISN 0060 
ISN 0061 
ISN 0063 
ISN 0064 
ISN 0065 
ISN 0067 
ISN 0068 


ISN 0069 
ISN 0070 
ISN 0071 
ISN 0072 
ISN 0073 
ISN 0074 
ISN 0075 
ISN 0076 
ISN 0077 
ISN 0078 
ISN 0079 
ISN 0080 
ISN 0081 
ISN 0033 
ISN 0084 
ISN 0085 
ISN 0086 
ISN 0037 
ISN 00S9 
ISN 0090 
ISN 0091 
ISN 0092 
ISN 0093 
ISN 0094 
ISN 0095 


0 (01 MAY 80) CNMN04 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.53.25 
BB=( Y2-Y1 )/X21-AA#(Xl +X2 ) 00055 

X8AR=-.5*EB/AA 00056 

IF (XDAR.LT.EPS) XBAR=XBAR1 00057 

RETURN 00058 

30 CONTINUE 00059 

IF (NSLOP.EQ.O ) RETURN 00060 

GO TO 10 00061 

40 CONTINUE 00062 

C 00063 

C 11=3: 3-POINT CUBIC INTERPOLATION 00064 

c 00065 

11=3 . 00066 

X21=X2-X1 00067 

X31=X3-X1 00068 

X32=X3-X2 00069 

0Q=X21*X31*X32 00070 

IF (ABS(qq).LT.1.0E-20) RETURN 00071 

X11=X1#X1 00072 

DHOIt=X2*X2*X31-Xll*X32-X3*X3*X21 00073 

IF ( ABS(DNOM) . LT. 1 .OE-20 ) GO TO 20 00074 

AA=( (X31*X31#( Y2-Y1 )-X2l*X21*< Y3-Y1 ) )/(X31*X21 )-SLCPE*X32 )/DNOM 00075 
IF (ABS(AA).LT.l. 0E-20) GO TO 20 00076 

BB=((Y2-Y1)/X21-SL0PE-AA*(X2*X2+X1*X2-2.*X11 ))/X21 00077 

CC=SL0PE-3.#AA*X11-2.*8B*X1 00078 

BAC=EB*BB-3.«AA#CC 00079 . 

IF (BAC.LT.O.) GO TO 20 00030 

BAC=SQRT( BAC ) 00081 

XBAR=(BAC-BB)/(3.#AA) 00082 

IF (XBAR.LT.EPS) XBAR=EPS 00083 

RETURN 00034 

50 CONTINUE 00085 

C 00086 

C 11=4: 4-POINT CUBIC INTERPOLATION 00087 

c 00088 

X21=X2-X1 00089 

X31=X3-X1 00090 

X41=X4-X1 00091 

X32=X3-X2 00092 

X42=X4-X2 00093 

X11=X1*X1 00094 

X22=X2*X2 00095 

X33=X3*X3 00096 

X44=X4*X4 00097 

X111=X1*X11 00093 

X222=X2*X22 00099 

q2=X31 *X2 1«X32 00100 

IF ( ABS( q2 ) . LT. 1 .0E-30 ) RETURN 00101 

qi=Xl 1 1*X32-X222#X31+X3#X33#X21 00102 

q4=Xlll*X42-X222*X41+X4*X44»X21 00103 

q5=X41*X21*X42 00104 

DNQN=q2*q4-Qli<Q5 00105 

IF ( ABS(DN0M ) . LT. 1 . 0E-30 ) GO TO 60 00106 

Q3=Y3*X21-Y2*X31+Y1*X32 00107 

Q6=Y4*X21-Y2*X41+Y1*X42 00103 

AA=( q2#qS-q3*q5 )/DNOM 00109 

B3=(q3-qi#AA)/G2 00110 

CC=( Y2-Y1-AA#( X222-X11 1 ) )/X21-EB#(Xl+X2 ) 00111 

BAC=BB>fBB-3.*AA*CC 00112 

IF (ABS(AA).LT.l. 0E-20. OR. BAC.LT.O. ) GO TO 60 00113 



+ VERSION 1.3.0 

(01 

MAY 80) CNMN04 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

DATE 82.141/10.53.25 

PAGE 

ISN 

0097 


BAC=SQRT(BAC) 

00114 


ISN 

0098 


XBAR=( BAC-B3 )/( 3.*AA ) 

00115 


ISN 

0099 


IF (XBAR.LT.EPS) XBAR =XBAR 1 

00116 


ISN 

0101 


RETURN 

00117 


ISN 

0102 

60 

CONTINUE 

00118 


ISN 

0103 


IF (NSLOP.EQ.l) GO TO 40 

00119 


ISN 

0105 


GO TO 20 

00120 


ISN 

0106 


END 

00121 



^OPTIONS IN EFFECT*NAME( MAIN ) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTODBL( NONE ) 

^OPTIONS IN EFFECTXSOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
^STATISTICS'* SCURCE STATEMENTS = 105, PROGRAM SIZE = 1754, SUBPROGRAM NAME =CNNN04 

*STATISTICS* NO DIAGNOSTICS GENERATED 
****** END OF COMPILATION ****** 


3004K BYTES OF CORE NOT USED 



ro 

ro 

ro 


♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.53.29 PAGE 1 

REQUESTED OPTIONS: SOURCE , NOMAP, NOXREF .NOLIST, NODECK, OPT( 3 ) ,AUTODBL(NONE ) ,NOALC 
OPTIONS IN EFFECT: NAME(MAIN) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTODESK NONE ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG! I) 


ISN 0002 
ISN 0003 


ISN 0004 
ISN 0005 


ISN 0006 
ISN 0007 
ISN 0008 
ISN 0009 
ISN 0010 
ISN 0011 
ISN 0012 
ISN 0013 
ISN 0014 
ISN 0015 
ISN 0016 
ISN 0017 
ISN 0018 

ISN 0019 
ISN 0020 
ISN 0021 
ISN 0023 
ISN 0024 
ISN 0025 
ISN 0026 
ISN 0028 
ISN 0029 
ISN 0030 
ISN 0032 
ISN 0033 
ISN 0034 
ISN 0036 
ISN 0038 
ISN 0040 


ISN 0041 


C DATA SET U477CNMN05 AT LEVEL 002 AS OF 03/13/81 

C DATA SET U477CNMN05 AT LEVEL 001 AS OF 02/13/81 00001 

C DATA SET 918SCNHN05 AT LEVEL 001 AS OF 07/10/80 00002 

SUBROUTINE CHMN05 (G,DF , A, S,B,C, SLOPE >PHI , ISC, IC, MSI ,NVC,N1 ,N2 ,N3, 00003 
1N4.N5) 00004 

COMMON /CNMN1/ DELFUN,DABFUN,FDCH,FDCHM,CT,CTMIN,CTL,CTLMIN, ALPHAX00005 
1 , ABOB J 1 , THETA , OB J , NDV , NCCN , NSIDE , IPRINT ,NFDG , NSCAL , LINOB J , ITMAX , ITO 00 06 
2RM , ICNDIR , IGOTO , MAC , INFO , INFOS , ITER 00007 

COMMON /UIQ5/ 151, 161 00008 

DIMENSION DF(N1 ) i GIN2), ISCIN2), IC(N3), A(N1,N3), S(N1), C1N4). 00009 

1I13KN5), B(N3,N3> 00010 

C ROUTINE TO SOLVE DIRECTION FINDING PROBLEM IN MODIFIED METHOD OF 00011 

C FEASIBLE DIRECTIONS. 00012 

C BY G. N. VANDERPLAATS MAY, 1972. 00013 

C NASA-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 00014 

C NORM OF S VECTOR USED HERE IS S-TRANSPOSE TIMES S.LE.l. 00015 

C IF NVC = 0 FIND DIRECTION BY ZOUTENDIJK'S METHOD. OTHERWISE 00016 

C FIND MODIFIED DIRECTION. 00017 

C 00018 

C *** NORMALIZE GRADIENTS, CALCULATE THETA'S AND DETERMINE NVC ***00019 

c 00020 

NDVUNDV+1 00021 

NDV2=NDV+2 00022 

NAC1-NAC+1 00023 

NVC=0 00024 

THMAX=0. 00025 

CTA=ABS(CT) 00026 

CT1=1./CTA 00027 

CTAM=ABS( CTMIN) 00023 

CTB=ABS(CTL) 00029 

CT2=1./CTB 00030 

CTBM=ABS( CTLMIN ) 00031 

Al-1. 00032 

DO 40 1=1, NAC 00033 

C CALCULATE THETA 00034 

NCI=IC( I ) 00035 

NCJ=1 00036 

IF (NCI.LE.NCON) NCJ=ISC(NCI) 00037 “ 

Cl =G( NCI ) 00038 

CTD=CT1 00039 

CTC=CTAM 00040 

IF (NCJ.LE.O) GO TO 10 00041 

CTC=CTBM 00042 

CTD=CT2 00043 

10 IF (Cl.GT.CTC) NVC=NVC+1 00044 

THT=0. 00045 

GG=1.+CTD*C1 00046 

IF (NCJ.EQ.O. OR. Cl.GT.CTC) THT =THETA*GG*GG 00047 

IF (THT.GT.50. ) THT=50. 00048 

IF (THT.GT.THMAX) THMAX=THT 00049 

A(NDV1,I)=THT 00050 

C 00051 

C NORMALIZE GRADIENTS OF CONSTRAINTS 00052 

C 00053 

A( NDV2 ,1 )=1 . 00054 


u 



♦VERSION 1.3.0 (01 MAY 80) CNMN05 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.53.29 
ISH 0042 IF (NCI.GT.NCON) 60 TO 40 00055 

ISN 0044 A1=0. 00056 

ISN 0045 DO 20 J=1,NDV 00057 

ISN 0046 A1=A1+A( J,I)#*2 00058 

ISN 0047 20 CONTINUE 00059 

ISN 0048 IF (A1.LT.1.0E-20) Al=1.0E-20 00060 

ISN 0050 A1=SQRT(A1) 00061 

ISN 0051 A(NDV2,I)=A1 00062 

ISN 0052 A1=1./A1 00063 

ISN 0053 DO 30 J=1,NDV 00064 

ISN 0054 30 A(J,I)=A1*A(J,I) 00065 

ISN 0055 40 CONTINUE 00066 

C 00067 

C NORMALIZE GRADIENT OF OBJECTIVE FUNCTION AND STORE IN NAC+1 00063 

C COLUMN OF A 00069 

C 00070 

ISN 0056 A1=0. 00071 

ISN 0057 DO 50 1=1, NDV 00072 

ISN 0058 A1=A1+DF(I)**2 00073 

ISN 0059 50 CONTINUE 00074 

ISN 0060 IF (A1.LT.1.0E-20) Al=1.0E-20 00075 

ISN 0062 A1=SQRT(A1) 00076 

ISN 0063 A1=1./A1 00077 

ISN 0064 DO 60 1=1, NDV 00078 

ISN 0065 60 A( I,NAC1 )=A1*DF( I ) 00079 

C BUILD C VECTOR. 00030 

ISN 0066 IF (NVC.GT.O ) GO TO 80 00031 

C 00082 

C BUILD C FOR CLASSICAL METHOD OOOS3 

C 00084 

ISN 0068 NDB=NAC1 00085 

ISN 0069 A( NDV1 >NDB)=1 . 00086 

ISN 0070 DO 70 1=1, NDB 00087 

ISN 0071 70 C(I)=-A(NDV1,I) 00083 

ISN 0072 GO TO 110 00089 

ISN 0073 80 CONTINUE 00090 

C 00091 

C BUILD C FOR MODIFIED METHOD 00092 

C 00093 

ISN 0074 NDB=NAC 00094 

ISN 0075 A( NDV1 >NAC1 )=-PHI 00095 

C 00096 

C SCALE THETA'S SO THAT MAXIMUM THETA IS UNITY 00097 

C 00093 

ISN 0076 IF (THMAX.GT. 0.00001) THMAX=1 ./THMAX 00099 

ISN 0078 DO 90 1=1, NDB 00100 

ISN 0079 A(NDV1,I)=A(NDV1,I)*THMAX 00101 

ISH 0080 90 CONTINUE 00102 

ISN 0081 DO 100 1=1, NDB 00103 

ISN 0082 C(I)=0. 00104 

ISN 0083 DO 100 J=1,NDV1 00105 

ISN 0084 100 C(I)=C(I)+A(J,I)#A(J >NAC1 ) 00106 

ISN 0035 110 CONTINUE 00107 

C 00103 

C BUILD B MATRIX 00109 

C 00110 

ISN 0086 DO 120 1=1, NDB 00111 

ISN 0087 DO 120 J=1,NDB 00112 

ISN 0083 B(I,J)=0. 00113 


PAGE 2 




♦VERSION 1.3.0 (01 MAY 80) CNMN05 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.1 A 1/1 0.53. 29 PAGE 3 


ISN 0089 DO 120 K=1,NDV1 00114 

ISN 0090 120 B(I,J)=B(I,J)-A(K,I)#A(K,J) 00115 

C 00116 

C SOLVE SPECIAL L. P. PROBLEM 00117 

C 00118 

ISN 0091 CALL CNMN08 (NDB,N£R,C,MS1 ,B,N3,N4,N5) 00119 

ISN 0092 IF ( IPRINT.GT. 1 .ANO.NER .GT. 0 ) NRITE (161,180) 00120 

C CALCULATE RESULTING DIRECTION VECTOR, S. 00121 

ISN 0094 SLOPE-O. 00122 

C 00123 

C USABLE-FEASIBLE DIRECTION 00124 

C 00125 

ISN 0095 DO 140 1=1, NDV 00126 

ISN 0096 S1=0. 00127 

ISN 0097 IF (NVC.GT.O ) Sl=-A( I.NAC1 ) 00128 

ISN 0099 DO 130 J=1,NQB 00129 

ISN 0100 130 Sl=Sl-A(I,J)*C(J) 00130 

ISN 0101 SLOPE=SLOPE+Sl*DF( I ) 00131 

ISN 0102 140 S(I)=Sl 00132 

ISN 0103 S(NDV1)=1. 00133 

ISN 0104 IF (NVC.GT.O) S( NDV1 )=-A( NDV1 ,NAC1 ) 00134 

ISN 0106 DO 150 J=1 >NDB 00135 

ISN 0107 150 S(NDV1)=S(NDV1)-A(NDV1,J)*C(J) 00136 

C 00137 

C NORMALIZE S TO MAX ABS OF UNITY 00138 

C 00139 

ISN 0108 S1=0. 00140 

ISN 0109 DO 160 1=1, NDV 00141 

ISN 0110 A1=ABS(S( I) ) 00142 

ISN 0111 IF (A1.GT.S1) Sl=Al 00143 

ISN 0113 160 CONTINUE 00144 

ISN 0114 IF (S1.LT.1.0E-10) RETURN 00145 

ISN 0116 S1=1./S1 00146 

ISN 0117 DO 170 1=1, NDV 00147 

ISN 0118 170 S(I)=S1*S(I) 00148 

ISN 0119 SLOPE=S1*SLOPE 00149 

ISN 0120 S(NDV1)=S1*S(NDV1) 00150 

ISN 0121 RETURN 00151 

C 00152 

C FORMATS 00153 

C 00154 

C 00155 

C 00156 

ISN 0122 180 FORMAT (//5X.46H* * DIRECTION FINDING PROCESS DID NOT C0NVERGE/5X, 00157 

129H# * S-VECTOR MAY NOT BE VALID) 00153 

ISN 0123 END 00159 


^OPTIONS IN EFFECT#NAMS ( MAIN ) OPTIMIZED) LINECOUNT(60 ) SIZE(MAX) AUTODBL( NONE ) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NDALC NOANSF TERM IBM FLAG(I) 
^STATISTICS* SOURCE STATEMENTS = 122, PROGRAM SIZE = 2543, SUBPROGRAM NAME =CNMN05 

^STATISTICS# NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 2992K BYTES OF CORE NOT USED 



“1 




♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.53.39 PAGE 1 

REQUESTED OPTIONS: SOURCE , NOMAP, NOXREF .NOLIST, NODECK, OPT( 3 ) ,AUTODBL( NONE ) ,NOALC 
OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZE! 3) LINECOUNT! 60 ) SIZE(MAX) AUTCDBU NONE ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FUG(I) 


C DATA SET U477CNMN06 AT LEVEL 002 AS OF 03/13/81 

C DATA SET U477CNMN06 AT LEVEL 001 AS OF 02/13/81 00001 

C DATA SET 9188CNMN06 AT LEVEL 001 AS OF 07/10/80 00002 

ISN 0002 SUBROUTINE CNMN06 ( X, VLB, VUB,G,SCAL,DF,S,G1 ,G2 ,CTAM,CTBM, SLOPE .ALP000 03 

1 > A2 > A3, A4,F1 , F2 ,F3,CV1 »CV2 >CV3,CV4, ALPCA, ALPFES > ALPLN, ALFMIN, ALPNC00004 
2, ALPSAV, ALPSID , ALPTOT , ISC.Nl ,N2 ,NCAL,NVC,ICOUHT»IGOODl , IGOOD2 ,180000005 
303 , IG00D4 , IBEST , III , NLNC , JGOTO ) 00006 

ISN 0003 COMMON /CNMN1/ DELFUN,DABFUN,FDCH,FDCHM,CT ,CTMIN,CTL,CTLMIN,ALPHAX00007 

l.AEOBJl, THETA, OBJ, NDV,HCON,NSIDE , IPRINT,NFDG,NSCAL, LINOBJ , UMAX, IT00008 
2RM , ICNDIR , IGOTO.NAC, INFO , INFOG, ITER 00009 

ISN 0004 COMMON /UIOS/ 151, 161 00010 

ISN 0005 DIMENSION X(N1), VLB(Nl), VUB(Nl), G(N2), SCAL(Nl), DF(N1), S(N1), 00011 

1 G1(N2), G2(N2 ) , ISC(N2), NCALI2) 00012 

C ROUTINE TO SOLVE ONE-DIMENSIONAL SEARCH PROBLEM FOR CONSTRAINED 00013 

C FUNCTION MINIMIZATION. 00014 

C BY G. N. VANDERPLAATS AUG., 1974. 00015 

C NASA-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 00016 

C OBJ = INITIAL AND FINAL FUNCTION VALUE. 00017 

C ALP = MOVE PARAMETER. 00018 

C SLOPE = INITIAL SLOPE. 00019 

C 00020 

C ALPSID = MOVE TO SIDE CONSTRAINT. 00021 

C ALPFES = MOVE TO FEASIBLE REGION. 00022 

C ALPNC = MOVE TO NEW NON-LINEAR CONSTRAINT. 00023 

C ALPLN = MOVE TO LINEAR CONSTRAINT. 00024 

C ALPCA = MOVE TO RE-ENCOUNTER CURRENTLY ACTIVE CONSTRAINT. 00025 

C ALPMIN = MOVE TO MINIMIZE FUNCTION. 00026 

C ALPTOT = TOTAL MOVE PARAMETER. 00027 

ISN 0006 ZRO=0. 00028 

ISN 0007 IF (JGOTO. EQ.O) GO TO 10 00029 

ISN 0009 GO TO ( 140 ,310,520 ), JGOTO 00030 

ISN 0010 10 IF (IPRINT.GE.5) WRITE (161,730) 00031 

ISN 0012 ALPSAV=ALP 00032 

ISN 0013 ICGUNT=0 00033 

ISN 0014 ALPTOT=0. 00034 

C TOLERANCES. 00035 

ISN 0015 CTAM=ABS( CTMIN ) 00036 

ISN 0016 CTBM- ABS( CTLMIN ) 00037 

C PROPOSED MOVE. 00038 

ISN 0017 20 CONTINUE 00039 

c 00040 

C ***** BEGIN SEARCH OR IMPOSE SIDE CONSTRAINT MODIFICATION ***** 00041 

C 00042 

ISN 0018 A2=ALPSAV % 00043 

ISN 0019 ICOUMT=ICOUNT + 1 00044 

ISN 0020 ALPSID=1 . 0E+20 00045 

C INITIAL ALPHA AND OBJ. 00046 

ISN 0021 ALP=0. 00047 

ISN 0022 F1=03J 00048 

ISN 0023 KSID=0 00049 

ISN 0024 IF (NSIDE.EQ.O) GO TO 70 00050 

c 00051 

C FIND MOVE TO SIDE CONSTRAINT AND INSURE AGAINST VIOLATION OF 00052 

C SIDE CONSTRAINTS 00053 

C 00054 
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DATE 82.141/10.53.39 

ISN 

0026 


DO 60 1=1, NDV 


00055 

ISN 

0027 


SI=S(I) 


00056 

ISN 

0028 


IF ( ABS( SI ) .GT. 1 . 0E-20 ) GO TO 30 


00057 



c 

ITH COMPONENT OF S IS SMALL. SET TO ZERO. 

00058 

ISN 

0030 


S(I)=0. 


00059 

ISN 

0031 


SLOPE=SLOPE-SI*DF( I ) 


00060 

ISN 

0032 


GO TO 60 


00061 

ISN 

0033 

30 

CONTINUE 


00062 

ISN 

0034 


XI=X(I) 


00063 

ISN 

0035 


SI=1./SI 


00064 

ISN 

0036 


IF (SI.GT.O. ) GO TO 40 


00065 



C 

LOWER BOUND. 


00066 

ISN 

0038 


XI2=VLB( I ) 


00067 

ISN 

0039 


XI1=ABS(XI2) 


00063 

ISN 

0040 


IF (XI1.LT.1.) XI1=1. 


00069 



C 

CONSTRAINT VALUE. 


00070 

ISN 

0042 


GI=( XI2-XI )/XIl 


00071 

ISN 

0043 


IF (GI.GT.-1.0E-6) GO TO 50 


00072 



C 

PROPOSED MOVE TO LOWER BOUND. 


00073 

ISN 

0045 


ALPA=(XI2-XI)*SI 


00074 

ISN 

0046 


IF ( ALFA. LT. ALPSID ) ALPSIO=ALPA 


00075 

ISN 

0048 


GO TO 60 


00076 

ISN 

0049 

40 

CONTINUE 


00077 



C 

UPPER BOUND. 


00078 

ISN 

0050 


XI2=VU3( I ) 


00079 

ISN 

0051 


XI1=ABS(XI2) 


00030 

ISN 

0052 


IF (XII .LT. 1 . ) XI1=1. 


00081 



C 

CONSTRAINT VALUE. 


00082 

ISN 

0054 


GI=( XI-XI2 )/XIl 


00083 

ISN 

0055 


IF (GI.GT.-1.0E-6) GO TO 50 


00084 



C 

PROPOSED MOVE TO UPPER BOUND. 


00085 

ISN 

0057 


ALPA=( XI2-XI )*SI 


00066 

ISN 

0058 


IF (ALPA.LT. ALPSID) ALPSID=ALPA 


00087 

ISN 

0060 


GO TO 60 


00088 

ISN 

0C61 

50 

CONTINUE 


00089 



C 

MOVE WILL VIOLATE SIDE CONSTRAINT. 

SET S(I)=0. 

00090 

ISN 

0062 


SLOPE=SLOPE-S( I )#DF(I ) 


00091 

ISN 

0063 


S(I)=0. 


00092 

ISN 

0064 


KSID=KSID+1 


00093 

ISN 

0065 

60 

CONTINUE 


00094 



C 

ALPSID IS UPPER BOUND ON ALPHA. 


00095 

ISN 

0066 


IF (A2.GT. ALPSID) A2=ALPSI0 


00096 

ISN 

0068 

70 

CONTINUE 


00097 









C 

CHECK ILL-CONDITIONING 


00099 







ISN 

0069 


IF ( KSID . EQ . NO V . OR . ICOUNT . GT . 1 0 ) GO 

TO 710 

00101 

ISN 

0071 


IF (NVC. EO.O. AND. SLOPE. GT. 0. ) GO TO 

710 

00102 

ISN 

0073 


ALPFES=-1. 


00103 

ISN 

0074 


ALPMIN=-1. 


00104 

• ISN 

0075 


ALPLN=1.1*ALPSID 


00105 

ISN 

0076 


ALPNC=ALPSIO 


00106 

ISN 

0077 


ALPCA=ALPSIO 


00107 

ISN 

0078 


IF (NCON.EQ.O) GO TO 90 


00108 



C 

STORE CONSTRAINT VALUES IN Gl. 


00109 

ISN 

0030 


00 80 1=1 ,NCON 


00110 

ISN 

0081 


Gl( I )=G( I ) 


00111 

ISN 

0062 

80 

CONTINUE 


00112 

ISN 

0083 

90 

CONTINUE 


00113 
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+VERSION 1.3.0 (01 MAY 80) CNMN06 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82 . 141/10 .53. 39 

c 001 14 

C MOVE A DISTANCE A2#S 00115 

c 00116 

ISN 0084 ALPTOT=ALPTOT+A2 00117 

ISN 0085 DO 100 1=1, NDV 00118 

ISN 0086 X(I)=X(I)+A2*S(I) 00119 

ISN 0087 100 CONTINUE 00120 

ISN 0088 IF ( IPRINT. LT.5 ) GO TO 130 00121 

ISN 0090 WRITE (161,740) A2 00122 

ISN 0091 IF (NSCAL.EQ.O) GO TO 120 00123 

ISN 0093 DO 110 1=1, NDV 00124 

ISN 0094 110 G(I)=SCAL(I)XX(I) 00125 

ISN 0095 WRITE (161,750) ( G( I ) , 1=1 ,NDV ) 00126 

ISN 0096 GO TO 130 00127 

ISN 0097 120 WRITE (161,750) ( X( I ) ,1=1 ,NDV ) 00128 

C 00129 

C UPDATE FUNCTION AND CONSTRAINT VALUES 00130 

C 00131 

ISN 0098 130 NCAL( 1 )=NCAL( 1 ) + l 00132 

ISN 0099 JGOTO=l 00133 

ISN 0100 RETURN 00134 

ISN 0101 140 CONTINUE 00135 

ISN 0102 F2=0BJ 00136 

ISN 0103 IF (IPRINT. GE. 5) WRITE (161,760) F2 00137 

ISN 0105 IF (IPRINT. LT.5. OR. NCON.EQ.O) GO TO 150 00138 

ISN 0i07 WRITE (161,770) 00139 

ISN 0108 WRITE (161,750) (G( I ) ,1=1 ,NCON) 00140 

ISN 0109 150 CONTINUE 00141 

C 00142 

C IDENTIFY ACCAPT ABILITY OF DESIGNS Fi AND F2 00143 

c 00144 

C IGOOD = 0 IS ACCAPTABLE. 00145 

C CV = MAXIMUM CONSTRAINT VIOLATION. 00146 

ISN 0110 IG00D1=0 00147 

ISN 0111 IGOOD2=0 00148 

ISN 0112 CV1=0. 00149 

ISN 0113 CV2=0 . 00150 

ISN 0114 NVC1=0 00151 

ISN 0115 IF (NCON.EQ.O) GO TO 170 00152 

ISN 0117 DO 160 1=1 ,NCON 00153 

ISN 0118 CC=CTAM 00154 

ISN 0119 IF (ISC(I).GT.O) CC=CTBM 00155 

ISN 0121 C1=G1 ( I )-CC 00156 

ISN 0122 C2=G( I )-CC 00157 

ISN 0123 IF (C2.GT.O.) NVC1=NVC1+1 00158 

ISN 0125 IF (C1.GT.CV1) CV1=C1 00159 

ISN 0127 IF ( C2.GT.CV2 ) CV2=C2 00160 

ISN 0129 160 CONTINUE 00161 

ISN 0130 IF (CV1.GT.0.) IGOODl = l 00162 

ISN 0132 IF (CV2.GT.0.) IGOOD2=l 00163 

ISN 0134 170 CONTINUE 00164 

ISN 0135 ALP=A2 00165 

ISN 0136 OBJ=F2 00166 

C C0167 

C IF F2 VIOLATES FEWER CONSTRAINTS THAN FI BUT STILL HAS CONSTRAINT 00168 

C VIOLATIONS RETURN 00169 

c 00170 

ISN 0137 IF (NVC1 . LT.NVC. AHD.NVC1 .GT. 0 ) GO TO 710 00171 

C 00172 
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♦VERSION 1.3.0 (01 MAY 80) CMMN06 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.53.39 
C IDENTIFY BEST OF DESIGNS FI ANF F2 00173 

c 00174 

C IBEST CORRESPONDS TO MINIMUM VALUE DESIGN. 00175 

C IF CONSTRAINTS ARE VIOLATED, IBEST CORRESPONDS TO MINIMUM 00176 

C CONSTRAINT VIOLATION. 00177 

ISN 0139 IF ( IG00D1 . EQ. 0 .AND . IG00D2. EQ. 0 ) GO TO 180 00178 

C VIOLATED CONSTRAINTS. PICK MINIMUM VIOLATION. 00179 

ISM 0141 IBEST=1 00180 

ISN 0142 IF (CV1.GE.CV2) IBEST=2 00181 

ISN 0144 GO TO 190 00182 

ISN 0145 180 CONTINUE 00183 

C NO CONSTRAINT VIOLATION. PICK MINIMUM F. 00184 

ISN 0146 IBEST=1 00185 

ISN 0147 IF (F2.LE.F1) IBEST=2 00186 

ISN 0149 190 CONTINUE 00187 

ISN 0150 11=1 00188 

ISN 0151 IF (NCON.EQ.O) GO TO 230 00189 

C 00190 

C ***** 2 - POINT INTERPOLATION *****00191 

c 00192 

ISN 0153 111=0 00193 

ISN 0154 200 111=111+1 00194 

ISN 0155 C1=G1(III) 00195 

ISN 0156 C2=G( III ) 00196 

ISN 0157 IF (ISC(III).EQ.O) GO TO 210 00197 

c 00193 

C LINEAR CONSTRAINT 00199 

c 00200 

ISN 0159 IF ( Cl .GE . 1 . OE-5. AND .Cl . LE.CTBM) GO TO 220 00201 

ISN 0161 CALL CNNN07 ( II .ALP.ZRO.ZRO.Cl ,A2,C2,ZRO,ZRO ) 00202 

ISN 0162 IF (ALP.LE.O.) GO TO 220 00203 

ISN 0164 IF ( C l . GT . CTBM . AND .ALP.GT.ALPFES) ALPFES=ALP 00204 

ISN 0166 IF (Cl.LT.CTL.AND.ALP.LT.ALPLN) ALPLN=ALP 00205 

ISN 0168 GO TO 220 00206 

ISN 0169 210 CONTINUE 00207 

C 00208 

C NON-LINEAR CONSTRAINT 00209 

C 00210 

ISN 0170 IF (C1.GE.1.0E-5. AND . Cl . LE . CTAM ) GO TO 220 00211 

ISN 0172 CALL CNMN07 ( II , ALP.ZRO.ZRO.Cl ,A2,C2 ,ZRO,ZRO) 00212 

ISN 0173 IF (ALP.LE.O.) GO TO 220 00213 

ISN 0175 IF (Cl. GT. CTAM. AND. ALP.GT.ALPFES) ALPFES=ALP 00214 

ISN 0177 IF (Cl .LT.CT.AND. ALP. LT.ALPNC) ALPNC=ALP 00215 

ISN 0179 220 CONTINUE 00216 

ISN 0180 IF ( III. LT.NCON) GO TO 200 00217 

ISN 0182 230 CONTINUE 00218 

ISN 0183 IF (LINOBJ. GT.O. OR. SLOPE. GE. 0. ) GO TO 240 00219 

C CALCULATE ALFHA TO MINIMIZE FUNCTION. 00220 

ISN 0185 CALL CNMN04 ( II , ALPMIN.ZRO.ZRO.Fl .SLOPE , A2 ,F2 .ZRO.ZRO.ZRO.ZRO) 00221 

ISN 0186 240 CONTINUE 00222 

c 00223 

C PROPOSED MOVE 00224 

C 00225 

C MOVE AT LEAST FAR ENOUGH TO OVERCOME CONSTRAINT VIOLATIONS. 00226 

ISN 0187 A3=ALPFES 00227 

C MOVE TO MINIMIZE FUNCTION. 00228 

ISN 0188 IF (ALPMIN.GT.A3) A3=ALPMIN 00229 

C IF A3.LE.0, SET A3 = ALPSID. 00230 

ISN 0190 IF ( A3.LE.0. ) A3=ALPSID 00231 


PI 



no 

no 
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C 

LIMIT MOVE TO NEW CONSTRAINT ENCOUNTER. 

00232 

ISN 

0192 


IF ( A3.GT . ALPNC ) A3=ALPNC 


00233 

ISN 

0199 


IF (A3.GT.ALPLN) A3=ALPLN 


00239 



c 

MAKE A3 NON-ZERO. 


00235 

ISH 

0196 


IF (A3.LE.1.0E-20) A3=1.0E-20 


00236 



c 

IF A3=A2=ALPSID AND F2 IS BEST, GO INVOKE SIDE CONSTRAINT 

00237 



c 

MODIFICATION. 


00238 

ISN 

0198 


ALPB=1 • -A2/A3 


00239 

ISN 

0199 


ALPA= 1 . -ALPSID/A3 


00290 

ISN 

0200 


JBEST=0 


00291 

ISN 

0201 


IF ( ABSt ALPB) . LT. 1 . 0E-10. AND .ABS( ALPA ).LT.1.0E-10) JBEST=1 

00292 

ISN 

0203 


IF ( JBEST.Eq. 1 . AND .IBEST.Eq. 2 ) GO TO 

20 

00293 



c 

SIDE CONSTRAINT CHECK NOT SATISFIED. 


00299 

ISN 

0205 


IF (NCON.Eq.O) GO TO 260 


00295 



c 

STORE CONSTRAINT VALUES IN G2. 


00296 

ISN 

0207 


DO 250 1=1 iN'CON 


00297 

ISN 

0208 


G2( I )=G( I ) 


00298 

ISN 

0209 

250 

CONTINUE 


00299 

ISN 

0210 

260 

CONTINUE 


00250 



C 

IF A3=A2, SET A3=.9*A2. 


00251 

ISN 

0211 


IF ( ABSC ALPB ) . LT. 1 . OE-IO ) A3=.9*A2 


00252 



C 

MOVE AT LEAST .01*A2. 


00253 

ISN 

0213 


IF (A3.LT.(.01«A2>) A3=.01#A2 


00259 



c 

LIMIT MOVE TO 5.*A2. 


00255 

ISN 

0215 


IF ( A3.GT. ( 5.#A2 ) ) A3=5.*A2 


00256 



c 

LIMIT MOVE TO ALPSID. 


00257 

ISN 

0217 


IF C A3. GT. ALPSID) A3=ALPSID 


00258 



c 

MOVE A DISTANCE A3*S. 


00259 

ISN 

0219 


ALP=A3-A2 


00260 

ISN 

0220 


ALPTOT=ALPTOT +ALP 


00261 

ISN 

0221 


DO 270 1=1, NDV 


00262 

ISN 

0222 


X(I)=X(I)+ALP*S(I) 


00263 

ISN 

0223 

270 

CONTINUE 


00269 

ISN 

0229 


IF (IPRINT.LT. 5) GO TO 300 


00265 

ISN 

0226 


WRITE (161,780) 


00266 

ISH 

0227 


WRITE (161,790) A3 


00267 

ISN 

0228 


IF (NSCAL.EQ.O) GO TO 290 


00268 

ISN 

0230 


DO 280 1=1, NDV 


00269 

ISN 

0231 

280 

G(I)=SCAL(I)*X(I) 


00270 

ISN 

0232 


WRITE (161,750) ( G( I ) ,1=1 ,NDV ) 


00271 

ISN 

0233 


GO TO 300 


00272 

ISN 

0239 

290 

WRITE (161,750) (X( I ) ,1=1 ,N0V ) 


00273 

ISN 

0235 

300 

CONTINUE 


00279 















C 

UPDATE FUNCTION AND CONSTRAINT VALUES 

00276 













ISN 

0236 


NCAL(1)=NCAL(1) + 1 


00278 

ISN 

0237 


JGQTQ=2 


00279 

ISN 

0238 


RETURN 


00280 

ISN 

0239 

310 

CONTINUE 


00281 

ISN 

0290 


F3=OBJ 


00282 

ISN 

0291 


IF ( IPRINT.GE.5) WRITE (161,760) F3 


00283 

ISN 

0293 


IF (IFRINT.LT. 5. OR. NCON.Eq.O) GO TO 

320 

00289 

ISN 

0295 


WRITE (161,770) 


00285 

ISN 

0296 


WRITE (161,750) (G( I ) ,1=1 ,NCON) 


00286 

ISH 

0297 

320 

CONTINUE 


00287 









C 

CALCULATE MAXIMUM CONSTRAINT VIOLATION AND PICK BEST DESIGN 

00289 



C 



00290 
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ISN 

0248 


CV3=0. 



00291 

ISN 

0249 


IGOOD3=0 



00292 

ISN 

0250 


NVC1=0 



00293 

ISN 

0251 


IF (NCON.EQ.O) GO TO 340 



00294 

ISN 

0253 


DO 330 I=l,NCON 



00295 

ISN 

0254 


CC=CTAM 



00296 

ISN 

0255 


IF (ISC(I).GT.O) CC-CTBM 



00297 

ISN 

0257 


C1=G(I)-CC 



00298 

ISN 

0258 


IF (C1.GT.CV3) CV3=C1 



00299 

ISN 

0260 


IF (Cl.GT.O.) NVC1=NVC1+1 



00300 

ISN 

0262 

330 

CONTINUE 



00301 

ISN 

0263 


IF (CV3.GT.0.) IGOOD3=l 



00302 

ISN 

0265 

340 

CONTINUE 



00303 



C 

DETERMINE BEST DESIGN. 



00304 

ISN 

0266 


IF ( IBEST.EQ. 2 ) GO TO 360 



00305 



C 

CHOOSE BETWEEN FI AND F3. 



00306 

ISN 

0268 


IF ( IGOOD1 . EQ. 0. AND . IG00Q3. EQ. 0 ) 

GO TO 

350 

00307 

ISN 

0270 


IF (CV1.GE.CV3) IBEST=3 



00308 

ISN 

0272 


GO TO 380 



00309 

ISN 

0273 

350 

IF (F3.LE.F1) IBEST=3 



00310 

ISN 

0275 


GO TO 380 



00311 

ISN 

0276 

360 

CONTINUE 



00312 



C 

CHOOSE BETWEEN F2 AND F3. 



00313 

ISN 

0277 


IF ( IGOOD 2 . EQ . 0 . AND . IGOOD3 . Eq . 0 ) 

GO TO 

370 

00314 

ISN 

0279 


IF (CV2.GE.CV3) IBEST=3 



00315 

ISN 

0281 


GO TO 380 



00316 

ISN 

0282 

370 

IF (F3.LE.F2) IBEST=3 



00317 

ISN 

0284 

380 

CONTINUE 



00318 

ISN 

0285 


ALP=A3 



00319 

ISN 

0286 


0BJ=F3 



00320 



C 

IF F3 VIOLATES FEWER CONSTRAINTS THAN 

FI RETURN. 

00321 

ISN 

0287 


IF ( NVC1 . LT.NVC ) GO TO 710 



00322 



c 

IF OBJECTIVE AND ALL CONSTRAINTS 

ARE LINEAR, RETURN. 

00323 

ISN 

0289 


IF (LINOBJ.NE.O.AND.NLNC.EQ. NCON ) 

GO TO 710 

00324 



c 

IF A3 = ALPLN AND F3 IS BOTH GOOD 

AND 

BEST RETURN. 

00325 

ISN 

0291 


ALPB=1 . -ALPLN/A3 



00326 

ISN 

0292 


IF ( ( ABS( ALPB ) . LT. 1 . 0E-20 . AND . IBEST.EQ 

. 3 ) . AND . ( IG00D3. EQ . 

.0)) GO T000327 




1 710 



00328 



c 

IF A3 = ALPSID AND F3 IS BEST, GO 

INVOKE SIDE CONSTRAINT 

00329 



c 

MODIFICATION. 



00330 

ISN 

0294 


ALPA=1 . -ALPSID/A3 



00331 

ISN 

0295 


IF (ABS(ALPA).LT.1.0E-20. AND. IBEST.EQ. 

3) GO TO 20 

00332 

















c 

a*##**#*#* 3 - POINT INTERPOLATION 

*********00334 















ISN 

0297 


A LPNC = ALPSID 



00336 

ISN 

0298 


A LPCA = ALPSID 



00337 

ISN 

0299 


ALPFES=-1. 



00338 

ISN 

0300 


ALPMIN=-1 . 



00339 

ISN 

0301 


IF (NCON.EQ.O) GO TO 440 



00340 

ISN 

0303 


111=0 



00341 

ISN 

0304 

390 

111=111+1 



00342 

ISN 

0305 


C 1 =G 1 ( III ) 



00343 

ISN 

0306 


C2=G2( III ) 



00344 

ISN 

0307 


C3=G(III) 



00345 

ISN 

0308 


IF (ISC(III).EQ.O) GO TO 400 



00346 


C 00347 

C LINEAR CONSTRAINT. FIND ALPFES ONLY. ALPLN SANE AS BEFORE. 00348' 

c 00349 
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♦VERSION 1.3.0 (01 MAY 80) CNMH06 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82 . 141/10.53.39 
ISN 0310 IF (Cl.LE.CTBM) GO TO 430 00350 

ISN 0312 11=1 00351 

ISN 0313 CALL CNMN07 ( II,ALP,ZRO,ZRO,Cl ,A3,C3,ZR0,ZR0) 00352 

ISN 0314 IF ( ALP.GT.ALPFES ) ALPFES=ALP 00353 

ISN 0316 GO TO 430 00354 

ISN 0317 400 CONTINUE 00355 

C 00356 

C NON-LINEAR CONSTRAINT 00357 

C 00358 

ISN 0318 11=2 00359 

ISN 0319 CALL CNMN07 ( II, ALP.ZRO.ZRO.Cl ,A2,C2,A3,C3 ) 00360 

ISN 0320 IF (ALP.LE.ZRO) GO TO 430 00361 

ISN 0322 IF (Cl.GE.CT.AND.Cl.LE.O. ) GO TO 410 00362 

ISN 0324 IF (C1.GT.CTAM.0R.C1.LT.0. ) GO TO 420 00363 

C ALP IS MINIMUM MOVE. UPDATE FOR NEXT CONSTRAINT ENCOUNTER. 00364 

ISN 0326 410 ALPA=ALP 00365 

ISN 0327 CALL CNMN07 ( II,ALP,ALPA,ZR0,C1,A2,C2,A3,C3) 00366 

ISN 0328 IF ( ALP. LT.ALPCA. AND.ALP.GE.ALPA) ALPCA=ALP 00367 

ISN 0330 GO TO 430 00368 

ISN 0331 420 CONTINUE 00369 

ISN 0332 IF (ALP.GT.ALPFES. AND. Cl. GT.CTAM) ALPFES=ALP 00370 

ISN 0334 IF (ALP.LT.ALPNC.AND.C1.LT.0. ) ALPNC=ALP 00371 

ISN 0336 430 CONTINUE 00372 

ISN 0337 IF ( III . LT.NCON) GO TO 390 00373 

ISN 0339 440 CONTINUE 00374 

ISN 0340 IF ( LINOBJ.GT.O. OR. SLOPE. GT. 0. ) GO TO 450 00375 

c 00376 

C CALCULATE ALPHA TO MINIMIZE FUNCTION 00377 

c 00378 

ISN 0342 11=3 00379 

ISN 0343 IF ( A2 .GT. A3. AND . ( IGOOD2 .EQ. 0 . AND.IBEST. EQ.2 ) ) 11=2 00380 

ISN 0345 CALL CNMN04 ( II , ALPMIN.ZRO.ZRO.Fl .SLOPE, A2.F2 , A3, F3,ZRO,ZRO ) 00381 

ISN 0346 450 CONTINUE 003S2 

C 00383 

C PROPOSED MOVE 00384 

C 00385 

C MOVE AT LEAST ENOUGH TO OVERCOME CONSTRAINT VIOLATIONS. 00386 

ISN 0347 A4=ALPFES 00387 

C MOVE TO MINIMIZE FUNCTION. 00388 

ISN 0348 IF (ALPMIN.GT.A4) A4=ALPMIN 00389 

C IF A4.LE.0, SET A4 = ALPSID. 00390 

ISN 0350 IF (A4.LE.0.) A4=ALPSID 00391 

C LIMIT MOVE TO HEW CONSTRAINT ENCOUNTER. 00392 

ISN 0352 IF ( A4.GT.ALPLN) A4=ALPLH 00393 

ISN 0354 IF (A4.GT.ALFNC) A4=ALPNC 00394 

C LIMIT MOVE TO RE-ENCOUNTER CURRENTLY ACTIVE CONSTRAINT. 00395 

ISN 0356 IF (A4.GT.ALPCA) A4=ALPCA 00396 

C LIMIT A4 TO 5.#A3. 00397 

ISN 0358 IF ( A4.GT. ( 5.#A3 ) ) A4=5.*A3 00393 

C UPDATE DESIGN. 00399 

ISN 0360 IF ( IBEST . NE . 3 . OR . NCON . EQ . 0 ) GO TO 470 00400 

C STORE CONSTRAINT VALUES IN G2. F3 IS BEST. F2 IS NOT. 00401 

ISN 0362 DO 460 I=1,NCCN 00402 

ISM 0363 G2( I J=G( I ) 00403 

ISN 0364 460 CONTINUE 00404 

ISN 0365 470 CONTINUE 00405 

C IF A4=A3 AND IG00D1=0 AND IG00D3=1, SET A4=.9*A3. 00406 

ISN 0366 ALP=A4-A3 00407 


ISN 0367 IF ( ( IGOOD1 .EQ.0.AND.IG00D3.EQ. I ) . AND. ABS( ALP ) . LT. 1 . 0E-20 ) A4=.9#A00408 


PAGE 7 



CNMN06 


SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 


♦VERSION 1.3. 


ISN 0369 
ISN 0370 
ISN 0371 
ISN 0372 
ISN 0373 
ISN 0379 
ISN 0376 
ISN 0377 
ISN 0378 
ISN 0330 
ISN 0381 
ISN 0382 
ISN 0383 
ISN 0339 
ISN 0385 


ISN 0386 
ISN 0387 
ISN 0333 
ISN 0389 
ISN 0390 
ISN 0391 
ISN 0393 
ISN 0395 
ISN 0396 
ISN 0397 

ISN 0393 
ISN 0399 
ISN 0900 
ISN 0902 
ISN 0903 
ISN 0909 
ISN 0906 
ISN 0907 
ISN 0909 
ISN 0910 
ISN 0912 
ISN 0913 
ISN 0919 


ISN 0915 
ISN 0916 

ISN 0917 
ISN 0919 
ISN 0921 
ISN 0922 
ISN 0923 
ISN 0925 


0 (01 MAY 80) 

13 

C 

C MOVE A DISTANCE A9#S 

C 

ALP=A9-A3 
ALPTOT=ALPTOT+ALP 
DO 980 1=1, NDV 
X(I)=X(I)tALP*S(I) 

980 CONTINUE 

IF (IPRINT.LT. 5) GO TO 510 
WRITE (161,720) 

WRITE (161,790) A9 
IF (NSCAL.EQ.O) GO TO 500 
DO 990 1=1, NDV 
990 G( I )=SCAL( I )#X( I ) 

WRITE (161,750) ( G( I ) ,1=1 ,NDV ) 

GO TO 510 

500 WRITE (161,750) (X( I ) ,1=1 ,NDV ) 

510 CONTINUE 

C 

C UPDATE FUNCTION AND CONSTRAINT VALUES 

C 

NCAL( 1 )=NCAL( 1 )+l 

JGOTO=3 

RETURN 

520 CONTINUE 
F9=OBJ 

IF (IPRINT.GE.5) WRITE (161,760) F9 
IF (IPRINT.LT. 5. OR. NCON.EQ.O) GO TO 530 
WRITE (161,770) 

WRITE (161,750) (G( I ) ,1=1 >NCON) 

530 CONTINUE 

C DETERMINE ADAPTABILITY OF F9. 

IG00D9=0 

CV9=0. 

IF ( NCON . EQ . 0 ) GO TO 550 
DO 590 1=1, NCON 
CC=CTAM 

IF (ISC(I).GT.O) CC=CTBM 
C1=G( I )-CC 

IF (C1.GT.CV9) CV9=C1 
590 CONTINUE 

IF (CV9.GT.0. ) IG00D9=1 
550 CONTINUE 
ALP=A9 
0BJ=F9 

C 

C DETERMINE BEST DESIGN 

c 

GO TO (560,610,660 ) ,IBEST 
560 CONTINUE 

C CHOOSE BETWEEN FI AND F9. 

IF ( IGOOD1 . EQ. 0 .AND . IG00D9.EQ. 0 ) GO TO 570 
IF (CV1.GT.CV9) GO TO 710 
GO TO 580 
570 CONTINUE 

IF (F9.LE.F1 ) GO TO 710 
580 CONTINUE 
C FI IS BEST. 


DATE 82.191/10.53.39 
00909 

00910 

00911 

00912 

00913 

00919 

00915 

00916 

00917 

00918 

00919 

00920 

00921 

00922 

00923 
00929 

00925 

00926 

00927 
00928 

00929 
00930 

00931 

00932 

00933 
00939 

00935 

00936 

00937 

00938 

00939 

00990 

00991 

00992 

00993 
00999 

00995 

00996 

00997 

00998 

00999 

00950 

00951 

00952 

00953 
00959 

00955 

00956 
00957 

00958 

00959 

00960 

00961 

00962 

00963 
00969 

00965 

00966 

00967 



+VERSIGN 1.3.0 (01 MAY 80) CNMN06 SYSTEM/370 FORTRAN H EXTENDED ( 


ISN 

0926 


ALPT0T=ALPTQT-A9 




ISM 

0927 


CBJ=F 1 




ISN 

0928 


CO 590 1=1, NDV 




ISN 

0929 


X(I)=X(I)-A9*S(I) 




ISN 

0930 

590 

CONTINUE 




ISN 

0931 


IF (NCON.EQ.O) GO TO 710 




ISN 

0933 


DO 600 I=l,NCON 




ISN 

0939 


G(I)=G1(I) 




ISN 

0935 

600 

CONTINUE 




ISN 

0936 


GO TO 710 




ISN 

0937 

610 

CONTINUE 






C 

CHOOSE BETWEEN F2 AND F9. 




ISN 

0938 


IF ( IGOOD2.EQ.O.AND.IGOOD9.EQ.O) 

GO 

TO 

620 

ISN 

0990 


IF (CV2.GT.CV9) GO TO 710 




ISN 

0992 


GO TO 630 




ISN 

0993 

620 

CONTINUE 




ISN 

0999 


IF (F9.LE.F2) GO TO 710 




ISN 

0996 

630 

CONTINUE 






C 

F2 IS BEST. 




ISN 

0997 


0BJ=F2 




ISN 

0998 


A2=A9-A2 




ISN 

0999 


ALPT0T=ALPT0T-A2 




ISN 

0950 


DO 690 1=1, NDV 




ISN 

0951 


X( I )=X( I )-A2#S( I ) 




ISN 

0952 

690 

CONTINUE 




ISN 

0953 


IF (NCON.EQ.O) GO TO 710 




ISN 

0955 


DO 650 1=1 >NCON 




ISN 

0956 


G( I )=G2( I ) 




ISN 

0957 

650 

CONTINUE 




ISN 

0958 


GO TO 710 




ISN 

0959 

660 

CONTINUE 






C 

CHOOSE BETWEEN F3 AND F9. 




ISN 

0960 


IF ( IG00D3 . EQ . 0 . AND . IG00D9 . EQ . 0 ) 

GO 

TO 

670 

ISN 

0962 


IF (CV3.GT.CV9) GO TO 710 




ISN 

0969 


GO TO 680 




ISN 

0965 

670 

CONTINUE 




ISN 

0966 


IF (F9.LE.F3) GO TO 710 




ISN 

0968 

680 

CONTINUE 






C 

F3 IS BEST. 




ISN 

0969 


0BJ=F3 




ISN 

0970 


A3=A9-A3 




ISN 

0971 


ALPT0T=ALPT0T-A3 




ISN 

0972 


DO 690 1=1 »NDV 




ISN 

0973 


X(I)=X(I)-A3*S(I) 




ISN 

0979 

690 

CONTINUE 




ISN 

0975 


IF (NCON.EQ.O) GO TO 710 




ISN 

0977 


DO 700 I=l,NCON 




ISN 

0978 


G( I )=G2( I ) 




ISN 

0979 

700 

CONTINUE 




ISN 

0980 

710 

CONTINUE 




ISN 

0981 


ALP=ALPTOT 




ISN 

0982 


IF ( IPRINT.GE.5 ) WRITE (161,790) 




ISN 

0989 


JGOTO=0 




ISN 

0985 


RETURN 





C 

C 

C 

C 

C 


FORMATS 


) 


PAGE 9 


DATE 82.191/10.53.39 

00968 

00969 

00970 

00971 

00972 

00973 
00979 

00975 

00976 

00977 
00973 

00979 

00980 

00981 

00982 

00983 
00989 

00985 

00986 

00987 
00983 

00989 

00990 

00991 

00992 

00993 
00999 

00995 

00996 

00997 

00998 

00999 

00500 

00501 

00502 

00503 
00509 

00505 

00506 

00507 
00503 

00509 

00510 

00511 

00512 

00513 
00519 

00515 

00516 

00517 

00518 

00519 

00520 

00521 
00522 

00523 
00529 

00525 

00526 



234 


♦VERSION 1.3.0 (01 MAY 80) CNMN06 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.53.39 
ISN 0486 720 FORMAT ( /5X> 25HTHREE-P0INT INTERPOLATION) 00527 

ISN 0437 730 FORMAT ( /////58H* * * CONSTRAINED ONE-DIMENSIONAL SEARCH INFORMATI00528 

ION * * *) 00529 

ISN 0488 740 FORMAT (//5X, 15HPR0P0SED DESIGN/5X > 7HALPHA =,E12 .5/5X,eHX- VECTOR ) 00530 

ISN 0489 750 FORMAT (1X.8E12.4) 00531 

ISN 0490 760 FORMAT (/5X.5H0BJ =,E13.5) 00532 

ISN 0491 770 FORMAT ( /5X > 1 7HC0NSTRAINT VALUES) 00533 

ISN 0492 780 FORMAT ( /5X, 23HTN0-P0INT INTERPOLATION) 00534 

ISN 0493 790 FORMAT (/5X.35H* * * END OF ONE-DIMENSIONAL SEARCH) 00535 

ISN 0494 END 00536 

^OPTIONS IN EFFECT*NAME ( MAIN ) OPTIMIZE(3) LINECOUNT( 60) SIZE(MAX) AUTODBL(NONE ) 


^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NCMAP NOFCRMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
^STATISTICS* SOURCE STATEMENTS = 493, PROGRAM SIZE = 6746, SUBPROGRAM NAME =CNMN06 

^STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 2924K BYTES OF CORE NOT USED 




+ VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82 . 141/10 .53.50 PAGE 1 

REQUESTED OPTIONS: SOURCE , NOMAP, NOXREF , NOLIST, NODECK, OPT( 3 ) ,AUTOCBL( NONE ) ,N0ALC 
OPTIONS IN EFFECT: NAME! MAIN ) OPTIMIZED) LINECOUNTI 60 ) SIZE(KAX) AUT0D3L( NONE ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 


C DATA SET U477CNMN07 AT LEVEL 001 AS OF 02/13/81 

C DATA SET 9188CNMN07 AT LEVEL 001 AS Or 07/10/80 00001 

ISN 0002 SUBROUTINE CNMN07 ( II, XBAR.EPS, XI ,Y1 ,X2 ,Y2 ,X3,Y3 ) 00002 

C ROUTINE TO FIND FIRST XBAR.GE.EPS CORRESPONDING TO A REAL ZERO 00003 

C OF A ONE-DIMENSIONAL FUNCTION BY POLYNOMIEL INTERPOLATION. 00004 

C BY G. N. VANOERPLAATS APRIL, 1972. 00005 

C NASA-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 00006 

C II = CALCULATION CONTROL. 00007 

C 1: 2-POINT LINEAR INTERPOLATION, GIVEN XI, Yl, X2 AND Y2. 00008 

C 2: 3-POINT QUADRATIC INTERPOLATION, GIVEN XI, Yl, X2, Y2, 00009 

C X3 AND Y3. 00010 

C EPS MAY BE NEGATIVE. 00011 

C IF REQUIRED ZERO ON Y DOES NOT EXITS, OR THE FUNCTION IS 00012 

C ILL-CONDITIONED, XBAR = EPS-1.0 WILL BE RETURNED AS AN ERROR 00013 

C INDICATOR. 00014 

C IF DESIRED INTERPOLATION IS ILL-CONDITIONED, A LOWER ORDER 00015 

C INTERPOLATION, CONSISTANT WITH INPUT DATA, WILL BE ATTEMPTED AND 00016 

C II WILL BE CHANGED ACCORDINGLY. 00017 

ISN 0003 XBAR1=EPS-1. 00018 

ISN 0004 XBAR=XBAR1 00019 

ISN 0005 JJ=0 00020 

ISN 0006 X21=X2-X1 00021 

ISN 0007 IF ( ABS( X21 ) . LT. 1 . 0E-20 ) RETURN 00022 

ISN 0009 IF (II.EQ.2) GO TO 30 00023 

C 00024 

ISN 0011 10 CONTINUE 00025 

C 00026 

C 11=1: 2-POINT LINEAR INTERPOLATION 00027 

C 00028 

ISN 0012 11=1 00029 

ISN 0013 YY=Y1#Y2 00030 

ISN 0014 IF ( JJ.EQ.O. OR.YY.LT. 0. ) GO TO 20 00031 

C INTERPOLATE BETWEEN X2 AND X3. 00032 

ISN 0016 DY=Y3-Y2 00033 

ISN 0017 IF ( ABS(DY ) . LT. 1 . 0E-20 ) GO TO 20 00034 

ISN 0019 XBAR=X2+Y2#( X2-X3 )/DY 00035 

ISN 0020 IF ( XBAR . LT. EPS) XBAR=XBAR1 00036 

ISN 0022 RETURN 00037 

ISN 0023 20 DY=Y2-Y1 00038 

C INTERPOLATE BETWEEN XI AND X2. 00039 

ISN 0024 IF ( ABS( DY ) . LT. 1 . 0E-20 ) RETURN 00040 

ISN 0026 XBAR=X1+Y1*( XI -X2 )/DY 00041 

ISN 0027 IF (XBAR.LT.EPS) XBAR=XBAR1 00042 

ISN 0029 RETURN 00043 

ISN 0030 30 CONTINUE 00044 

c 00045 

C 11=2: 3-POINT QUADRATIC INTERPOLATION 00046 

C 00047 

ISN 0031 JJ=1 00048 

ISN 0032 X31=X3-X1 00049 

ISN 0033 X32=X3-X2 00050 

ISN 0034 Qq=X21#X31#X32 00051 

ISN 0035 IF ( ABS( QQ ) . LT. 1 . 0E-20 ) RETURN 00052 

ISN 0037 AA=(Y1*X32-Y2*X31+Y3*X21)/QQ 00053 

ISN 0038 IF ( ABS( AA) . LT. 1 .0E-20 ) GO TO 10 00054 



♦VERSION 1.3. 

0 (01 MAY 80) CNMN07 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

DATE 82.141/10.53.50 

PAGE 

ISN 0040 

BB=( Y2-Y1 )/X21-AA*(Xl+X2 ) 

00055 

ISN 0041 

CC=Y1-X1*(AA*X1+BB) 

00056 


ISN 0042 

B AC=BB* BB-4 . *AA*CC 

00057 


ISN 0043 

IF (BAC.LT.O. ) GO TO 10 

00058 


ISN 0045 

BAC=SQRT(BAC) 

00059 


ISN 0046 

AA=.5/AA 

00060 


ISN 0047 

XBAR=AA*( BAC-BB ) 

00C61 


ISN 0048 

XB2=-AA*(BAC+BB) 

00062 


ISN 0049 

IF (XBAR.LT.EPS) XBAR=XB2 

00063 


ISN 0051 

IF (XB2.LT.XBAR.AND.XB2.GT.EPS) XBAR=XB2 

00064 


ISN 0053 

IF (XBAR.LT.EPS) XBAR=XBAR1 

00065 


ISN 0055 

RETURN 

00066 


ISN 0056 

END 

00067 


^OPTIONS IN EFFECT*NAME( MAIN ) OPTIMIZE(3) LINECOUNK 60 ) SIZE(MAX) AUTODBL(NCNE ) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM 

FLAG(I) 

^STATISTICS* 

SOURCE STATEMENTS = 55, PROGRAM SIZE = 936, SUBPROGRAM 

NAME =CNMN07 

^STATISTICS* 
****** END OF 

NO DIAGNOSTICS GENERATED 

COMPILATION ****** 3016K BYTES 

OF CORE NOT USED 



II 



♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.53.53 PAGE 1 

REQUESTED OPTIONS: SOURCE, NOMAP, NOXREF , NOLIST, NODECK, OPT( 3 ) ,AUTODBL( NONE ) ,NOALC 
OPTIONS IN EFFECT: NAME ( MAIN ) OPTIMIZED) LINECOUNT(60 ) SIZE(MAX) AUTODBH NONE ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FUG(I) 


ro 

co 


ISN 0002 
ISN 0003 


ISN 0004 
ISN 0005 

ISN 0006 
ISN 0007 
ISN 0008 
ISN 0009 
ISN 0010 
ISN 0011 
ISN 0013 
ISN 0015 
ISN 0017 
ISN 0018 
ISN 0019 
ISN 0021 
ISN 0023 
ISN 0024 
ISN 0026 
ISN 0027 


ISN 0028 
ISN 0029 

ISN 0031 
ISN 0032 
ISN 0033 
ISN 0034 
ISN 0035 
ISN 0036 
ISN 0038 
ISN 0039 
ISN 0041 
ISN 0042 


C DATA SET U477CNMN08 AT LEVEL 001 AS OF 02/13/81 

C DATA SET 9188CNMN08 AT LEVEL 001 AS OF 07/10/80 00001 

SUBROUTINE CNMN08 (NDB,NER,C,MS1 ,B,N3,N4,N5 ) 00002 

DIMENSION C(N4 ) » B(N3,N3), MS1(N5) 00003 

C ROUTINE TO SOLVE SPECIAL LINEAR PROBLEM FOR IMPOSING S-TRANSPOSE 00004 

C TIMES S.LE.l BOUNDS IN THE MODIFIED METHOD OF FEASIBLE DIRECTIONS. 00005 

C BY 6. N. VANDERPLAATS APRIL, 1972. 00006 

C NASA-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 00007 

C REF. 'STRUCTURAL OPTIMIZATION BY METHODS OF FEASIBLE DIRECTIONS* , 00008 

C G. H. VANDERPLAATS AND F. MOSES, JOURNAL OF COMPUTERS 00009 

C AND STRUCTURES, VOL 3, PP 739-755, 1973. 00010 

C FORM OF L. P. IS BX=C WHERE 1ST HDB COMPONENTS OF X CONTAIN VECTOROOOll 

C U AND LAST NDB COMPONENTS CONTAIN VECTOR V. CONSTRAINTS ARE 00012 

C U.GE.O, V.GE.O, AND U-TRANSPOSE TIMES V = 0. 00013 

C NER = ERROR FLAG. IF NER.NE.O ON RETURN, PROCESS HAS NOT 00014 

C CONVERGED IN 5#NDB ITERATIONS. 00015 

C VECTOR MSI IDENTIFIES THE SET OF BASIC VARIABLES. 00016 

C 00017 

C CHOOSE INITIAL BASIC VARIABLES AS V, AND INITIALIZE VECTOR MSI 00018 

C 00019 

NER=1 00020 

M2=2#NDB 00021 

C CALCULATE CBMIN AND EPS AND INITIALIZE MSI. 00022 

EPS=-1 .OE+IO 00023 

CBMIN=0. 00024 

DO 10 1=1, NDB 00025 

BI=B( 1,1 ) 00026 

CBMAX=0. 00027 

IF (BI.LT.-1.0E-6) CBMAX=C( I )/BI 00023 

IF (BI.GT.EPS) EPS=BI 00029 

IF (CBMAX.GT. CBMIN) CBMIN=CBMAX 00030 

10 MS1( I )=0 00031 

EPS=.0001*EPS 00032 

IF (EPS.LT.-l.OE-lO) EPS=-1 .0E-10 00033 

IF (EPS. GT.-. 0001) EPS=-.0001 00034 

CBMIN=CBMIN*1.0E-6 00035 

IF (CBMIN. LT.1.0E-10) CBMIN=1 .0E-10 00036 

ITER1=0 00037 

NMAX=5*NDB 00038 

C 00039 

C xxxxxxxxx* BEGIN NEW ITERATION *»xxxxxxxx00040 

C 00041 

20 ITER1=ITER1+1 00042 

IF ( ITER1 .GT.NMAX) RETURN 00043 

C FIND MAX. C(I)/B(I,I) FOR 1=1, NDB. 00044 

CBMAX= . 9*CBMIN 00045 

ICHK=0 00046 

DO 30 1=1, NDB 00047 

C1=C(I) 00048 

BI=B( 1,1) 00049 

IF ( BI .GT. EPS. OR .Cl .GT. 0 . ) GO TO 30 00050 

CB=C1/BI 00051 

IF (C3.LE.CBMAX) GO TO 30 00052 

ICHK=I 00053 

CBMAX=CB 00054 



+VER5I0U 1.3.0 (01 MAY SO) CNMN08 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 
ISN 0043 30 CONTINUE 

ISN 0044 IF ( CBMAX . LT . CBMIN ) GO TO 70 

ISN 0046 IF (ICHK.EQ.O) GO TO 70 

C UPDATE VECTOR MSI. 

ISN 0048 JJ=ICHK 

ISN 0049 IF (MSl(JJ).EQ.O) JJ=ICHK+NDB 

ISN 0051 KK=JJ+NDB 

ISN 0052 IF (KK.GT.M2) KK=JJ-NDB 

ISN 0054 HSI(KK)=ICHK 

ISN 0055 MS1(JJ)=0 


DATE 82.141/10.53.53 
00055 


ISN 0056 
ISN 0057 
ISN 0058 
ISN 0059 
ISN 0060 


ISN 0061 
ISN 0062 
ISN 0064 
ISN 0065 
ISN 0066 
ISN 0067 
ISN 0068 
ISN 0069 
ISN 0070 
ISN 0071 
ISN 0072 


PIVOT OF B(ICHK,ICHK) 


BB=1 ./B( ICHKi ICHK ) 

DO 40 J=1 jNDB 

B( ICHK, J)=BB*B( ICHK, J) 

C(ICHK)=CBMAX 
B( ICHK, ICHK >=BB 

ELIMINATE COEFICIENTS ON VARIABLE ENTERING BASIS AND STORE 
COEFICIENTS ON VARIABLE LEAVING BASIS IN THEIR PLACE. 


DO 60 1=1, NDB 
IF (I.Eq.ICHK) GO TO 60 
BB1=B( I, ICHK) 

B(I,ICHK)=0. 

DO 50 J=1,NDB 

B( I , J )=B( I, J )-BBl*B( ICHK, J ) 

C(I)=C(I)-BB1*CBMAX 

CONTINUE 

GO TO 20 

CONTINUE 

NER=0 


STORE ONLY COMPONENTS OF U-VECTOR IN 
TEMPORARY STORAGE 


USE B( 1,1 ) FOR 


ISN 0073 DO 80 1=1, NDB 00090 

ISN 0074 Bf 1,1 )=C( I) 00091 

ISN 0075 80 CONTINUE 00092 

ISN 0076 DO 90 1=1, NDB 00093 

ISN 0077 C(I)=0. 00094 

ISN 0078 J=MS1(I) 00095 

ISN 0079 IF (J.GT.O) C(I)=B(J,1) 00096 

ISN 0081 IF (C(I).LT.O.) C(I)=0. 00097 

ISN 0083 90 CONTINUE 00098 

ISN 0084 RETURN 00099 

ISN 0085 END 00100 

♦OPTIONS IN EFFECT*NAME ( MAIN ) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTODBL( NONE ) 

♦OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
♦STATISTICS* SOURCE STATEMENTS = 84, PROGRAM SIZE = 1390, SUBPROGRAM NAME =CNMN08 

♦STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 3004K BYTES OF CORE NOT USED 



♦VERSION 1.3.0 C01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82. 141/10 .53.56 PAGE 1 

REQUESTED OPTIONS: SOURCE .NOMAP, NOXREF , NOLIST, NODECK, OPT( 3 ) ,AUTODSL( NONE ) .NOALC 
OPTIONS IN EFFECT: NAME! MAIN ) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTODBLt NONE ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 


ro 

co 

UD 


ISN 0002 
ISN 0003 


ISN 0004 
ISN 0005 


ISN 0006 


ISN 0007 
ISN 0009 
ISN 0010 
ISN 0011 

ISN 0012 
ISN 0013 
ISN 0014 


ISN 0016 
ISN 0018 
ISN 0019 
ISN 0020 
ISN 0021 


ISN 0022 
ISN 0023 
ISN 0025 


C DATA SET U477C0NMIN AT LEVEL 003 AS OF 03/17/81 

C DATA SET U477C0NMIN AT LEVEL 002 AS Or 03/13/81 

C DATA SET U477C0NI1IN AT LEVEL 001 AS OF 02/13/81 

C DATA SET 9188C0NMIN AT LEVEL 001 AS OF 07/10/80 

SUBROUTINE CONMIN (X,VLB,VU3,G,SCAL,0F,A,S,G1 ,G2,B,C,ISC,IC,MS1 .N100004 
1 ,N2 ,N3,N4,N5 ) 00005 

COMMON /CNMN1/ DELFUN,DABFUN, FDCH , FDCHMiCT , CTMIN ,CTL,CTLMIN> ALPHAX00006 
l.ABOBJl, THETA, OBJ, NOV, NCON, NSIOE , IPRINT.NFOG.NSCAL, LINOBJ, ITMAX, IT00007 
2RM, ICNOIR , IGOTO , MAC, INFO , INFOG , ITER 00008 

COMMON /UIOS/ 151, 161 00009 

DIMENSION X(N1), VLB(Nl), VUB(Nl), G(N2), SCAL(Nl), DF(N1), ACN1,N00010 
13), S(N1 ) , GKN2), G2( N2 ) , B(N3,N3), C(N4), ISCIN2), IC(N3), MSKN00011 
25) 00012 

COMMON /COMSAV/ DM1 , DM2 , DM3, DM4, DM5, DM6, DM7, DM8, DM9, DM10 , DM1 1 , DM1200013 
l ,DCT ,DCTL , PHI , ABOBJ ,CTA ,CTAM ,CTBM , OB J 1 , SLOPE ,DX,DX1 , FI , XI ,DFTDF 1 , A0C014 
2LP,FFF,A1,A2,A3,A4,F1,F2,F3,F4,CV1,CV2,CV3,CV4,APP,ALPCA,ALPFES,AL00015 
3PLN, ALPMIN, ALPNC, ALPSAV, ALPSID , ALPTOT.RSPACE ,ICM1 , IDM2 , IDM3 , JDIR ,100016 
40BJ ,K03J ,KCOUNT,HCAL( 2 ) ,NFEAS,MSCAL,NCCBJ ,NVC,KOUNT,ICOUNT , IGOOD1 , 00017 


5IG00D2 , IG00D3, IGOOD4 , IBEST , III ,NLNC , JGOTO ,ISPACE( 2 ) 00018 

C ROUTINE TO SOLVE CONSTRAINED OR UNCONSTRAINED FUNCTION 00019 

C MINIMIZATION. 00020 

C BY G. N. VANDERPLAATS APRIL, 1972. 00021 

C *********** JUNE, 1979 VERSION ********** *00022 
C NASA-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 00023 

C REFERENCE; CONMIN - A FORTRAN PROGRAM FOR CONSTRAINED FUNCTION 00024 

C MINIMIZATION: USER‘S MANUAL, BY G. N. VANDERPLAATS, 00025 

C NASA TM X-62,282, AUGUST, 1973. 00026 

C STORAGE REQUIREMENTS: 00027 

C PROGRAM - 7000 DECIMAL WORDS (CDC COMPUTER) 00028 

C ARRAYS - APPROX. 2*( NDV**2 H26*NDV+4*KCO!|, 00029 

C WHERE N3 = HDV+2. 00030 

C RE-SCALE VARIABLES IF REQUIRED. 00031 

IF (NSCAL.EQ.O. OR. IGOTO. EQ.O) GO TO 20 00032 

DO 10 1=1, NDV 00033 

10 X(I)=C(I) 00034 

20 CONTINUE 00035 

C CONSTANTS. 00036 

NDV1=NDV+1 00037 

NDV2=NDV*2 00038 

IF (IGOTO. EQ.O) GO TO 40 00039 

C 00040 

C CHECK FOR UNBOUNDED SOLUTION 00041 

c 00042 

C STOP IF OBJ IS LESS THAN -1.0E+40 00043 

IF ( OBJ.GT. -1 . OE+40 ) GO TO 30 00044 

WRITE (161,980) 00045 

GO TO 810 00046 

30 CONTINUE 00047 

GO TO (160, 390, 380, 670, 690), IGOTO 00048 

C 00049 

C SAVE INPUT CONTROL PARAMETERS 00050 

C 00051 

40 CONTINUE 00052 

IF (IPRINT.GT.O) WRITE (161,1220) 00053' 

IF (LINOBJ. EQ.O. OR. (NCON.GT.O. OR. NSIDE.GT.O)) GO TO 50 00054 


00001 

00002 

00003 



♦VERSION 1.3.0 

(01 

MAY 80) CONMIN SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

DATE 82.191/10.53.56 


C 

TOTALLY UNCONSTRAINED FUNCTION WITH LINEAR OBJECTIVE. 

00055 


C 

SOLUTION IS UNBOUNDED. 

00056 

ISN 0027 


WRITE (161,970) LINOBJ.NCON.NSIDE 

00057 

ISN 0028 


RETURN 

00053 

ISN 0029 

50 

CONTINUE 

00059 

ISN 0030 


IDM1=ITRM 

00060 

ISN 0031 


IDM2=ITMAX 

00061 

ISN 0032 


I0M3=ICNDIR 

00062 

ISN 0033 


0M1=0ELFUN 

00063 

ISN 0039 


DM2=0ABFUN 

00069 

ISN 0035 


DM3=CT 

00065 

ISN 0036 


DN9=CTMIN 

00066 

ISN 0037 


DM5=CTL 

00067 

ISN 0038 


DMS^CTLMIN 

00068 

ISN 0039 


DM7=THETA 

00069 

ISN 0090 


DM8-PHI 

00070 

ISN 0091 


DM9=FDCH 

00071 

ISN 0092 


0M10=FDCHM 

00072 

ISN 0093 


DHll=ABOBJl 

00073 

ISN 0099 


0M12=ALPHAX 

00079 






C 

DEFAULTS 

00076 





ISN 0095 


IF (ITRM.LE.O) ITRM=3 

00078 

ISN 0097 


IF ( UMAX. LE. 0 ) ITMAX=20 

00079 

ISN 0099 


NDV1=NDV+1 

00080 

ISN 0050 


IF (ICNDIR.EQ.O) ICNDIR=NDV1 

00081 

ISN 0052 


IF (DELFUN.LE.O. ) DELFUN=.0001 

00082 

ISN 0059 


CT=-ABS(CT> 

00083 

ISN 0055 


IF (CT.GE.O. ) CT=-.l 

000S9 

ISN 0057 


CTMIN=ABS( CTMIN) 

00085 

ISN 0058 


IF (CTMIN. LE.O. ) CTMIN=.009 

00086 

ISN 0060 


CTL=-ABS(CTL) 

00087 

ISN 0061 


IF (CTL.GE.O.) CTL=-0.01 

00088 

ISN 0063 


CTLMIN=ABS( CTLMIN) 

00089 

ISN 0069 


IF (CTLMIN. LE.O. ) CTLMIN=.001 

00090 

ISN 0066 


IF (THETA. LE.O. ) THETA=1. 

00091 

ISN 0068 


IF ( ABOBJ1 . LE.O . ) ABCBJl=.l 

00092 

ISN 0070 


IF ( ALPHAX.LE.O. ) ALPHAX=.l 

00093 

ISN 0072 


IF (FDCH.LE.O. ) FDCH=.01 

00099 

ISN 0079 


IF (FDCHM.LE.O. ) FDCHM=.01 

00095 










c 

INITIALIZE INTERNAL PARAMETERS 

00097 









ISN 0076 


IHFOG-O 

00099 

ISN 0077 


ITER=0 

00100 

ISN 0073 


JDIR=0 

00101 

ISN 0079 


IOBJ=0 

00102 

ISN 0080 


KO3J=0 

00103 

ISN 0081 


NDV2=NDV+2 

00109 

ISN 0082 


KCOUNT=0 

00105 

ISN 00S3 


NCAL(1)=0 

00106 

ISN 0089 


NCAL(2)=0 

00107 

ISN 0085 


NAC=0 

00108 

ISN 0086 


NFEAS=0 

00109 

ISN 0037 


MSCAL=NSCAL 

00110 

ISN 0083 


CT1=ITRM 

00111 

ISN 0089 


CT1=1./CT1 

00112 

ISN 0090 


DCT=( CTMIN/ ABS( CT ) )**CT1 

00113 


PAGE 2 



♦VERSION 1.3.0 (01 MAY SO) CONMIN SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82. 141/10 .53.56 


ISN 

0091 


DCTl=(CTLMIH/AB5(CTL) )**CT1 

00114 

ISN 

0092 


PHI=5. 

00115 

ISN 

0093 


AB0BJ-AB0BJ1 

00116 

ISN 

0094 


NCOBJ=0 

00117 

ISN 

0095 


CTAM=ABS( CTMIN) 

00118 

ISN 

0096 


CTB!1=ABS( CTLMIN ) 

00119 



C 

CALCULATE NUMBER OF LINEAR CONSTRAINTS, NLNC. 

00120 

ISN 

0097 


NLNC=0 

00121 

ISN 

0098 


IF (NCON.EQ.O) GO TO 70 

00122 

ISN 

0100 


DO 60 I=1,NCCN 

00123 

ISN 

0101 


IF (ISC(I).GT.O) NLNC=NLNC*1 

00124 

ISN 

0103 

60 

CONTINUE 

00125 

ISN 

0104 

70 

CONTINUE 

00126 













C 

CHECK TO BE SURE THAT SIDE CONSTRAINTS ARE SATISFIED 

00128 











ISN 

0105 


IF (NSIDE.Eq.O) GO TO 110 

00130 

ISN 

0107 


DO 100 1=1, NDV 

00131 

ISN 

0108 


IF (VLB(I).LE.VUB(I)) GO TO 60 

00132 

ISN 

0110 


XX=.5*( VLB( I )+VU8( I ) ) 

00133 

ISN 

0111 


X(I)=XX 

00134 

ISN 

0112 


VLB( I )=XX 

00135 

ISN 

0113 


VUBt I )=XX 

00136 

ISN 

0114 


WRITE (161,1120) I 

00137 

ISN 

0115 

80 

CONTINUE 

00138 

ISN 

0116 


XX=X( I )-VLB( I ) 

00139 

ISN 

0117 


IF (XX.GE.O. ) GO TO 90 

00140 



C 

LOWER BOUND VIOLATED. 

00141 

ISN 

0119 


WRITE (161,1130) X( I ) > VLB( I ) , I 

00142 

ISN 

0120 


X( I )=VLB( I ) 

00143 

ISN 

0121 


GO TO 100 

00144 

ISN 

0122 

90 

CONTINUE 

00145 

ISN 

0123 


XX=VUB( I )-X( I ) 

00146 

ISN 

0124 


IF (XX.GE.O. ) GO TO 100 

00147 

ISN 

0126 


WRITE (161,1140) X( I ) ,VUB( I ) >1 

00148 

ISN 

0127 


X( I )=VUB( I ) 

00149 

ISN 

0123 

100 

CONTINUE 

00150 

ISN 

0129 

no 

CONTINUE 

00151 













c 

INITIALIZE SCALING VECTOR, SCAL 

00153 











ISN 

0130 


IF (NSCAL.EQ.O) GO TO 150 

00155 

ISN 

0132 


IF (NSCAL.LT. 0) GO TO 130 

00156 

ISN 

0134 


DO 120 1=1, NDV 

00157 

ISN 

0135 

120 

SCAL( I ) — 1 . 

00158 

ISN 

0136 


GO TO 150 

00159 

ISN 

0137 

130 

CONTINUE 

00160 

ISN 

0138 


DO 140 1=1, NDV 

00161 

ISN 

0139 


SI=ABS( SCAL( I ) ) 

00162 

ISN 

0140 


IF (SI.LT.1.0E-20) SI=1.0E-5 

00163 

ISN 

0142 


SCAL( I )=SI 

00164 

ISN 

0143 


SI=1./SI 

00165 

ISN 

0144 


X(I)=X(I)*SI 

00166 

ISN 

0145 


IF (NSIDE.Eq.O) GO TO 140 

00167 

ISN 

0147 


VLB(I)=VLB(I)*SI 

00168 

ISN 

0148 


VUB(I)=VUB(I)*SI 

00169 

ISN 

0149 

140 

CONTINUE 

00170 

ISN 

0150 

150 

CONTINUE 

00171 



C 


00172 



♦VERSION 1.3.0 

(01 MAY 80) CONMIN SYSTEM/370 FORTRAN 

C ***** CALCULATE INITIAL FUNCTION AND 

H EXTENDED (ENHANCED) 
CONSTRAINT VALUES ***** 

DATE 82.141/10 
00173 







ISN 

0151 


INFO=l 


00175 

ISN 

0152 


NCAL<1) = 1 


00176 

ISN 

0153 


IGOTO=1 


00177 

ISN 

0154 


GO TO 950 


00178 

ISN 

0155 

160 

CONTINUE 


00179 

ISN 

0156 


OBJl=OBJ 


00180 

ISN 

0157 


IF (OABFUN.LE.O. ) DABFUN=.001*ABS( OBJ ) 

00181 

ISN 

0159 


IF (DABFUN.LT. 1.0E-10) 0ABFUN=1 .OE-IO 

00182 

ISN 

0161 


IF ( IPRINT.LE.O ) GO TO 270 


00183 















C 

PRINT INITIAL DESIGN 

INFORMATION 

00135 







ISN 

0163 


IF (IPRINT.LE.l) GO TO 230 


00187 

ISN 

0165 


IF ( NSIDE.EQ. 0 . AND .NCON . EQ.O ) WRITE 

(161,1290) 

00188 

ISN 

0167 


IF (NSIDE.NE.O.OR.NCON.GT.O) WRITE (161,1230) 

00189 

ISN 

0169 


WR ITE ( 161 , 1240)1 PR IUT , ND V , ITMAX , NCON 

,NSIDE , ICNDIR ,NSCAL,NFDG, 

LINDB00190 




1J,ITRM,N1,N2,N3,N4,N5 


00191 

ISN 

0170 


WRITE (161,1260) CT , CTMIM , CTL , CTLMIN 

.THETA, PHI, DELFUN.DABFUN 

00192 

ISN 

0171 


WRITE (161,1250) FDCII,FOCHM,ALPHAX,ABOBJ1 

00193 

ISN 

0172 


IF (NSIDE.EQ. 0) GO TO 190 


00194 

ISN 

0174 


WRITE (161,1270) 


00195 

ISN 

0175 


DO 170 1=1 ,NDV>6 


00196 

ISN 

0176 


Ml=MIN0(NDV,I+5) 


00197 

ISN 

0177 

170 

WRITE (161,1010) I,(VLB(J),J=I,M1) 


00193 

ISN 

0173 


WRITE (161,1280) 


00199 

ISN 

0179 


DO 180 1=1 ,NDV»6 


00200 

ISN 

0180 


Ml =MIN0 ( NDV , 1+5 ) 


00201 

ISN 

0181 

180 

WRITE (161,1010) I,(VUB(J),J=I,M1) 


00202 

ISN 

0182 

190 

CONTINUE 


00203 

ISM 

0183 


IF ( NSCAL.GE .0 ) GO TO 200 


00204 

ISN 

0165 


WRITE (161,1300) 


00205 

ISN 

0166 


WRITE (161,1460) ( SCAL( I ) ,1=1 ,NDV) 


00206 

ISN 

0137 

200 

CONTINUE 


00207 

ISN 

0183 


IF (HCCN.EQ.O) GO TO 230 


00208 

ISN 

0190 


IF ( N LNC . EQ . 0 . OR . N LNC . EQ . NCON ) GO TO 

220 

00209 

ISN 

0192 


WRITE (161,1020) 


00210 

ISN 

0193 


DO 210 1=1, NCON, 15 


00211 

ISN 

0194 


M1=MIN0( NCON, 1+14) 


00212 

ISN 

0195 

210 

WRITE (161,1030) I,(ISC(J),J=I,M1) 


00213 

ISN 

0196 


GO TO 230 


00214 

ISN 

0197 

220 

IF (NLNC.EQ.NCON) WRITE (161,1040) 


00215 

ISN 

0199 


IF (NLNC.EQ.O) WRITE (161,1050) 


00216 

ISN 

0201 

230 

CONTINUE 


00217 

ISN 

0202 


WRITE (161,1440) OBJ 


00218 

ISN 

0203 


WRITE (161,1450) 


00219 

ISN 

0204 


DO 240 1=1, NDV 


00220 

ISN 

0205 


Xl = l. 


00221 

ISN 

0206 


IF (HSCAL.NE.O ) XI=SCAL(I) 


00222 

ISN 

0208 

240 

Gl( I )=X( I )*X1 


00223 

ISN 

0209 


DO 250 1=1, NDV, 6 


00224 

ISN 

0210 


M1=HIH0( NDV, 1+5 ) 


00225 

ISN 

0211 

250 

WRITE (161,1010) I , ( Gl( J ) > J=I,M1 ) 


00226 

ISN 

0212 


IF ( NCON. EQ. 0 ) GO TO 270 


00227 

ISN 

0214 


WRITE (161,1470) 


00228 

ISN 

0215 


DO 260 1=1, NCON, 6 


00229 

ISN 

0216 


M1=MIN0( NCON, 1+5) 


00230 

ISN 

0217 

260 

WRITE (161,1010) I,(G(J),J=I,M1) 


00231 



+VERSION 1.3. 
ISN 0218 
ISN 0219 


ISN 0221 
ISN 0222 
ISN 0223 
ISN 0225 
ISN 0227 
ISN 0229 
ISN 0231 
ISN 0233 
ISN 0235 
ISN 0236 


ISN 0233 
ISN 0239 
ISN 0240 
ISN 0242 
ISN 0243 
ISN 0245 
ISN 0246 
ISN 0247 
ISN 0248 
ISN 0249 
ISN 0251 
ISN 0253 
ISN 0254 
ISN 0256 
ISN 0257 
ISN 0258 
ISN 0259 
ISN 0260 
ISN 0261 
ISN 0262 
ISN 0263 
ISN 0264 
ISN 0265 
ISN 0267 
ISN 0269 
ISN 0270 


ISN 0271 
ISN 0272 
ISN 0273 
ISN 0274 
ISN 0275 
ISN 0277 
ISN 0279 
ISN 0280 
ISN 0281 
ISN 0282 
ISN 0284 


0 (01 MAY 80) COHNIN SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.53.56 
270 CONTINUE 00232 

IF ( IPRINT.GT. 1 ) WRITE (161,1360) 00233 

C 00234 

C xxxxxxxxxxxxxxxxxxxx BEGIN MINIMIZATION xxxxxxxxxxxxxxxxxxxxxxxx00235 

C 00236 

280 CONTINUE 00237 

ITER=ITER+1 00238 

IF (AB0BJ1.LT.. 0001) ABOBJ1=.0001 00239 

IF (AB0BJ1.GT..2) AB0BJ1=^2 00240 

IF ( ALPHAX.GT. 1 . ) ALPHAX=1. 00241 

IF (ALFHAX.LT.. 001) ALPHAX=.001 00242 

IF (IPRINT.GT. 2) WRITE (161,1310) ITER 00243 

IF (IPRINT.GT. 3. AND. NCON.GT.O) WRITE (161,1320) CT.CTL.PHI 00244 

CTA=ABS(CT) 00245 

IF (NCOBJ.EQ.O) GO TO 340 00246 

c 00247 

C NO MOVE ON LAST ITERATION. DELETE CONSTRAINTS THAT ARE NO 00248 

C LONGER ACTIVE. 00249 

C 00250 

NNAC=NAC 00251 

DO 290 1=1 ,NNAC 00252 

IF (IC(I).GT.NCON) NAC=NAC-1 00253 

290 CONTINUE 00254 

IF (NAC.LE.O) GO TO 420 00255 

NNAC=NAC 00256 

DO 330 1=1 ,NNAC 00257 

300 NIC=IC( I ) 00258 

CT1=CT 00259 

IF (ISC(NIC).GT.O) CT1=CTL 00260 

IF ( G( NIC ) .GT.CT1 ) GO TO 330 00261 

NAC=NAC-1 00262 

IF (I.GT.NAC) GO TO 420 00263 

DO 320 K=I,NAC 00264 

II=K+1 00265 

DO 310 J=1 ,NDV2 00266 

310 A(J,K)=A( J,II) 00267 

320 IC(K )=IC( II ) 00268 

GO TO 300 , 00269 

330 CONTINUE 00270 

GO TO 420 00271 

340 CONTINUE 00272 

IF ( MSCAL. LT.NSCAL.OR .NSCAL. EG. 0 ) GO TO 360 00273 

IF ( NSCA L . LT . 0 . AND . KCOUNT . LT . ICND IR ) GO TO 360 00274 

MSCAL=0 00275 

KCOUNT=0 00276 

c 00277 

C SCALE VARIABLES 00278 

C 00279 

DO 350 1=1, NDV 00280 

SI=SCAL( I ) 00281 

XI=SI*X(I) 00282 

SIB=SI 00283 

IF (NSCAL.GT. 0 ) SI=ABS(XI) 00284 

IF (SI.LT.1.0E-10) GO TO 350 00285 

SCAL( I )=SI 00286 

SI=1./SI 00287 

X(I)=XI*SI 00288 

IF ( NSIDE . EQ. 0 ) GO TO 350 00289 

VLB(I)=SIB*SI*VLB(I) 00290 



ro 


♦VERSION 1.3.0 (01 MAY 80) 


CONMIN 


SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 


DATE 82. 141/10.53.56 


ISN 

0285 


VUB(I)=SIB*SI*VUB(I) 

00291 

ISN 

0286 

350 

CONTINUE 

00292 

ISN 

0237 


IF (IPRINT.LT. 4. OR. (NSCAL.LT.O. AND. ITER. GT.l)) GO TO 360 

00293 

ISN 

0289 


WRITE (161,1330) 

00294 

ISN 

0290 


WRITE (161,1460) ( SCAL( I ) ,1=1 ,NDV) 

00295 

ISN 

0291 

360 

CONTINUE 

00296 

ISN 

0292 


NSCAL=MSCAL+1 

00297 

ISN 

0293 


NAC=0 

00293 


ISN 0313 
ISN 0314 
ISN 0315 

ISN 0317 
ISN 0318 
ISN 0319 
ISN 0320 
ISN 0321 
ISN 0322 


ISN 0324 
ISN 0325 
ISN 0326 
ISM 0323 
ISN 0329 
ISN 0330 
ISN 0332 
ISN 0333 
ISN 0334 
ISN 0336 
ISN 0337 

ISN 0339 
ISN 0340 


ISN 

0294 


ISN 

0295 


ISN 

0296 


ISN 

0293 


ISN 

0299 


ISN 

0300 

370 

ISN 

0301 


ISN 

0302 

380 

ISN 

0303 


ISN 

0304 


ISN 

0305 


ISN 

0307 

390 

ISN 

0303 


ISN 

0309 


ISN 

0311 



OBTAIN GRADIENTS OF OBJECTIVE AND ACTIVE CONSTRAINTS 
IHFO=2 

NCAL( 2 )=NCAL( 2 HI 

IF (NFDG.NE.l) GO TO 370 

IGOTO=2 

GO TO 950 

CONTINUE 

JGOTO=0 

CONTINUE 

CALL CNMN01 ( JGOTO,X,DF,G,ISC,IC,A,Gl ,VLB,VUB,SCAL,C,NCAL 
1I,XI,III,N1,N2.N3,N4) 

IG0T0=3 

IF ( JGOTO.GT.O ) GO TO 950 
CONTINUE 
INFO=l 

IF (HAC.GE.N3) GO TO 810 
IF (NSCAL.EQ.O.OR.NFDG.EQ.O ) GO TO 420 


C 

c 

c 

c 

400 


410 

420 

C 

C 

C 

c 


SCALE GRADIENTS 


SCALE GRADIENT OF OBJECTIVE FUNCTION. 

DO 400 1=1, NDV 
DF(I)=DF(I )#SCAL( I ) 

IF (NFDG.EQ.2.OR.NAC.EQ.0) GO TO 420 
SCALE GRADIENTS OF ACTIVE CONSTRAINTS. 
DO 410 J=1,NDV 
SCJ=SCAL( J) 

DO 410 1=1, NAC 
A( J , I )=A( J, I )*SCJ 
CONTINUE 

IF (IPRINT.LT. 3. OR. NCON.EQ.O) GO TO 470 


PRINT 


PRINT ACTIVE AND VIOLATED CONSTRAINT NUMBERS. 

M1=0 

M2=N3 

IF (NAC.EQ.O) GO TO 450 
DO 440 1=1, NAC 
J=IC(I) 

IF ( J.GT.NCON) GO TO 440 
GI=G( J ) 

C1=CTAM 

IF (ISC(J).GT.O) C1=CTBM 
GI=GI-C1 

IF (GI.GT.O.) GO TO 430 
ACTIVE CONSTRAINT. 

M1=M1+1 
MS1(M1 )=J 


00299 

00300 
00301 

00302 

00303 

00304 

00305 

00306 

00307 

00308 

00309 
,DX,DX1 ,F00310 

00311 

00312 

00313 

00314 

00315 

00316 

00317 
00318 

00319 
00320 

00321 

00322 

00323 

00324 

00325 

00326 

00327 

00328 

00329 

00330 

00331 
00332 

00333 
00334 

00335 

00336 

00337 

00338 

00339 

00340 

00341 

00342 

00343 

00344 

00345 

00346 

00347 

00348 

00349 
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SI 



♦VERSION 1.3.0 

(01 MAY 80) CONMIN SYSTEM/370 FORTRAN 

H EXTENDED (ENHANCED) 

DATE 82.141/10.53.56 

ISN 

0341 


GO TO 440 


00350 

ISN 

0342 

430 

M2-M2+1 


00351 



C 

VIOLATED CONSTRAINT. 


00352 

ISN 

0343 


MSI (M2 )=J 


00353 

ISN 

0344 

440 

CONTINUE 


00354 

ISN 

0345 

450 

M3=N2-N3 


00355 

ISN 

0346 


WRITE (161,1060) Ml 


00356 

ISN 

0347 


IF (Ml.EQ.O) GO TO 460 


00357 

ISN 

0349 


WRITE (161,1070) 


0035a 

ISN 

0350 


WRITE (161,1430) ( MS1( I ) ,1=1 ,M1 ) 


00359 

ISN 

0351 

460 

WRITE (161,1080) M3 


00360 

ISN 

0352 


IF (M3.EQ.0) GO TO 470 


00361 

ISN 

0354 


WRITE (161,1070) 


00362 

ISN 

0355 


M3=N3+1 


00363 

ISN 

0356 


WRITE (161,1480) ( MSK I ) ,I=M3,M2 ) 


00364 

ISN 

0357 

470 

CONTINUE 


00365 















C 

CALCULATE GRADIENTS OF ACTIVE 

SIDE CONSTRAINTS 

00367 













ISN 

0358 


IF (NSIDE.EQ.O) GO TO 530 


00369 

ISN 

0360 


MCN1=NC0H 


00370 

ISN 

0361 


M1=0 


00371 

ISN 

0362 


DO 510 1=1, NDV 


00372 



C 

LOWER BOUND. 


00373 

ISN 

0363 


XI=X(I) 


00374 

ISN 

0364 


XID=VLB( I ) 


00375 

ISN 

0365 


X12=ABS( XID ) 


00376 

ISN 

0366 


IF (X12.LT. 1. ) X12=l. 


00377 

ISN 

0368 


GI=(XID-XI )/X12 


00378 

ISN 

0369 


IF (GI.LT.-1.0E-6) GO TO 490 


00379 

ISN 

0371 


M1=M1+1 


00380 

ISN 

0372 


MS1(M1 )=-I 


00381 

ISN 

0373 


NAC=NAC+1 


00382 

ISN 

0374 


IF (NAC.GE.N3) GO TO 810 


00333 

ISN 

0376 


MCN1=MCN1+1 


00384 

ISN 

0377 


DO 480 J=1,NDV 


00385 

ISN 

0378 

480 

A( J >NAC )=0 . 


00386 

ISN 

0379 


A( I.NAC )=-l . 


00387 

ISN 

0380 


IC( NAC )=MCN1 


00383 

ISN 

0381 


G( MCN1 )=GI 


00339 

ISN 

03S2 


ISCtNCNl )=1 


00390 



C 

UPPER BOUND. 


00391 

ISN 

0383 

490 

XI0=VU8( I ) 


00392 

ISN 

0384 


X12=ABS(XIO ) 


00393 

ISN 

0385 


IF (X12.LT.1.) X12=l . 


00394 

ISN 

0337 


GI=(XI-XID)/X12 


00395 

ISN 

0388 


IF (GI.LT.-1.0E-6) GO TO 510 


00396 

ISN 

0390 


hl=Ml+l 


00397 

ISN 

0391 


MS1(M1 )=I 


00393 

ISN 

0392 


NAC=HAC+1 


00399 

ISN 

0393 


IF (NAC.GE.N3) GO TO 810 


00400 

ISN 

0395 


MCN1=MCN1+1 


00401 

ISN 

0396 


DO 500 J=1 ,NDV 


00402 

ISN 

0397 

500 

At J,NAC)=0. 


00403 

ISN 

0393 


A(I,NAC)=1. 


00404 

ISN 

0399 


IC(NAC)=MCNl 


00405 

ISN 

0400 


G( MCH1 )=GI 


00406 

ISN 

0401 


ISCtNCNl )=1 


00407 

ISN 

0402 

510 

CONTINUE 


00408 
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♦VERSION 1.3. 


ISN 0403 
ISH 0405 
ISN 0406 
ISN 0403 
ISN 0409 
ISN 0410 

ISN 0411 
ISN 0413 
ISN 0414 
ISN 0415 
ISN 0416 
ISN 0417 
ISN 0419 
ISN 0420 
ISN 0421 
ISN 0422 
ISN 0423 
ISN 0424 
ISN 0426 
ISN 0428 
ISN 0430 
ISN 0431 
ISN 0432 
ISN 0433 
ISN 0434 


ISN 0435 
ISN 0436 


ISN 0438 
ISN 0439 
ISN 0440 

ISN 0441 
ISN 0443 

ISN 0445 
ISN 0446 
ISN 0447 


ISN 0448 
ISN 0449 
ISN 0450 
ISN 0451 


0 (01 MAY 80) CONMIN SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.53.56 

C 00409 

C PRINT 00410 

C 00411 

C PRINT ACTIVE SIDE CONSTRAINT NUMBERS. 00412 

IF (IPRINT.LT. 3) GO TO 530 00413 

WRITE (161,1090) Ml 00414 

IF (Ml.EQ.O) GO TO 530 00415 

WRITE (161,1100) 00416 

WRITE( 161,1480) (MSI ( J ) , J=1 ,M1 ) 00417 

530 CONTINUE 00418 

C PRINT GRADIENTS OF ACTIVE AND VIOLATED CONSTRAINTS. 00419 

IF (IPRINT.LT. 4) GO TO 570 00420 

WRITE (161,1340) 00421 

DO 540 1=1 ,NDV ,6 00422 

Ml=MIN0(UDV,I+5) 00423 

540 WRITE (161,1010) I, ( DF( J ) , J=I ,M1 ) 00424 

IF (NAC.EQ.O) GO TO 570 00425 

URITE (161,1350) 00426 

DO 560 1=1, NAC 00427 

M1=IC( I ) 00428 

M2=M1-NC0N 00429 

M3=0 00430 

IF (M2.GT.0) M3=IABS( MSI (M2 ) ) 00431 

IF (M2.LE.0) WRITE (161,990) Ml 00432 

IF (M2.GT.0) WRITE (161,1000) M3 00433 

DO 550 K=1 >NDV,6 00434 

Ml =MIN0 ( NOV » K+5 ) 00435 

550 WRITE (161,1010) K, ( A( J ,1 ) , J=K,M1 ) 00436 

560 WRITE (161,1360) 00437 

570 CONTINUE 00438 

C 00439 

C a##**##*##***##**# DETERMINE SEARCH DIRECTION *#*#*#*###**3f#*»*x*00440 

C 00441 

ALP=1 . 0E+20 00442 

IF (NAC.GT.O) GO TO 580 00443 

C 00444 

C UNCONSTRAINED FUNCTION 00445 

c 00446 

C FIND DIRECTION OF STEEPEST DESCENT OR CONJUGATE DIRECTION. 00447 

NVC=0 00448 

NFEAS=0 00449 

KCOUNT=KCOUNT+1 00450 

C IF KCOUNT . GT . ICND IR RESTART CONJUGATE DIRECTION ALGORITHM. 00451 

IF ( KCOUNT. GT. ICNDIR .OR . I08J .EQ.2 ) KCOUNT=l 00452 

IF (KCOUNT. EQ. 1 ) JDIR=0 00453 

C IF JDIR = 0 FIND DIRECTION OF STEEPEST DESCENT. 00454 

CALL CNMN02 ( JDIR, SLOPE .DFTDFl ,DF,S,N1 ) 00455 

GO TO 630 00456 

580 CONTINUE 00457 

C 00458 

C CONSTRAINED FUNCTION 00459 

c 00460 

C FINO USABLE-FEASIBLE DIRECTION. 00461 

KCOUNT=0 00462 

JDIR=0 00463 

PHI=10.#PHI 00464 

IF (PHI. GT. 1000.) PHI=1000. 00465 

C CALCULATE DIRECTION, S. 00466 


CALL CNMN05 ( G, OF, A, S,B,C, SLOPE , PHI, ISC, IC, MSI ,NVC,N1 ,N2,N3,N4,N5 ) 00467 


ISN 0453 



+ VERSION 1.3. 
ISN 0454 
ISN 0456 
ISN 0457 
ISN 0458 
ISN 0459 
ISN 0460 
ISN 0461 


ISN 0462 


ISN 0464 
ISN 0466 
ISN 0467 
ISN 0468 
ISN 0469 
ISN 0470 
ISN 0471 
ISN 0473 
ISN 0475 
ISN 0476 
ISN 0477 
ISN 0478 
ISN 0479 
ISN 0481 
ISN 0482 
ISN 0484 
ISN 0485 


ISN 0486 
ISN 0487 
ISN 0488 
ISN 0490 
ISN 0492 
ISN 0493 
ISN 0495 


ISN 0497 
ISN 0493 
ISN 0499 
ISN 0500 
ISN 0501 
ISN 0503 
ISN 0504 
ISN 0506 
ISN 0507 
ISN 0509 
ISN 0511 
ISN 0513 
ISN 0515 
ISN 0517 
ISN 0518 


(01 MAY 80) CONMIN SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.53.56 
IF (IPRINT.LT. 3) GO TO 600 00468 

WRITE (161,1370) 00469 

DO 590 I=1,NAC,6 00470 

H1=MIN0(NAC» 1+5 ) 00471 

590 WRITE (161,1010) I, ( A(NDV1 > J )> J=I,M1 ) 00472 

WRITE (161,1210) S(NDV1) 00473 

600 CONTINUE 00474 

C 00475 

C xxxxxxxxxxxxxxxxxx ONE-DIMENSIONAL SEARCH xxxxxxxxxxxxxxxxxxxxxxxx00476 

c 00477 

IF ( S( NDV1 ) . LT. 1 . OE-6. AND .NVC. EQ.O ) GO TO 710 00478 

C 00479 

C FIND ALPHA TO OBTAIN A FEASIBLE DESIGN 00480 

C 00481 

IF (NVC. EQ.O) GO TO 630 00482 

ALP=-1. 00483 

DO 620 1=1, NAC 00484 

NCI=IC(I) 00485 

C1=G(NCI ) 00486 

CTC=CTAM 00487 

IF (ISC(NCI).GT.O) CTC=CTBM 00488 

IF (Cl.LE.CTC) GO TO 620 00489 

ALP1=0 . 00490 

DO 610 J=1 >NDV 00491 

610 ALPl=ALPl+S(J)xA(J,I) 00492 

ALP1=ALP1#A(NDV2,I) 00493 

IF ( ABS( ALP1 ) . LT. 1 .0E-2O ) GO TO 620 00494 

ALP1=-C1/ALP1 00495 

IF (ALP1.GT.ALP) ALP=ALP1 00496 

620 CONTINUE 00497 

630 CONTINUE 00498 

C 00499 

C LIMIT CHANCE TO ACOBJIXOBJ 00500 

C 00501 

ALP1=1 .0E+20 00502 

SI=AB5( OBJ ) 00503 

IF (SI.LT..01) SI=.01 00504 

IF ( ABS( SLOPE ) .GT. 1 . 0E-20 ) ALP1=ABOBJ1*SI/SLOPE 00505 

ALP1=ABS( ALP1 ) 00506 

IF (NVC.GT.O) ALP1=10.*ALP1 00507 

IF (ALP1.LT.ALP) ALP=ALP1 00508 

C 00509 

C LIMIT CHANGE IN VARIABLE TO ALPHAX 00510 

C 00511 

ALP11=1 . 0E+20 00512 

DO 640 1=1, NDV 00513 

SI=ABS(S( I ) ) 00514 

XI=A8S( X( I ) ) 00515 

IF (SI. LT.1.0E-10. OR.XI.LT. 0.1) GO TO 640 00516 

ALP1=ALPHAX*XI/SI 00517 

IF ( ALP1 . LT.ALP11 ) ALP11=ALP1 00518 

640 CONTINUE 00519 

IF (NVC.GT.O) ALP11=10.*ALP11 00520 

IF (ALP11.LT. ALP) ALP=ALP1 1 00521 

IF ( ALP.GT. 1 .0E+20 ) ALP=1.0E+20 00522 

IF (ALP.LE.1.0E-20) ALP=1.0E-20 00523 

IF (IPRINT.LT. 3) GO TO 660 00524 

WRITE (161,1380) 00525 

DO 650 1=1, NDV, 6 00526 



no 

-£■ 

oo 


♦VERSION 1.3.0 (01 HAY 80) CONMIN 
Ml=MIN0(HDV,I+5) 

WRITE (161,1010) 

WRITE (161,1110) 

CONTINUE 

IF (NCON.GT.O.OR.NSIDE.GT.O) GO TO 680 


SYSTEH/370 FORTRAN H EXTENDED (ENHANCED) 


ISH 

0519 


ISN 

0520 

650 

ISN 

0521 


ISN 

0522 

660 

ISH 

0523 

C 



C 



C 

ISN 

0525 


ISN 

0526 

670 

ISN 

0527 


ISN 

0528 


ISN 

0529 


ISN 

0531 

C 

ISN 

0532 

C 



C 



c 

ISN 

0533 

680 

ISN 

0534 


ISH 

0535 

690 

ISN 

0536 


ISN 

0537 


ISN 

0538 


ISN 

0540 

C 



c 



c 

ISN 

0542 

700 

ISN 

0543 

710 

ISN 

0544 

C 



C 

ISN 

0546 


ISN 

0547 


ISN 

0548 


ISN 

0549 


ISN 

0550 


ISN 

0552 


ISN 

0553 


ISN 

0555 

720 

ISN 

0556 


ISN 

0557 


ISN 

0558 


ISH 

0560 


ISN 

0561 

C 

ISN 

0562 


ISN 

0563 


ISH 

0564 


ISN 

0566 


ISM 

0568 



I,(S( J),J=I,H1) 
SLOPE, ALP 


DO ONE-DIMENSIONAL SEARCH FOR UNCONSTRAINED FUNCTION 


JGOTO=0 

CONTINUE 


DATE 82.141/10.53.56 
00527 
00523 

00529 

00530 

00531 
00532 

00533 

00534 

00535 

OOE36 


CALL CNMN03 (X,S, SLOPE, ALP, FFF.Al ,A2,A3,A4,F1 ,F2,F3,F4,APP,N1 .NCAL00537 


1 , KOUNT , JGOTO ) 

IG0T0=4 

IF ( JGOTO. GT.O) GO TO 950 
JDIR=1 

PROCEED TO CONVERGENCE CHECK. 
GO TO 700 


SOLVE ONE-DIMENSIONAL SEARCH PROBLEM FOR CONSTRAINED FUNCTION 


00538 

00539 

00540 

00541 

00542 
00343 

00544 

00545 

00546 

00547 

00548 

00549 


CONTINUE 
JGOTO=0 
CONTINUE 

CALL CNMN06 (X,VLB,VUB,G,SCAL,DF,S,G1 ,G2,CTAM,CTBM,SLCFE,ALP,A2,A300550 
1 , A4,F1 ,F2,F3,CV1 ,CV2 ,CV3,CV4,ALPCA, ALPFES, ALPLN, ALPMIN, ALPNC, ALFSA00551 
2 V, ALPSID , ALPTOT , ISC,N1 ,N2 >NCAL,NVC, ICQUNT,IGOODl » IG00D2 > IGOOD3 > IGQ00552 
30D4.IBEST, III, NLNC, JGOTO) 00553 

IGQTO=5 00554 

IF (JGOTO. GT.O) GO TO 950 00555 

IF (NAC.EQ.O) JDIR=1 00556 

00557 

UPDATE ALPHAX *###*#***#*XM**#****x**##*00558 

00559 

CONTINUE 00560 

CONTINUE 00561 

IF ( ALP.GT. 1 .OE+19) ALP=0. 00562 

UFDATE ALPHAX TO BE AVERAGE OF MAXIMUM CHANGE IN X(I) 00563 

AND ALHPAX. 00564 

ALP11=0. 00565 

DO 720 1=1, NDV 00566 

SI=ABS( S( I ) ) 00567 

XI=ABS! X( I ) ) 00568 

IF (XI.LT.1.0E-10) GO TO 720 00569 

ALP1=ALP*SI/XI 00570 

IF ( ALP1 .GT.ALP11 ) ALP11=ALP1 00571 

CONTINUE 00572 

ALP1 1= .5*( ALP11+ ALPHAX) 00573 

ALP12=5.*ALPHAX 00574 

IF ( ALP11 .GT.ALP12 ) ALP11=ALP12 00575 

ALPHAX=ALP1 1 00576 

NC03J=NC0BJ+1 00577 

ABSOLUTE CHANGE IN OBJECTIVE. 00576 

OBJD=OBJl-OBJ 00579 

OBJB=ABS( OBJD ) 00580 

IF (03JB.LT. 1.0E-10) OBJB=0. 00581 

IF (NAC.EQ.O. OR. OBJB. GT.O. ) NC0BJ=0 00532 

IF (NCOBJ.GT.l) NCOBJ=0 00583 

00584 ' 

PRINT 00585 
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♦VERSION 1.3.0 (01 MAY 80) CONMIN SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.53.56 

C 00586 * 

C PRINT MOVE PARAMETER, NEW X-VECTOR AND CONSTRAINTS. 00587 

ISN 0570 IF (IPRINT.LT. 3) GO TO 730 00583 

ISN 0572 WRITE (161,1390) ALP 00589 

ISN 0573 730 IF ( IPRINT. LT. 2 ) GO TO 800 00590 

ISN 0575 IF (OBJB.GT.O. ) GO TO 740 00591 

ISN 0577 IF (IPRINT. EQ. 2) WRITE (161,1400) ITER, OBJ 00592 

ISN 0579 IF (IPRINT. GT. 2) WRITE (161,1410) OBJ 00593 

ISN 0581 GO TO 760 00594 

ISN 0532 740 IF ( IPRINT. EQ. 2 ) GO TO 750 00595 

ISN 0584 WRITE (161,1420) OBJ 00596 

ISN 0585 GO TO 760 00597 

ISN 0586 750 WRITE (161,1430) ITER, OBJ 00593 

ISN 0587 760 WRITE (161,1450) 00599 

ISN 0533 DO 770 1=1, NDV 00600 

ISM 0589 FF1=1. 00601 

ISN 0590 IF (NSCAL.HE.O) FF1=SCAL(I) 00602 

ISN 0592 770 G1 ( I )=FF1*X( I ) 00603 

ISN 0593 DO 780 1=1, NDV, 6 00604 

ISN 0594 Ml =MIN0 ( NDV , 1*5 ) 00605 

ISN 0595 780 WRITE (161,1010) I, ( Gl( J ) , J=I ,M1 ) 00606 

ISN 0596 IF (NCON.EQ.O) GO TO 800 00607 

ISN 0598 WRITE (161,1470) 00608 

ISN 0599 DO 790 I=1,NC0H,6 00609 

ISN 0600 M1=MIN0( NCON, 1+5 ) 00610 

ISN 0601 790 WRITE (161,1010) I, ( G( J ) , J=I,M1 ) 00611 

ISN 0602 800 CONTINUE 00612 

C 00613 

C CHECK FEASABILITY 00614 

0 00615 

ISN 0603 IF(NCOH.LE.O) GO TO 808 00616 

ISN 0605 DO 804 1=1, NCON 00617 

ISN 0606 C1=CTAM 00618 

ISN 0607 IF(ISCd).GT.O) C1=CTBM 00619 

ISN 0609 IF(G(I).LE.C1) GO TO 804 00620 

ISN 0611 NFEAS=NFEAS+1 00621 

ISN 0612 GO TO 806 00622 

ISN 0613 804 CONTINUE 00623 

ISN 0614 IF(NFEAS.GT.O) ABOBJ1=.05 00624 

ISN 0616 NFEAS=0 00625 

ISN 0617 PHI=5. 00626 

ISN 0618 806 IF(NFEAS.GE.IO) GO TO 810 00627 

ISN 0620 608 CONTINUE 00628 

C 00629 

C CHECK CONVERGENCE 00630 

C 00631 

C STOP IF ITER EQUALS ITMAX . 00632 

ISN 0621 IF (ITER. GE. ITMAX) GO TO 810 00633 

C 00634 

C ABSOLUTE CHANGE IN OBJECTIVE 00635 

C 00636 

ISN 0623 OB JB=ABS ( OBJO ) 00637 

ISN 0624 KOBJ=KOBJ+l 00638 

ISN 0625 IF ( OB JB . GE . D ABFUN . OR . NFE AS .GT . 0 ) KOBJ=0 00639 

C 00640 

C RELATIVE CHANGE IN OBJECTIVE 00641 

C 00642 

ISN 0627 IF (ABS(OBJl).GT.l.OE-lO) OBJD=OBJD/ABS(OBJl ) 00643 

ISN 0629 A60BJ1 = .5#( ABS( ABOBJ )+ABS( 03 JD ) ) 00644 
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ro 

Ol 

o 


♦VERSION 1.3.0 
ISN 0630 
ISN 0631 
ISN 0632 
ISN 0634 
ISN 0636 


ISN 0637 
ISN 0639 
ISN 0640 
ISN 0641 
ISN 0643 
ISN 0645 
ISN 0646 
ISN 0647 


ISN 0649 

ISN 0651 
ISN 0652 
ISN 0653 
ISN 0655 
ISN 0656 
ISN 0657 


SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 


(01 MAY 80) CONMIN 
AB03J=ABS(0BJD) 

I03J=I0BJ+1 

IF( NFEAS.GT.O . OR .OBJD . GE .DELFUN ) IOBJ=0 
IF ( IOB J . GE . ITRM.OR.KOBJ .GE.ITRM) GO TO 810 
0BJ1=CBJ 


C 

C 

C 


REDUCE CT IF OBJECTIVE FUNCTION IS CHANGING SLOULY 


810 

C 

C 

C 


IF (IOBJ.LT.l.OR.NAC.EQ.O) GO TO 280 

CT=DCT*CT 

CTL=CTL*DCTL 

IF ( ABS( CT ) . LT.CTMIN) CT=-CTMIN 
IF ( ABS(CTL).LT.CTLMIN) CTL=-CTLMIN 
GO TO 280 
CONTINUE 

IF (HAC.GE.N3) WRITE (161,1490) 


**************** FINAL FUNCTION INFORMATION 


OATE 82.141/10.53.56 

00645 

00646 

00647 

00648 
0C649 

00650 

00651 

00652 

00653 

00654 

00655 

00656 

00657 

00658 

00659 

00660 

00661 

********************00662 
00663 


820 

C 

C 

C 


IF (NSCAL.EQ.O) GO TO 830 
UN-SCALE THE DESIGN VARIABLES. 
DO 820 1=1, NDV 
XI=SCAL( I ) 

IF (NSIDE.Eq.O) GO TO 820 
VLB( I )=XI*VLB( I ) 
VUB(I)=XI*VUB(I) 

X(I)=XI*X(I) 


PRINT FINAL RESULTS 


00664 

00665 

00666 

00667 

00668 

00669 

00670 

00671 
-00672 

00673 

-00674 


ISN 

0658 

830 

IF ( IPRINT.EQ.O.OR.NAC.GE.N3) GO TO 940 

00675 

ISN 

0660 


WRITE (161,1500) 

00676 

ISN 

0661 


WRITE (161,1420) OBJ 

00677 

ISN 

0662 


WRITE (161,1450) 

00678 

ISN 

0663 


DO 840 1=1, NDV, 6 

00679 

ISN 

0664 


M1=MIN0( NDV , 1+5 ) 

00630 

ISN 

0665 

840 

WRITE (161,1010) I > ( X( J ) , J=I,M1 ) 

00681 

ISN 

0666 


IF (NCON.EQ.O) GO TO 900 

00682 

ISN 

0660 


WRITE (161,1470) 

00683 

ISN 

0669 


DO 850 I=1,NC0N,6 

00684 

ISN 

0670 


Ml =MIN0 ( NCON , 1+5 ) 

00685 

ISN 

0671 

850 

WRITE (161,1010) I,(G(J),J=I,M1) 

00686 



C 

DETERMINE WHICH CONSTRAINTS ARE ACTIVE AND PRINT. 

00637 

ISN 

0672 


NAC=0 

00688 

ISN 

0673 


NVC=0 

00689 

ISN 

0674 


DO 870 1=1, NCON 

00690 

ISN 

0675 


CTA=CTAM 

00691 

ISN 

0676 


IF (ISC(I).GT.O) CTA=CTBM 

00692 

ISN 

0678 


GI=G( I ) 

00693 

ISN 

0679 


IF (GI.GT.CTA) GO TO 860 

00694 

ISN 

0631 


IF (GI.LT.CT.AND.ISC(I).EQ.O) GO TO 870 

00695 

ISN 

0683 


IF ( GI. LT.CTL. AND. ISC( I ) .GT.O ) GO TO 870 

00696 

ISN 

0635 


NAC=NAC+1 

00697 

ISN 

0636 


IC( NAC )=I 

00693 

ISN 

0667 


GO TO 870 

00699 

ISN 

0688 

860 

NVC=NVC+ 1 

00700 

ISN 

0689 


MSI ( NVC)=I 

00701 

ISN 

0690 

670 

CONTINUE 

00702 

ISN 

0691 


WRITE (161,1060) NAC 

00703 
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+ VERSION 1.3.0 
ISH 0692 
ISM 0699 
ISN 0695 
ISH 0696 
ISN 0697 
ISN 0699 
ISN 0700 
ISN 0701 
ISH 0702 
ISN 0703 

ISN 0705 
ISN 0706 
ISN 0707 
ISN 0708 
ISN 0709 
ISN 0710 
ISN 0712 
ISN 0713 
ISN 0715 
ISN 0716 
ISN 0717 
ISN 0718 
ISN 0719 
ISN 0721 
ISN 0722 
ISN 0729 
ISN 0725 
ISN 0726 
ISN 0727 
ISN 0723 
ISN 0730 
ISN 0731 
ISN 0732 
ISN 0733 
ISN 0739 
ISN 0736 
ISN 0738 
ISN 0790 
ISN 0792 
ISN 0793 
ISN 0799 
ISN 0796 
ISN 0798 


(01 MAY 80) CONMIN SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 
IF (NAC.Eq.O) GO TO 880 
WRITE (161,1070) 

WRITE (161,1930) ( IC( J ) , J=1 ,NAC ) 

880 WRITE (161,1080) NVC 

IF (NVC.EQ.O) GO TO 890 
WRITE (161,1070) 

WRITE (161,1980) (MS1( J) , J=1 ,NVC ) 

890 CONTINUE 
900 CONTINUE 

IF (NSIOE.EQ.O) GO TO 930 

C DETERMINE WHICH SIDE CONSTRAINTS ARE ACTIVE AND PRINT. 
NAC=0 

DO 920 1=1 »NDV 
XI=X(I) 

XID=VLB( I ) 

X12=ABS(XID ) 

IF (X12.LT. 1 . ) X12-1. 

GI=( XIO-XI 1/X12 
IF (GI.LT.-1.0E-6) GO TO 910 
NAC=NAC+1 
H51(HAC)=-I 
910 XID=VUB( I ) 

X12=AES( XIO ) 

IF (X12.LT.1.) X12=l . 

GI=( XI-XID )/X12 
IF (GI.LT.-1.0E-6) GO TO 920 
NAC=NAC+1 
MSI ( NAC )=I 
920 CONTINUE 

WRITE (161,1090) NAC 
IF (NAC.EQ.O) GO TO 930 
WRITE (161,1100) 

WRITE (161,1980) (MS1( J) , J=1 ,NAC ) 

930 CONTINUE 

WRITE (161,1150) 

IF ( ITER. GE. UMAX) WRITE (161,1160) 

IF (NFEAS.GE. 10 ) WRITE (161,1170) 

IF (IOSJ.GE.ITRM) WRITE (161,1180) ITRM 
IF (K03J.GE.ITRM) WRITE (161,1190) ITRM 
WRITE (161,1200) ITER 
WRITE (161,1510) NCAL(l) 

IF (NCON.GT. 0 ) WRITE (161,1520) NCAL( 1 ) 

IF ( NFDG.NE. 0 ) WRITE (161,1530) NCAL(2) 

IF ( NCOH . GT . 0 . AND . NFDG . EQ . 1 ) WRITE (161,1590) NCAU2) 


RE-SET BASIC PARAMETERS TO INPUT VALUES 


ISH 0750 
ISN 0751 
ISN 0752 
ISN 0753 
ISN 0759 
ISN 0755 
ISH 0756 
ISN 0757 
ISN 0758 
ISN 0759 
ISN 0760 
ISH 0761 


ITRM=IDM1 

ITMAX=IDM2 

ICNDIR=IDM3 

DELFUN=DM1 

0ABFUN=DM2 

CT=DM3 

CTI1IN=DM9 

CTL=DM5 

CTLMIN=DM6 

THETA=DM7 

FHI=DM8 

FDCH=DM9 
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DATE 82.191/10.53.56 
00709 

00705 

00706 

00707 

00708 

00709 

00710 

00711 

00712 

00713 
00719 

00715 

00716 

00717 

00718 

00719 

00720 

00721 

00722 

00723 
00729 

00725 

00726 

00727 

00728 

00729 

00730 

00731 

00732 

00733 
00739 

00735 

00736 

00737 

00738 

00739 

00790 

00791 

00792 

00793 
00799 

00795 

00796 

00797 
00798 

00799 
00750 

00751 

00752 * 

00753 
00759 

00755 

00756 

00757 

00758 

00759 

00760 

00761 

00762 



♦VERSION 1.3.0 (01 MAY 80) 


CONMIN 


SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 


DATE 82.141/10.53.56 



ISM 0762 


F0CHM=DM10 

00763 


ISM 0763 


ABOSJ1-DM1 1 

00764 

PO 

ISN 0764 


ALPHAX-DM12 

00765 

cn 

ISN 0765 


IGOTO=0 

00766 

PO 

ISN 0766 

950 

CONTINUE 

00767 


ISN 0767 


IF ( NSCAL. EQ. 0 .OR.IGOTO.EQ.O ) RETURN 

00768 



C 

UN-SCALE VARIABLES. 

00769 


ISN 0769 


DO 960 1=1, NDV 

00770 


ISN 0770 


C(I)=X(I) | 

00771 


ISN 0771 

960 

X(I)=X(I)*SCAL(I) 

00772 


ISN 0772 


RETURN 

00773 


ISN 

0773 

970 

ISN 

0774 

980 

ISN 

0775 

990 

ISN 

0776 

1000 

ISN 

0777 

1010 

ISN 

0778 

1020 

ISN 

0779 

1030 

ISN 

0780 

1040 

ISN 

0781 

1050 

ISN 

0732 

1060 

ISN 

0783 

1070 

ISN 

0784 

1080 

ISN 

0785 

1090 

ISN 

0786 

1100 

ISN 

0787 

1110 

ISN 

0768 

1120 

ISN 

0789 

1130 

ISN 

0790 

1140 

ISN 

0791 

1150 

ISN 

0792 

1160 

ISN 

0793 

1170 

ISN 

0794 

1180 

ISN 

0795 

1190 

ISN 

0796 

1200 

ISN 

0797 

1210 

ISN 

0793 

1220 


00 7 7 4 

FORMATS 00775 

00776 

00777 

00778 

FORMAT (///5X.72HA COMPLETELY UNCONSTRAINED FUNCTION WITH A LINEAR00779 
1 OBJECTIVE IS SPECIFIED//IOX18HLIHOBJ = » I5/10X , 8HNC0N =,I5/10X, 800780 

2HNSIDE = 1 15//5X > 35HC0NTR0L RETURNED TO CALLINS FRGSRAM) 00781 

FORMAT (///5X.56HC0NMIN HAS ACHIEVED A SOLUTION OF 03J LESS THAN -00782 
1 1 . 0E+4O/5X, 32HSOLUTION APPEARS TOABE UNEOUKDED/5X,26KOPTIMIZATION 00783 
2IS TERMINATED) 00784 

FORMAT ( 5X» 17HCONSTRAINT NUMBER, 15) 00785 

FORMAT (5X.27HSIDE CONSTRAINT ON VARIABLE, 15) 00786 

FORMAT ( 3X , 15 , 1H ) , 2X , 6E 13. 5 ) 00787 

FORMAT (/5X.35H LINEAR CONSTRAINT IDENTIFIERS ( ISC )/5X , 36HN0N-ZER0 00788 
1INDICATES LINEAR CONSTRAINT) 00739 

FORMAT ( 3X, 15, 1H ) ,2X, 1515 ) 00790 

FORMAT (/5X.26HALL CONSTRAINTS ARE LINEAR) 00791 

FORMAT (/5X.30HALL CONSTRAINTS ARE NON-LINEAR) 00792 

FORMAT (/5X.9HTHERE ARE,I5,19H ACTIVE CONSTRAINTS) 00793 

FORMAT l 5X , 22HCONSTRAINT NUM3ERS ARE) 00794 

FORMAT ( /5X, 9HTHERE ARE.I5.21H VIOLATED CONSTRAINTS) 00795 

FORMAT (/5X,9HTHERE ARE.I5.24H ACTIVE SIDE CONSTRAINTS) 00796 

FORMAT ( 5X , 43HD ECISION VARIABLES AT LOWER OR UPPER BOUNDS, 30H (MIN00797 
1US INDICATES LOHER BOUND)) 00798 

FORMAT ( /5X , 22HONE-DIMENSICNAL SEARCH/5X , 15HINITIAL SLOPE =,E12.4,00799 
12X, 16HPR0P03ED ALPHA =,E12.4) 00800 

FORMAT (///5X,35H# * CONMIN DETECTS VLB( I ) . GT. VU3( I )/5X ,57HFIX IS 00S01 
1SET X( I )=VLB( I )=VUB{ I ) = .5*( VLB( I )+VU3( I ) FOR I =,I5) 00802 

FORMAT (///5X.41H* # CONMIN DETECTS INITIAL X( I ) . LT. VLB( I )/5X,6HX( 00803 
II) =, E12 .4, 2X,8HVLB( I ) =, E12 .4/5X, 35HX( I ) IS SET EQUAL TO VLB(I) F00804 
20R I =,I5) 00605 

FORMAT (///5X.41H* * CONMIN DETECTS INITIAL X( I ) .GT. VUB1 I )/5X,6HX( 00806 
II) =,E12.4,2X,8HVUB(I) = , E 12 . 4/5X , 35HXI I ) IS SET EQUAL TO VUB(I) F00807 
20R I = ,I5) 00808 

FORMAT ( /5X» 21HTERMINATION CRITERION) 00609 

FORMAT ( 10X, 17HITER EQUALS ITMAX ) 00310 

FORMAT (10X.62HTEN CONSECUTIVE ITERATIONS FAILED TO PRODUCE A FEAS00811 
1IBLE DESIGN) 00812 

FORMAT ( 10X,43HABS( 1-CBJ( I-i )/OBJ( I ) ) LESS THAN DELFUN F0R,I3,11H 00813 
1 ITERATIONS) 00814 

FORMAT ( 10X,43HABS( OBJ( I )-OBJ( 1-1 ) ) LESS THAN DABFUN F0R,I3,11H 00815 
1ITERATIONS ) 00816 

FORMAT (/5X.22HNUMBER OF ITERATIONS =,I5) 00817 

FORMAT ( /5X , 28HCCNSTR AINT PARAMETER, BETA =,E14.5) 00818 

FORMAT ( 1H1 ,////12X, 27( 2H* )/12X, 1H*,51X, 1H*/1 2X, 1H#,20X, 11HC 0 N 00319 
1M I N,20X,IH#/12X,1H#,51X,1H#/12X,1H#,15X,21H FORTRAN PROGRAM FOR 00820 
2,15X,1H*/12X,1H*,51X,1H#/12X,1H*,9X,33HC0NSTRAINED FUNCTION MINIMI00821 
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♦VERSION 1.3.0 (01 MAY 80) CONMIN SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.53.56 
3ZATICN,9X,1H*/12X,1H*,51X,1H*/12X,27(2H* )) 00322 

FORMAT ( ////5X , 33HCONSTR AINEO FUNCTION MININIZATI0N//5X, 18HCONTROL00823 
1 PARAMETERS) 00824 

FORMAT (/5X.60HIPRINT NDV ITMAX NCON NSIDE ICNDIR NSC00825 
1AL NFDG/8I8//5X> 12HLIN0BJ ITRM, 5X.2HN1 ,6X,2HN2 ,6X, 2HN3,6X,2HN4, 00826 
26X.2HN5/8I8) 00827 

FORMAT (/9X,4HFDCH,12X,5HFDCHM,11X,6HALPHAX,10X,6HABOBJ1/1X,4(2X,E00828 
114.5)) 00829 

FORMAT </9X,2HCT,14X,5HCTMIN,llX,3HCTL,13X,6HCTLMIN/lX,4(2X,E14. 5 100830 
1//9X,5HTHETA,11X,3HPHI,13X,6HDELFUN,10X,6HDABFUN/1X,4(2X,E14.5)) 00831 

FORMAT (/5X.40HLOWER BOUNDS ON DECISION VARIABLES (VLB)) 00832 

FORMAT (/5X.40HUPPER BOUNDS OH DECISION VARIABLES (VUB)) 00833 

FORMAT ( ////5X > 35HUNC0NSTRAINED FUNCTION MINIMIZATI0N//5X, 18HCONTR00834 
10L PARAMETERS) 00835 

FORMAT (/5X.21HSCALING VECTOR (SCAL)) 00836 

FORMAT ( ////5X > 22HBEGIN ITERATION NUMBER, 15) 00S37 

FORMAT (/5X.4HCT =,E14.5,5X,5HCTL =,E14.5,5X,5HPHI =,E14.5) 00833 

FORMAT (/5X,25HHEW SCALING VECTOR (SCAD) 00839 

FORMAT (/5X» 15HGRADIENT OF OBJ) 00840 

FORMAT (/5X.44HGRADIEHTS OF ACTIVE AND VIOLATED CONSTRAINTS) 00841 

FORMAT (1H ) 00842 

FORMAT ( /5X > 37H PUSH-OFF FACTORS, (THETA(I), 1=1, MAC)) 00843 

FORMAT (/5X.27HSEARCH DIRECTION (S-VECTCR)) 00844 

FORMAT ( /5X, 18HCALCULATED ALPHA =,E14.5) 00845 

FORMAT (////5X.6HITER =,I5,5X,5HG3J =,E14.5,5X,16HN0 CHANGE IN OBJ00846 
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ISN 

0799 

1230 

ISN 

0800 

1240 

ISN 

0801 

1250 

ISN 

0802 

1260 

ISN 

0803 

1270 

ISN 

OS04 

iaeo 

ISN 

0805 

1290 

ISN 

0806 

1300 

ISN 

0807 

1310 

ISN 

0808 

1320 

ISN 

0809 

1330 

ISN 

0810 

1340 

ISN 

0811 

1350 

ISN 

0812 

1360 

ISN 

0813 

1370 

ISN 

0814 

1380 

ISN 

0815 

1390 

ISN 

0Q16 

1400 

ISN 

0817 

1410 

ISN 

0818 

1420 

ISN 

0819 

1430 

ISN 

0820 

1440 

ISN 

0821 

1450 

ISN 

0622 

1460 

ISN 

0823 

1470 

ISN 

0824 

1480 

ISN 

0825 

1490 

ISN 

0826 

1500 

ISN 

0827 

1510 

ISN 

0828 

1520 

ISN 

0829 

1530 

ISN 

0830 

1540 


1 ) 


00847 

00348 

00849 

00350 

00851 

00852 

00853 

00854 

00855 


FORMAT (/5X.5H0BJ =, E15.6 ,5X, 16HN0 CHANGE ON OBJ) 

FORMAT (/5X.5H0BJ =,E15.6) 

FORMAT (////5X.6HITER =,I5,5X,5H03J =,E14.5) 

FORMAT ( //5X, 28HINITIAL FUNCTION INF0RI1ATION//5X,5H03J =,E15.6) 

FORMAT ( /5X , 29HD ECISION VARIABLES (X-VECTCR)) 

FORMAT ( 3X.7E13.4) 

FORMAT ( /5X , 2SHCONSTRAINT VALUES (G-VECTOR)) 

FORMAT (5X.15I5) 

FORMAT ( /5X,59HTHE NUMBER OF ACTIVE AND VIOLATED CONSTRAINTS EXCEE00356 
IDS N3-1./5X,66HDIMENSI0NED SIZE OF MATRICES A AND B AND VECTOR IC 00857 
2IS INSUFFICIENT/5X , 6 1HOPTIMIZATION TERMINATED AND CONTROL RETURNED00858 
3 TO MAIN PROGRAM.) 00859 

FORMAT ( 1H1.////4X.30HFINAL OPTIMIZATION INFORMATION) 00860 

FORMAT (/5X.32H0BJECTIVE FUNCTION HAS EVALUATED ,8X, 15, 2X.5HTIMES ) 00861 
FORMAT ( /5X , 35HCONSTRAINT FUNCTIONS WERE EVALUATED , HO ,2X,5HTIMES >00862 
FORMAT ( /5X , 36HGRADIENT OF OBJECTIVE WAS CALCULATED , 19 ,2X,5HTIMES )00363 
FORMAT (/5X.40HGRADIENTS OF CONSTRAINTS HERE CALCULATED, 15, 2X.5HTI00864 
1MES) 00865 

END 00866 

^OPTIONS IN EFFECT*NAME(MAIN ) OPTIMIZE(3) LINECOUNT(60 ) SIZE(MAX) AUTODBL(NONE) 

^OPTIONS IN EFFECT*SOURCE EECDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOAMSF TERM IBM FLAG(I) 
^STATISTICS* SOURCE STATEMENTS = 830, PROGRAM SIZE = 15164, SUBPROGRAM NAME =CONMIN 

^STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 2844K BYTES OF CORE NOT USED 


ISN 0831 


po 

ui 

CO 



ro 

in 

•f* 


♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.54.12 PAGE 1 

REQUESTED OPTIONS: SOURCE , NOMAP, NOXREF, NOLIST, NODECK, 0PT( 3 ) , AUTODBLUIONE ) ,NOALC 
OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNT(60) SIZE(MAX) AUTGDBU HONE ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 


ISN 0002 
ISN 0003 


ISN 0004 
ISN 0005 


ISN 0006 
ISN 0007 
ISN 0008 
ISN 0009 


ISN 0010 
ISN 0011 
ISN 0012 
ISN 0013 
ISN 0014 
ISN 0015 
ISN 0016 
ISN 0017 
ISN 0018 
ISN 0019 
ISN 0020 
ISN 0022 
ISN 0024 

ISN 0026 
ISN 0027 

ISN 0029 
ISN 0030 
ISN 0031 

ISN 0032 
ISN 0033 
ISN 0034 

ISN 0035 
ISN 0036 
ISN 0037 
ISN 0038 


C DATA SET U477COPE01 AT LEVEL 003 AS OF 03/17/81 

C DATA SET U477COPE01 AT LEVEL 002 AS OF 03/13/81 00001 

C DATA SET U477COPE01 AT LEVEL 001 AS OF 02/13/61 00002 

C DATA SET 9188COPE01 AT LEVEL 001 AS OF 07/10/80 00003 

SUBROUTINE COPEOl (RA,IA,NDRA,NDIA> 00004 

COMMON /CNMN1/ DELFUN,DABFUN,FDCH,FDCHM,CT,CTMIN,CTL,CTLMIN,ALPHAX00005 
l.ABOBJl, THETA, OBJ , NOV, NCON, NSIOE. IPRINT, NFDG, NSCAL, LINOBJ , UMAX, IT00006 
2RM , ICNDIR , IGOTO , NAC , INFO , INFOG .ITER 00007 

COMMON /COPES1/ ATITLE( 20 ) 00008 

COMMON /C0PES3/ SGNOPT.NCALC.I08J,NSV,NSOBJ,NCONA,N2VX,M2VX,N2VY,M00009 
1 2 VY , N2VAR , IPSENS , IP2VAR , IPDBG , NACMX1 , NDVTOT , LOCR ( 25 ) , LOCI ( 25 ) , ISCRO 00 1 0 
21 .ISCR2 .NXAFRX.NPS.NPFS .NPA.NF.IHOM. IPAPRX.KMIN.KMAX.Xr ACT1 .XFACT20001 1 
3 , NAN2 , HAN3 , NPMAX .NPTOT , JNOM , M AXTRM 00012 

COMMON /UIOS/ 151, 16 I 00013 

DIMENSION RA(NDRA), IA(NDIA), TITLE(20) 00014 

DATA END 1/1HE/ . EHD2/1HN/. END3/1HD/ 00015 

DATA COM/1HO/.BLANK/1H / 00016 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX00017 

C ROUTINE TO READ CONTROL INPUT FOR COPES. 00018 

0 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXO00 1 9 

C BY G. N. VANDERPLAATS MAR., 1973. 00020 

C NASA-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 00021 

C 00022 

C READ CARD IMAGES AND STORE ON UNIT ISCR2. STORE ON UNIT ISCR1 00023 

C WITHOUT COMMENT CARDS 00024 

C 00025 

REWIND ISCR1 00026 

REWIND ISCR2 00027 

NCARDS-0 00028 

LOCK 25 )=0 00029 

NC0M=0 00030 

ICARD=0 00031 

10 READ (151,580) (RA( I ) ,1=1 ,80 ) 00032 

ICARD=ICARD+1 00033 

NCARDS=NCARDS+1 00034 

WRITE ( ISCR2 ,590 ) NCARDS, ( RA( I ) ,1=1 ,80 ) 00035 

IF (RA(1). EQ.COM) GO TO 10 00036 

IF (RA(1). EQ.END1. AND. (RA( 2 ) .EQ.EN02 . AND. RA( 3 ) . EQ. END3 ) ) GO TO 20 00037 
IF (NCOM.NE . 0 ) GO TO 30 00038 

C TITLE OR END CARD. 00039 

20 WRITE (ISCR1.580) (RAC I ) ,1=1 ,80 ) 00040 

IF (NCOM.GT.O) GO TO 70 00041 

C IT WAS THE TITLE CARD. 00042 

NCOM=l 00043 

GO TO 10 00044 

30 CONTINUE 00045 

C FORMAT DATA AS REQUIRED. 00046 

NA=1 00047 

NB=81 00048 

CALL COPE03 ( RA(HA ) ,RA(NB ) ,IFORM,NFLD ) 00049 

C DETERMINE NUMBER OF CARDS OF DATA AND ADD BLANKS TO FILL. 00050 

NBC=(NFLD-1 )/8+l 00051 

NB=80xNBC+80 00052 

NA=10XNFLD*81 00053 

IF (NA.GE.NB) GO TO 50 00054 


ro 

in 

in 


♦VERSION 1.3.0 
ISN 0040 
ISM 0041 
ISM 0042 
ISM 0043 
ISM 0044 


ISN 0085 


ISN 0086 


(01 MAY 80) COPEOl 
DO 40 I=NA,NB 
RA( I )=BLANK 
CONTINUE 

WRITE ( ISCR1 >580 ) ( RA( I ) ,1=81 ,NB ) 
IF ( IFORM.GT. 0 ) GO TO 10 
DATA WAS NOT PREVIOUSLY FORMATTED. 


SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 


40 

50 


ISN 0046 


Nl = l 

ISN 0047 


DO 60 11=1, NBC 

ISN 0048 


Nl=Nl+80 

ISN 0049 


N2=Nl+79 

ISM 0050 


WRITE (ISCR2.590) NCARDS, ( RAI I ) ,I=N1 ,N2 ) 

ISM 0051 

60 

ICARD=ICARD+1 

ISN 0052 


GO TO 10 

ISN 0053 

70 

CONTINUE 

ISN 0054 


REWIND ISCR1 

ISM 0055 


REWIND ISCR2 


c 

GENERAL SYNTHESIS INFORMATION 


C 

TITLE. 


c 

DATA BLOCK A. 

ISN 0056 


READ ( ISCR1 ,1190 ) ( ATITLE( I ) ,1=1 ,20 ) 


c 

CONTROL PARAMETERS. 


c 

DATA BLOCK B. 

ISN 0057 


READ ( ISCR1 ,1200 ) NCALC,NDV,NSV,N2VAR,NXAPRX,IPNPUT,IPD3G 

ISN 0058 


IF (NCALC. LT.O.OR.NCALC.GT.6 ) WRITE (161,1220) NCALC 

ISN 0060 


IF (NCALC. LT.O.OR.NCALC.GT.6) RETURN 

ISN 0062 


IF ( IPMPUT.GT. 1 ) GO TO 100 

ISN 0064 


WRITE (161,970) 

ISN 0065 


WRITE (161,980) 

ISN 0066 


WRITE (161,990) ( ATITLE( I ) ,1=1 ,20 ) 


c 

CARD IMAGE PRINT 

ISN 0067 


IF (IPNPUT.GT.O) GO TO 90 

ISN 0069 


WRITE (161,870) 

ISN 0070 


WRITE (161,880) 

ISN 0071 


DO 80 1=1 , ICARD 

ISN 0072 


READ ( ISCR2 ,590 ) NCARDS, (RA( J ) ,J=1 ,80 ) 

ISN 0073 

80 

WRITE (161,890) NCARDS, ( RA( J ) ,J=1 ,80 ) 

ISN 0074 


REWIND ISCR2 

ISN 0075 

90 

CONTINUE 

ISM 0076 


WRITE (161,1000) ( ATITLE( I ),I=1,20) 

ISN 0077 


WRITE (161,1010) NCALC, NDV,NSV,N2VAR ,HXAPRX,IPNPUT, IFDBG 

ISM 0078 


WRITE (161,910) 

ISN 0079 

100 

NACMX1=0 

ISM 0080 


NDVTOT=0 

ISN 0081 


NCONA=0 

ISN 0082 


NC0N=0 

ISM 0083 


IF (NDV.LE.O) GO TO 270 


c 

c 

OPTIMIZATION INFORMATION 


CONMIN DEPENDENT. 


OPTIMIZATION CONTROL VARIABLES. 

DATA BLOCK C. 

READ (ISCR 1,1200) IPRINT, ITMAX , ICNDIR , MSCA L , ITRM , LINOB J , NACMX 1 , MFD 0 0 1 1 0 
10 00111 
— DATA BLOCK D. 00112 

READ ( ISCR 1 , 1210 ) FDCH, FDCHM,CT,CTMIN,CTL,CTLMIN, THETA, PHI, DELFUN, 001 13 


DATE 82.141/10.54.12 

00055 

00056 

00057 
00053 

00059 

00060 
00061 
00062 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

00070 

00071 

00072 

00073 

00074 

00075 

00076 

00077 

00078 

00079 

00080 
00C81 
00082 
00033 

00084 

00085 

00086 
00037 
00033 

00089 

00090 

00091 

00092 

00093 

00094 

00095 

00096 

00097 
00093 

00099 

00100 
00101 
00102 
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♦VERSION 1.3.0 (01 MAY 80) COPEOl SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.54.12 
ID ABFUN » ALPHAX , ABOB J 1 00114 

C — DATA BLOCK E. 00115 

C TOTAL NO. OF D. V., OBJECTIVE GLOBAL NUMBER, SIGN 00116 


ro 



C 

ON OPTIMIZATION OBJECTIVE. 

00117 

cn 

ISN 

0087 


READ ( ISCR1 > 920 ) NDVTOT.IOBJ.SGIIOPT 

00118 


ISN 

0088 


IF (NDVTOT.LT.NDV) NDVTOT-NOV 

00119 


ISN 

0090 


IF ( NCALC . EQ . 6 . AND . NACMX1 . EQ . 0 ) NACMXl=2*NDV+2 

00120 


ISN 

0092 


IF (NACMXl.LE.O) NACMXl=NDV+2 

00121 


ISN 

0094 


IF ( IPNPUT.GE.2 ) GO TO 110 

00122 


ISN 

0096 


IF ( ABS( SGNOPT) . LT.1.0E-10) SGN0PT=-1. 

00123 


ISN 

0093 


WRITE (161,1070) IOBJ, SGNOPT 

00124 


ISN 

0099 


WRITE (161,760) IPRINT,ITMAX,ICNDIR,NSCAL,ITRM, 

LINOBJ.NACMXl ,NFDG 00125 


ISN 

0100 


WRITE (161,770) FDCH , FDCHM , CT , CTMIN , CTL , CTLMIN, 

THETA, PHI, DELFUN.DA00126 





1UN, ALPHAX, ABOBJ1 

00127 


ISN 

0101 

110 

N2=NDV+3 

00128 


ISN 

0102 


N3-N2+NDV+2 

00129 


ISN 

0103 


N4-N3+NDV+2 

00130 




C — 

- DATA BLOCK F. 

00131 




C 

DESIGN VARIABLE INFORMATION, LB, UB, INITIAL VALUE, SCAL. 00132 


ISN 

0104 


IF (IPNPUT.LT. 2) WRITE (161,1080) 

00133 


ISN 

0106 


N5=N4+NDV+2 

00134 


ISN 

0107 


IF ( N5. LE.NDRA) GO TO 120 

00135 


ISN 

0109 


WRITE (161,780) 

00136 


ISN 

0110 


WRITE (161,790) 

00137 


ISN 

0111 


LOCR( 25 )=N5 

00138 


ISN 

0112 


GO TO 550 

00139 


ISN 

0113 

120 

CONTINUE 

00140 


ISN 

0114 


NSIDE=0 

00141 


ISN 

0115 


DO 130 1=1, NDV 

00142 


ISN 

0116 


READ ( ISCR1 , 1060 ) RA(N2 ) >RA(N3) >RA( I ) ,RA(H4)> (TITLE (J ) , J=1 >5) 00143 


ISN 

0117 


IF (RA( H2 ) .GT. -1 . 0E+15.OR ,RA(N3 ) . LT. 1 . OE+15) HSIDE=1 00144 


ISN 

0119 


IF (RA( N2 ). LE.-l . OE+15 ) RA(N2 )=-l . 1E+15 

00145 


ISN 

0121 


IF (RA(N3).GE.l. OE+15) RA(N3)=1 .1E+15 

00146 


ISN 

0123 


IF (IPNPUT.LT. 2 )WRITE (161, 1090)1, RA(N2),RA(N3) 

,RA( I ) , RA( N4 ) , ( TITL00147 





1E( J ) > J=1 ,5) 

00143 


ISN 

0125 


N2=N2+1 

00149 


ISN 

0126 


N3=N3+1 

00150 


ISN 

0127 


N4=N4+1 

00151 


ISN 

0128 

130 

CONTINUE 

00152 




C — 

- DATA BLOCK G. 

00153 




C 

D. V. NO., GLOBAL LOCATION, MULTIPLYING FACTOR. 

00154 


ISN 

0129 


IF (IPNPUT.LT. 2) WRITE (161,930) 

00155 


ISN 

0131 


N5=4#NDV+9 

00156 


ISN 

0132 


M2=NDVTOT+l 

00157 


ISN 

0133 


N6=N5+NDVTOT 

00158 


ISN 

0134 


M3=M2+NDVTOT 

00159 


ISN 

0135 


IF (N6. LE.NDRA) GO TO 140 

00160 


ISN 

0137 


WRITE (161,780) 

00161 


ISN 

0138 


WRITE (161,800) 

00162 


ISN 

0139 


LOCR( 25 )=N5 

00163 


ISN 

0140 


GO TO 550 

00164 


ISN 

0141 

140 

CONTINUE 

00165 


ISN 

0142 


IF (M3. LE.NDIA) GO TO 150 

00166 


ISN 

0144 


WRITE (161,810) 

00167 


ISN 

0145 


WRITE (161,800) 

00168 


ISN 

0146 


LOCK 25 )=M3 

00169 


ISN 

0147 


GO TO 550 

00170 


ISN 

0143 

150 

CONTINUE 

00171 


ISN 

0149 


DO 160 1=1 >NDVTOT 

00172 


<!! 
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ISN 

0150 


READ (ISCR1.920) IA< M2 ) , IA( I ) ,RA( H5 ) 

00173 

ISN 

0151 


IF ( AES( RA(N5)).LT.1.0E-20) RA(N5)=1.0 

00174 

ISN 

0153 


IF (IFNPUT.LT. 2) WRITE (161,940) I ,IA(M2 ) ,IA( I ) ,RA(N5 ) 

00175 

ISN 

0155 


M2=M2+1 

00176 

ISN 

0156 


N5-N5+1 

00177 

ISN 

0157 

160 

CONTINUE 

00178 

ISN 

0158 


NCOH=0 

00179 



C 

DATA BLOCK H. 

00180 



C 

NUMBER OF CONSTRAINT SETS. 

00181 

ISN 

0159 


READ ( ISCR1 ,920 ) NCONS 

00182 

ISN 

0160 


IF ( IPNPUT. LT.2 ) WRITE (161,1110) 

00183 

ISN 

0162 


IF (IPNPUT. LT.2) WRITE (161,1120) NCONS 

00184 

ISN 

0164 


IF (NCONS. EO-O) GO TO 270 

00165 

ISN 

0166 


IF (IPNPUT. LT.2) WRITE (161,1130) 

00186 

ISN 

0168 


N6=4*ND V+NDVTQT +9 

00187 

ISN 

0169 


M3=2#NDVTOT+l 

00183 

ISN 

0170 


M4=2*NDVTQT+NCONS 

00189 

ISN 

0171 


M4A=M4+1 

00190 

ISN 

0172 


L=1 

00191 



C 

DATA BLOCK I. 

00192 

ISN 

0173 


DO 240 1=1, NCONS 

00193 

ISN 

0174 


NNN=H6+3 

00194 

ISN 

0175 


IF (NNN.GT.NDRA) GO TO 250 

00195 



C 

GLOBAL NO. 1, GLOBAL NO. 2, LINEAR CONSTRAINT ID. 

00196 

ISN 

0.177 


READ ( ISCR1 , 1200 ) ICONI, JCONI, LCONI 

00197 



C 

LB, NORM, UB, NORM. 

00193 

ISN 

0178 


READ ( ISCR1 , 1210 ) ( RA( J ) , J=N6 ,NNN) 

00199 

ISN 

0179 


IF (RA(N6).LE.-1.0E+15) RA( N6 )=-l . 1E+15 

00200 

ISN 

0181 


IF (RA(N6+2).GE.1.0E+15) RA( N6+2 )=1 . 1E+I5 

00201 

ISN 

0183 


IF ( RA( N6+1 ) . LT. 1 . 0E-20 ) RA( N6 + 1 )=AES( RA( N6 ) ) 

00202 

ISN 

0185 


IF (RA(N6+l).LT.1.0E-20) RA(N6+1)=0.1 

00203 

ISN 

0187 


IF ( RA( N6+3 ) . LT. 1 . OE-20 ) RA( N6+3 )=ABS(RA(N6+2 ) ) 

00204 

ISN 

0189 


IF ( RA( H6+3 ) . LT. 1 . 0E-20 ) RA(N6+3)=0.1 

00205 



C 

NUMBER OF VARIABLES IN THIS SET. 

00206 

ISN 

0191 


NVAR = JCONI-ICQNI+ 1 

00207 

ISN 

0192 


IF (NVAR.LT.l) NVAR=1 

00203 

ISN 

0194 


NCONA=NCONA+NVAR 

00209 



C 

HOW MANY CONSTRAINTS? 

00210 

ISN 

0195 


J1=0 

00211 

ISN 

0196 


IF <RA(N6).GE.-1.0E+15) Jl=l 

00212 

ISN 

0193 


IF (RA(N6+2).LT.1.0E+15) J1=J1+1 

00213 

ISN 

0200 


NC0NI=J1*NVAR 

00214 

ISN 

0201 


NCON=NCON+NCONI 

00215 

ISN 

0202 


IF (J1.EQ.0) GO TO 180 

00216 



c 

ADD LINEAR CONSTRAINT IDENTIFIERS TO ISC. 

00217 

ISN 

0204 


DO 170 J=l,NCONI 

00218 

ISN 

0205 


M4=N4+1 

00219 

ISN 

0206 


MMM=M4 

00220 

ISN 

0207 


IF (MNM.GT.NDIA) GO TO 260 

00221 

ISN 

0209 

170 

IA(M4)= LCONI 

00222 

ISN 

0210 

160 

CONTINUE 

00223 



C 

ADD LB, UB AND SCAL TO BLU IF NVAR.GT.l. 

00224 

ISN 

0211 


IF (HVAR.Eq.l) GO TO 200 

00225 

ISN 

0213 


NVARl=NVAR-l 

00226 

ISN 

0214 


DO 190 J=1 ,NVAR1 

00227 

ISN 

0215 


NNN=N6+7 

00228 

ISN 

0216 


IF (NNN.GT.NDRA) GO TO 250 

C0229 

ISN 

0218 


RA( N6+4 )=RA(N6 ) 

00230 

ISN 

0219 


RA(N6+5)=RA(N6tl) 

00231 
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ISfl 

0220 


RA( N6+6 )=RA( N6+2 ) 


00232 

ISN 

0221 


RA( No+7 )=RA( H6+3 ) 


00233 

ISM 

0222 


N6=N5+4 


00234 

ISN 

0223 

190 

CONTINUE 


00235 

ISN 

0224 

200 

CONTINUE 


00236 



C 

ADD CONSTRAINED VARIABLE GLOBAL IDENTIFIERS TO ICON. 00237 

ISN 

0225 


ICONl=ICONI 


00238 

ISN 

0226 


MMM=M4+NVAR-1 


00239 

ISN 

0227 


IF (MMM.GT.NOIA) GO TO 

260 

00240 

ISN 

0229 


DO 230 J = 1 >NVAR 


00241 

ISN 

0230 


IF (J.EQ.l) GO TO 220 


00242 



C 

SHIFT ISC VECTOR. 


00243 

ISN 

0232 


L1=M4+1 


00244 

ISN 

0233 


L2=N4 


00245 

ISN 

0234 


DO 210 K=M4A,M4 


00246 

ISN 

0235 


IA(Ll)=IA(L2) 


00247 

ISN 

0236 


L1=L1-1 


00248 

ISN 

0237 

210 

L2=L2-1 


00249 

ISN 

0238 


M4=M4+1 


00250 

ISN 

0239 


M4A=M4A+1 


00251 

ISN 

0240 

220 

IA(M3)=IC0N1 


00252 

ISN 

0241 


IC0N1=IC0N1+1 


00253 

ISN 

0242 

230 

M3=M3+1 


00254 

ISN 

0243 


IF ( IPNPUT.LT.2 WRITE 

(161, 

1 1 0 0 ) L , ICONI , JCONI , LCONI , R A ( N'6 ) , R A ( N6 ♦ 1 0 0 255 




1 ) >RA( N6+2 ) >RA( N6+3) 


00256 

ISN 

0245 


NS=N6+4 


00257 

ISN 

0246 


L=NCON+l 


00258 

ISN 

0247 

240 

CONTINUE 


00259 

ISN 

0248 


IF (IFHPUT.LT.2) WRITE 

(161 

,900) NCONA 00260 

ISN 

0250 


GO TO 270 


00261 

ISN 

0251 

250 

WRITE (161,780) 


00262 

ISN 

0252 


WRITE (161,820) 


00263 

ISN 

0253 


L0CR(25)=HNN 


00264 

ISN 

0254 


GO TO 550 


00265 

ISN 

0255 

260 

WRITE (161,810) 


00266 

ISN 

0256 


WRITE (161,820) 


00267 

ISN 

0257 


LOCK 25 )=MMM 


00268 

ISN 

0258 


GO TO 550 


00269 

ISN 

0259 

270 

CONTINUE 


00270 



C 

STARTING LOCATIONS FOR 

APPROXIMATION INFORMATION. 00271 

ISN 

0260 


NAPR=4*NDV+NDVT0T+4*NC0NA+9 

00272 

ISN 

0261 


NAPI=2#(N0V+NC0NA)+2*NDVTQT+NC0NA+1 00273 

ISN 

0262 


NF=0 


00274 

ISN 

0263 


KIIAX=0 


00275 

ISN 

0264 


NPT0T=0 


00276 

ISN 

0265 


MAXTRM=0 


00277 

ISN 

0266 


IF ( NXAPRX. LE.O ) GO TO 

450 

00278 









C 

APPROXIMATE ANALYSIS/DESIGN 00280 















c — 

- DATA BLOCK J. 


00282 



c 

CONTROL PARAMETERS. 


00283 

ISN 

0268 


READ ( ISCR1 , 1200 ) NF,NPS,NPFS,NPA,INOM,ISCRX,ISCRXF,IPAPRX 00284 

ISN 

0269 


IF (NPA.NE.O) NPA=1 


00285 

ISN 

0271 


IF (NPS.EQ.O.AND.NPFS. 

EQ. 0 ) 

NPA=1 00286 

ISN 

0273 


IF (ISCRX.EQ.O) ISCRX= 

5 

00287 

ISN 

0275 


IF (ISCRXF.EQ.O) ISCRXF=5 

00288 

ISN 

0277 


IF (IPNPUT.LT. 2 WRITE 

(161, 

600 )NF ,HPS ,NPFS ,NPA, INOM , ISCRX, ISCRXF ,100289 




1PAPRX 


00290 
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ISN 

0279 


NPSFS=NPS+NPFS 

00291 

ISN 

0260 


IF (NPSFS.LT. 2) NPA=1 

00292 

ISN 

0282 


NPTOT=NPS*NPFS+NPA 

00293 

ISN 

0233 


IF (NPTOT.LT. 2) NPTOT=2 

00299 

ISN 

0285 


READ ( ISCR1 >1200 ) KI1IN , KMAX i NPMAX , JNOM , INXLOC > INF LOC , MAXTRM 

00295 

ISN 

0236 


IF ( INXLOC. EQ.O) NXAFRX=NDVTOT 

00296 

ISN 

0238 


M=NXAFRX+ ( NXAPRX*( NXAPRX+ 1 ) )/2 

00297 

ISN 

0289 


IF ( NPMAX. LE.O) NPMAX=2*M 

00298 

ISN 

0291 


IF (KMAX. EQ.O ) KMAX=3*M-NPTOT+l 

00299 

ISN 

0293 


IF (KMIN.EQ.O) KMIN=2*NDV-NPTOT+l 

00300 

ISN 

0295 


IF (KMIN.LT.O ) KMIN = 0 

00301 

ISN 

0297 


IF (KMAX. GT.O. AND. KMAX. LT.KMIN) KMAX=KMIN 

00302 

ISN 

0299 


IF (JNOM. EQ.O) JN0M=2*M 

00303 

ISN 

0301 


IF (MAXTRM. LT.l) MAXTRM=3 

00309 

ISN 

0303 


IF ( IPNPUT. LT.2 1HRITE ( 161 .610 1KMIN, KMAX, NPMAX. JNOM, INXLOC, 

INF LOC, 00305 




1MAXTRM 

00306 



C 

DATA BLOCK K, PART l. 

00307 



C 

DELX BOUNDS ON APPROXIMATE OPTIMIZATION. 

00308 

ISN 

0305 


IF (NDV.LE.O) GO TO 290 

00309 

ISN 

0307 


N7=NAFR 

00310 

ISN 

0308 


NN7=N7+NDV-1 

00311 

ISN 

0309 


IF (NN7.LE.N0RA) GO TO 280 

00312 

ISN 

0311 


WRITE (161,780) 

00313 

ISN 

0312 


WRITE (161,560) 

00319 

ISN 

0313 

280 

CONTINUE 

00315 

ISN 

0319 


READ ( ISCR1 , 1210 ) ( RA( I ) ,I=N7,NN7) 

00316 

ISN 

0315 


IF (IPNPUT. LT.2) WRITE (161,570) 

00317 

ISN 

0317 


IF (IPNPUT. LT.2) WRITE (161,1160) ( RA( I ) ,I=N7,NN7) 

00318 



C 

DATA BLOCK K, PART 2. 

00319 



c 

MULTIPLIERS ON DELX. 

00320 

ISN 

0319 


READ ( ISCR1 , 1210 ) XFACT1 ,XFACT2 

00321 

ISN 

0320 


IF ( XFACT1 .LT.1.0E-10) XFACT1=1.5 

00322 

ISN 

0322 


IF (XFACT2.LT. 1.0E-10) XFACT2=2. 

00323 

ISN 

0329 


IF ( IFNPUT. LT.2 ) WRITE (161,620) XFACT1 ,XFACT2 

00329 

ISN 

0326 

290 

CONTINUE 

00325 



C 

DATA BLOCK L. 

00326 



C 

GLOBAL LOCATIONS OF X-VARIABLES. 

00327 

ISN 

0327 


M5=NAPI 

00328 

ISN 

0328 


MM5=M5+NXAPRX-1 

00329 

ISN 

0329 


IF (MM5.LE.NDIA) GO TO 300 

00330 

ISN 

0331 


WRITE (161,780) 

00331 

ISN 

0332 


WRITE (161,630) 

00332 

ISN 

0333 


LOCK 25 )=MM5 

00333 

ISN 

0339 


GO TO 550 

00339 

ISN 

0335 

300 

CONTINUE 

00335 

ISN 

0336 


IF (INXLOC. EQ.O) GO TO 310 

00336 

ISN 

0338 


READ ( ISCR1 , 1200 ) ( IA( I ) ,I=M5,MM5 ) 

00337 

ISN 

0339 


GO TO 330 

00338 

ISN 

0390 

310 

CONTINUE 

00339 



C 

X- LOCATIONS ARE DEFAULTED TO DESIGN VARIABLE LOCATIONS. 

00390 

ISN 

0391 


DO 320 1=1 ,NXAPRX 

00391 

ISN 

0392 


IA(M5)=IA(I) 

00392 

ISN 

0393 

320 

M5=N5+1 

00393 

ISN 

0399 


M5=NAPI 

00399 

ISN 

0395 

330 

CONTINUE 

00395 

ISN 

0396 


IF (IPNPUT. LT.2) WRITE (161,690) 

00396 

ISN 

0393 


IF (IFNPUT. LT.2) WRITE (161,1160) ( IA( I ) ,I=M5,MM5 ) 

00397 



C 

DATA BLOCK M. 

00398 



c 

GLOBAL LOCATIONS OF FUNCTIONS. 

00399 
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ISN 

0350 


M6=NAPI+NXAPRX 

00350 

ISN 

0351 


MM6=M6tNF-l 

00351 

ISN 

0352 


IF (MM6.LE.NDIA) GO TO 340 

00352 

ISN 

0354 


WRITE (161,780) 

00353 

ISN 

0355 


WRITE (161,650) 

00354 

ISN 

0356 


LOCK 25 )=MM6 

00355 

ISN 

0357 


GO TO 550 

00356 

ISN 

0358 

340 

CONTINUE 

00357 

ISN 

0359 


IF (INFLOC.EQ.O) GO TO 350 

00358 

ISN 

0361 


READ ( ISCR1 , 1200 ) ( IA( I ) ,I=M6,MM6 ) 

00359 

ISN 

0362 


GO TO 380 

00360 

ISN 

0363 

350 

CONTINUE 

00361 



C 

FUNCTION LOCATIONS ARE DEFAULTED TO OBJECTIVE AND CONSTRAINT 

00362 



c 

LOCATIONS. 

00363 

ISN 

0364 


HF 1 = I 

00364 

ISN 

0365 


M3=2#NDVTOT+l 

00365 

ISN 

0366 


IA(M6)=I0BJ 

00366 

ISN 

0367 


IF (NCONA.EQ.O) GO TO 370 

00367 

ISH 

0369 


DO 360 1=1 ,NCOHA 

00368 

ISN 

0370 


IF ( IA(M3 ) .EQ.IOBJ ) GO TO 360 

00369 

ISN 

0372 


NF1=NF1+1 

00370 

ISH 

0373 


M6=M6+1 

00371 

ISN 

0374 


IA(M6)=IA(M3) 

00372 

ISN 

0375 

360 

K3=M3+1 

00373 

ISN 

0376 

370 

NF=NF1 

00374 

ISN 

0377 

380 

M6=NAPI+NXAPRX 

00375 

ISN 

0378 


M;i6=M6+NF-l 

00376 

ISN 

0379 


IF ( IPNPUT.LT. 2) WRITE (161,660) 

00377 

ISN 

0381 


IF (IFNPUT.LT. 2) WRITE (161,1160) ( IA( I ) ,I=M6 ,MM6 ) 

00378 



C 

DATA BLOCK N. 

00379 



C 

READ INPUT X-VECTORS AND STORE ON UNIT ISCR2. 

00380 

ISN 

0363 


REWIND ISCR2 

00381 

ISN 

0384 


IF (NPS.EQ.O) GO TO 410 

00332 

ISN 

0386 


H7=NAPR+NDV 

00383 

ISN 

0387 


NN7=N7+NXAFRX-1 

00384 

ISN 

0383 


IF (NN7.LE.NDRA) GO TO 390 

00385 

ISN 

0390 


WRITE (161,780) 

00336 

ISN 

0391 


WRITE (161,670) 

00387 

ISN 

0392 


LOCR( 25 )=NN7 

00388 

ISN 

0393 


GO TO 550 

00339 

ISN 

0394 

390 

CONTINUE 

00390 

ISN 

0395 


IF (IPNPUT.LT. 2) WRITE (161,660) ISCRX 

00391 

ISN 

0397 


DO 400 1=1, NPS 

00392 



C 

BINARY READ IF ISCRX. NE. 5. 

00393 

ISN 

0398 


IF (ISCRX. NE. 5) READ (ISCRX) ( RA( J ) > J=N7 , NN7 ) 

00394 



C 

FORMATTED READ IF ISCRX. EQ. 5. 

00395 

ISN 

0400 


IF (ISCRX. EQ. 5) READ (ISCR1.1210) (RA( J ) , J=N7,NN7 ) 

00396 

ISN 

0402 


WRITE (ISCR2) ( RA( J ) , J=N7,NN7) 

00397 

ISH 

0403 


IF (IPNPUT.LT. 2) WRITE (161,710) I, I 

00398 

ISN 

0405 


IF (IPNPUT.LT. 2) WRITE (161,1160) (RA( J ) , J=N7,NN7) 

00399 

ISN 

0407 

400 

CONTINUE 

00400 

ISN 

0408 

410 

CONTINUE 

00401 



C 

DATA BLOCK 0. 

00402 



c 

READ INPUT X-F PAIRS AND STORE ON UNIT ISCR2. 

00403 

ISN 

0409 


IF (NPFS.EQ.O ) GO TO 440 

00404 

ISH 

0411 


N7=NAPR+NDV 

00405 

ISN 

0412 


NN7=N7+NXAFRX-1 

00406 

ISN 

0413 


NH3=N7+NF-1 

00407 

ISN 

0414 


IF (NN7.GT.NH3) NN8=NN7 

00408 
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ISN 0416 


IF ( NN8. LE.N3RA ) GO TO 420 

ISH 0418 


WRITE (161,780) 

ISM 0419 


WRITE (161,690) 

ISN 0420 


LCCR( 25 )=MH3 

ISN 0421 


GO TO 550 

ISN 0422 

420 

CONTINUE 

ISN 0423 


NN3=H7+NF-1 

ISN 0424 


IF (IPNPUT.LT. 2) WRITE (161,700) ISCRXF 

ISM 0426 


DO 430 I=1,NPFS i 


C 

X-VECTOR . 


C 

BINARY READ IF ISCRXF. NE. 5. 

ISN 0427 


IF (ISCRXF. NE. 5) READ (ISCRXF) (RA( J ) , J=N7,NN7> 


C 

FORMATTED READ IF ISCRXF. Eq. 5. 

ISH 0429 


IF (ISCRXF. EQ. 5) READ (ISCH1.1210) (RA( J ) > J=N7,NN7) 

ISN 0431 


II=I+NPS 

ISH 0432 


IF (IPNPUT.LT. 2) WRITE (161,710) I,II 

ISN 0434 


IF (IPNPUT.LT. 2) WRITE (161,720) 

ISN 0436 


IF (IPNPUT.LT. 2) WRITE (161,1160) ( RA( J ) , J=N7,NN7) 

ISN 0433 


WRITE (ISCR2) (RA( JI,J=N7,NN7) 


C 

FUNCTION VALUES. 


C 

BINARY READ IF ISCRXF. NE. 5. 

ISN 0439 


IF (ISCRXF. NE. 5) READ (ISCRXF) (RA( J),J=N7,NH8) 


C 

FORMATTED READ IF ISCRXF. EQ. 5. 

ISN 0441 


IF (ISCRXF. EQ. 5) READ (ISCR1.1210) (RA( J ) , J=N7,NN3 ) 

ISN 0443 


IF (IPNPUT.LE.2) WRITE (161,730) 

ISN 0445 


IF (IPNPUT.LT. 2) WRITE (161,1160) (RA( J ) , J=N7,NN8 ) 

ISN 0447 


WRITE (ISCR2) ( RA( J ) > J=N7 >NN3 ) 

ISN 0448 

430 

CONTINUE 

ISN 0449 

440 

CONTINUE 

ISN 0450 

450 

CONTINUE 

ISN 0451 


NSO3J=0 

ISN 0452 


NSVTOT=0 


C 

STARTING LOCATIONS FOR SENSITIVITY INFORMATION. 

ISH 0453 


NSVR=NAPR+NDV 

ISN 0454 


NSVI=NAPI+NXAPRX+NF 

ISN 0455 


IF (NSV.LE.O) GO TO 500 


c 

SENSITIVITY INFORMATION 

ISN 0457 


IF (IPNPUT.LT. 2) WRITE (161,1020) 


c 

DATA BLOCK P, PART 1. 


c 

NSOBJ, IPSEIIS 

ISN 0459 


READ ( ISCR1 , 1200 ) NSOBJ, IPSENS 


c 

DATA BLOCK P, PART 2. 


c 

NSENS2. 

ISH 0460 


M15=HSVI 

ISN 0461 


MN15-M15+NS0BJ-1 

ISN 0462 


IF (MM15.LE.NDIA) GO TO 460 

ISN 0464 


WRITE (161,810) 

ISN 0465 


WRITE (161,830) 

ISN 0466 


LOCK 25 )-MM15 

ISH 0467 


GO TO 550 

ISN 0468 

460 

CONTINUE 

ISN 0469 


READ ( ISCR1 ,1200 ) ( IA( I ) , I=M15 ,MM15 ) 

ISN 0470 


IF (IPNPUT.LT. 2) WRITE (161,960) IPSENS, NSOBJ 

ISH 0472 


IF (IPNPUT.LT. 2) WRITE (161,950) ( IA( I ) , I=M15,MM15 ) 

ISM 0474 


IF (IPNPUT.LT. 2) WRITE (161,1030) 

ISH 0476 


H15=NSVR 

ISN 0477 


M16=NSVI+NSOBJ 
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00409 

00410 
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00412 

00413 

00414 

00415 

00416 

00417 

00418 

00419 

00420 

00421 

00422 

00423 

00424 

00425 

00426 

00427 

00428 

00429 

00430 

00431 

00432 

00433 

00434 

00435 

00436 

00437 

00438 

00439 

00440 

00441 

00442 

00443 

00444 
00445 

00446 
00447 

00448 

00449 

00450 

00451 

00452 

00453 

00454 

00455 

00456 

00457 

00458 

00459 

00460 

00461 

00462 

00463 

00464 

00465 

00466 

00467 



ERSION 1.3.0 (01 MAY 80) COPEOl SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.54.12 
ISM 0478 M17=M16+NSV 00468 

ISH 0479 DO 490 1=1, NSV 00469 

C DATA BLOCK Q, PART 1. 00470 

C ISENS, NSENS. 00471 

ISH 0460 READ (ISCR1.1200) IA(M16),HN1 00472 

ISN 0481 HN15=N15+NN1-1 00473 

ISN 0482 IF (KN15. LE.NDRA) GO TO 470 00474 

ISN 0464 WRITE (161,780) 00475 

ISN 0485 WRITE (161,840) 00476 

ISN 0486 LOCR( 25 )=NH15 00477 

ISN 0437 GO TO 550 00478 

ISN 0488 470 CONTINUE 00479 

C — DATA BLOCK q, PART 2. 00480 

C SENS. 00481 

ISN 0489 READ (ISCR1.1210) (RA( J ) , J=N15,NN15 ) 00482 

ISN 0490 IF ( IPNPUT.GE . 2 ) GO TO 480 00483 

ISH 0492 JJ=Nl5+5 00434 

ISN 0493 IF ( JJ.GT.NN15 ) JJ=NN15 00485 

ISN 0495 WRITE (161,1040) I, IA( M16 ) , (RA( J) , J=N15, JJ ) 00486 

ISN 0496 JJ=JJ+1 00487 

ISN 0497 IF ( JJ.LE.NN15) WRITE (161,1050) ( RA( J ) , J=JJ ,NN15 ) 00488 

ISN 0499 480 CONTINUE 00489 

ISN 0500 NSVTOT=NSVTOT+NNl 00490 

ISN 0501 IA( M17 )=NN1 00491 

ISN 0502 N15=NN15+1 00492 

ISN 0503 M16=M16+1 00493 

ISN 0504 M17=M17+1 00494 

ISH 0505 490 CONTINUE 00495 

ISN 0506 500 CONTINUE 00496 

ISN 0507 M2VX=0 00497 

ISN 0503 M2VY=0 00498 

C STARTING LOCATIONS FOR TWO-VARIABLE FUNCTION SPACE INFORMATION. 00499 

ISN 0509 N2VR=NSVR+NSVTOT 00500 

ISN 0510 N2 VI=NSVI +NS08J +2*NSV 00501 

ISN 0511 IF (N2VAR.LE.0) GO TO 540 00502 

C 00503 

C TWO-VARIABLE FUNCTION SPACE INFORMATION 00504 

C 00505 

C DATA BLOCK R. 00506 

C VARIABLE NUM3ERS AND NUMBER OF VALUES OF X AND Y. 00507 

ISN 0513 READ (ISCR1.1200) N2VX,M2VX,N2VY,M2VY,IP2VAR 00508 

ISN 0514 N20=N2VR 00509 

ISN 0515 M20=N2VI 00510 

ISN 0516 MM20=M20+N2VAR-1 00511 

ISN 0517 IF (MM20.LE.NDIA) GO TO 510 00512 

ISN 0519 WRITE (161,810) 00513 

ISN 0520 WRITE (161,850) 00514 

ISN 0521 LOCK 25 )=MM20 00515 

ISH 0522 GO TO 550 00516 

ISN 0523 510 CONTINUE 00517 

C — DATA BLOCK S. 00518 

C GLOBAL VARIABLE NUMBERS CORRESPONDING TO FUNCTIONS OF X AND Y. 00519 

ISN 0524 READ (ISCR1.1200) ( IA( I ) , I=M20 ,MM20 ) 00520 

ISN 0525 IF (IPNPUT.LT. 2) WRITE (161,1170) IP2VAR 00521 

ISN 0527 IF (IPNPUT.LT. 2) WRITE (161,1180) ( IA( I ) ,I=M20,MM20 ) 00522 

C — DATA BLOCK T. 00523 

C VALUES OF X COMPONENTS. 00524 

ISN 0529 NN20=N20+M2VX-1 00525 

ISN 0530 IF (NN20. LE.NDRA) GO TO 520 00526 


♦VERSION 1.3.0 

(01 MAY 80) COPEOl SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

DATE 82.141/10.54.12 

ISN 

0532 


WRITE (161,780) 

00527 

ISN 

0533 


WRITE (161,740) 

00528 

ISN 

0534 


LOCRt 25 )=UN20 

00529 

ISN 

0535 


GO TO 550 

00530 

ISN 

0536 

520 

READ ( ISCR1 , 1210 ) ( RA( I ) , I=N20,NN20 ) 

00531 

ISN 

0537 


IF (IPNPUT.LT. 2) WRITE (161,1140) N2VX 

00532 

ISN 

0539 


IF (IPNPUT.LT. 2) WRITE (161,1160) ( RA( I ) , I=N20 ,NN20 ) 

00533 



C 

DATA BLOCK U. 

00534 



C 

VALUES OF Y COMPONENTS. 

00535 

ISN 

0541 


N21=N20+M2VX 

00536 

ISN 

0542 


HN2 1 =N2 1 +M2VY- 1 

00537 

ISN 

0543 


IF (NH21.LE.NDRA) GO TO 530 

00538 

ISN 

0545 


WRITE (161,780) 

00539 

ISN 

0546 


WRITE (161,750) 

00540 

ISN 

0547 


LOCR( 25 )=NN21 

00541 

ISN 

0543 


GO TO 550 

00542 

ISN 

0549 

530 

CONTINUE 

00543 

ISN 

0550 


NN20=NN21 

00544 

ISN 

0551 


READ ( ISCR1 , 1210 ) ( RA( I ) ,I=N21 ,NN21 ) 

00545 

ISN 

0552 


IF (IPNFUT.LT. 2) WRITE (161,1150) N2VY 

00546 

ISN 

0554 


IF (IPNPUT.LT. 2) WRITE (161,1160) ( RA( I ) , I=N21 , NN21 ) 

00547 

ISN 

0556 

540 

CONTINUE 

00548 








C 

DYNAMIC STORAGE ALLOCATION 

00550 











ISN 

0557 


HDV2=NDV+2 

00552 



C 

REAL VARIABLES. 

00553 



c 

X. 

00554 

ISN 

0553 


LOCR(l)=l 

00555 



c 

VLB. 

00555 

ISN 

0559 


L0CR(2)=NDV+3 

00557 



c 

VUB. 

00558 

ISN 

0560 


LOCR ( 3 ) = LOCR ( 2 ) +ND V2 

00559 



c 

SCAL. 

00560 

ISN 

0561 


LOCR ( 4 ) = LOCR ( 3 ) +NDV2 

00561 



c 

AMULT. 

00562 

ISN 

0562 


LOCR ( 5 ) = LOCR ( 4 ) +ND V2 

00563 



c 

BLU. 

00564 

ISN 

0563 


LOCR ( 6 ) = LOCR ( 5 ) +ND VTOT 

00565 



c 

DELX. 

00566 

ISN 

0564 


LOCR ( 7 ) = LOCR ( 6 ) +4*NC0NA 

00567 

ISN 

0565 


LOCR (81 = LOCR ( 7 ) *ND V 

00563 



c 

SENS. 

00569 

ISN 

0566 


LOCR( 15 )=L0CR(8) 

00570 



c 

XM2V. 

00571 

ISN 

0567 


LOCR ( 20 ) = LOCR ( 15 ) +NSVT0T 

00572 



c 

YM2V. 

00573 

ISN 

0563 


LOCRt 21 ) = LOCR( 20 HM2VX 

00574 

ISN 

0569 


LOCRt 22 ) = LCCR( 21 1+M2VY 

00575 



c 

START OF EXECUTION STORAGE. 

00576 

ISN 

0570 


LOCRt 23 ) = LOCR( 22 ) 

00577 



c 

INTEGER VARIABLES. 

00578 



c 

IDSGN. 

00579 

ISN 

0571 


LOCK 1 )=1 

00580 



c 

NOSGN. 

00531 

ISN 

0572 


LOCK 2 )=NDVTOT+l 

00532 



c 

ICON. 

00583 

ISN 

0573 


LOCK 3 ) = LOCI ( 2 ) +ND VTOT 

00584 



c 

ISC. 

00585 



264 


♦VERSION 1.3.0 

(01 

MAY 80) COPEOl SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

DATE 82.141/10 

1SH 0574 


LOC I ( 4 ) = LOCI ( 3 ) +NCONA 

00586 


C 

LOCX. 

00587 

ISN 0575 


LOC I( 5 ) = LOCK 4 ) +2# < ND V +NCONA ) 

00583 


C 

LOCF. 

00589 

ISN 0576 


LOCI(6 )=L0CI(5)+NXAPRX 

00590 

ISN 0577 


LOCK 7 )=L0CI( 6 l+NF 

00591 


c 

NSENSZ. 

00592 

ISN 0578 


LOCK 15)=L0CI( 7) 

00593 


c 

ISENS. 

00594 

ISN 0579 


LOCK 16 )=LOCI( 15 KNSOBJ 

00595 


c 

NSENS. 

00596 

ISN 0580 


LOCK 17)=L0CI( 16 HNSV 

00597 

ISN 0581 


LOCK 18 )=LOCI( 17HNSV 

00598 


c 

H2VZ. 

00599 

ISN 0582 


LOCK 20 )=LOCI( 18 ) 

00600 

ISN 0533 


LOCK 21 )=LOCI( 20 )+N2VAR 

00601 


c 

START OF EXECUTION STORAGE. 

C0602 

ISN 0584 


LOCK 23)=LOCK 21 ) 

00603 


c 

EXECUTION STORAGE REQUIREMENTS. 

00604 

ISN 0535 


NRI=MDV 

00605 

ISN 0536 


IF ( NACMX1 .GT.NRI ) NRI=NACMX1 

00606 

ISN 0588 


NR2=3*NC0H+12*NDV+NACMXI*<N0V2+NACMX1)+3XNRI+12 

00607 

ISN 0539 


NI2=NACMX1+2*NRI+2#NDV+NC0N 

00608 

ISN 0590 


NR3=NSV 

00609 

ISN 0591 


IF (NSOBJ.GT.NR3) NR3=NSOBJ 

00610 

ISN 0593 


NR4=N2VAR 

00611 

ISN 0594 


NR5=NR2+NR3 

00612 

ISN 0595 


NI5=NI2 

00613 

ISN 0596 


M=NXAPRX+ ( NXAPRX#( NXAPRX+ 1 ) )/2 

00614 

ISN 0597 


IF (MAXTRM.LT. 3) M=MAXTRM*NXAPRX 

00615 

ISN 0599 


NR6=3*NXAPRX+6+NDV+2*NF+M*HF 

00616 

ISN 0600 


NI6-NCONA+NXAPRX 

00617 

ISN 0601 


NRI=( KMAX+ 1 -NPTOT )#( NXAFRX+NF+ 1 ) 

00618 

ISN 0602 


IF (NRI.LT.NR2) NRI=NR2 

00619 

ISN 0604 


IF (KMAX.LT.O) NRI=NPTOT#(NXAPRX+NF+l ) 

00620 

ISN 0606 


NR7=NR6+NRI 

00621 

ISN 0607 


NI7=NI6+NI2 

00622 


c 

START OF TEMPORARY STORAGE. 

00623 

ISN 0608 


LOCR( 24 )=LOCR ( 23 ) 

00624 

ISN 0609 


LOCK 24 )=LOCI( 23 ) 

00625 

ISN 0610 


IF (NCALC. EQ. 2 ) LOCR( 24 )=LOCfi( 231+NR2 

00626 

• ISN 0612 


IF (NCALC. EQ. 3) LOCR( 24 )=LOCR( 23 1+NR3 

00627 

ISN 0614 


IF (NCALC. EQ. 4) LOCR( 24 ) = LOCR( 23 )*NR4 

00628 

ISN 0616 


IF (NCALC. Eq. 5) LOCR( 24 ) = LOCR( 23 1+NR5 

00629 

ISN 0618 


IF (NCALC. EQ. 6. AND. KMAX.LT.O) LOCR( 24 )=LOCR( 23 1+NR6 

00630 

ISN 0620 


IF ( NCALC. EQ. 6. AND .KMAX.GT.O ) LOCR< 24 )=LOCR( 23)+NR7 

00631 

ISN 0622 


IF (NCALC. Eq. 2) LOCK 24 ) = LOCI( 23 1+NI2 

00632 

ISN 0624 


IF (NCALC. EQ. 5) LOCK 24 ) = LOCK 23 HHI5 

00633 

ISN 0626 


IF (NCALC. EQ. 6. AND. KMAX.LT.O) LOCK 24 ) = LOCI( 23)+NI6 

00634 

ISN 0628 


IF (NCALC. EQ. 6. AND. KMAX.GT.O) LOCK 24)=LOCI( 23J+NI7 

00635 


c 

TOTAL STORAGE REQUIREMENTS. 

00636 

ISN 0630 


LOCR ( 25 ) - LOCR ( 24 ) 

00637 

ISN 0631 


LOCK 25 ) = LOCK 24 ) 

00638 

ISN 0632 


IF (NCALC. Eq. 5) LOCR( 25 )=LOCR( 25 H4*HDV+8 

00639 

ISN 0634 


IF (NCALC. EQ. 5) LOCK 25) = L0CI( 25)+2*NDVTOT 

00640 

ISN 0636 


IF ( IPNPUT. LT.2 )WRITE ( 161,860 )LOCR( 23) , LOCR( 25) ,NDRA, LOCK 23) 

, LOC00641 



11(25), UDIA 

00642 

ISN 0638 

550 

CONTINUE 

00643 

ISN 0639 


RETURN 

00644 


9J 


ro 

CTl 

cn 


♦VERSION 1.3.0 (01 MAY 80) 


COPEOl 


SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 


DATE 82.141/10.54.12 


ISN 0645 




C 

C 


FORMATS 

—00645 

00646 

ISN 

0640 

560 

FORMAT 

(/5X.27HUNABLE TO READ DATA BLOCK K) 

00648 

ISN 

0641 

570 

FORMAT 

(//5X.43HDELTA-X BOUNDS FOR APPROXIMATE OPTIMIZATION) 

00649 

ISN 

0642 

580 

FORMAT 

(80A1) 

00650 

ISN 

0643 

590 

FORMAT 

(I5/80A1) 

00651 

ISN 

0644 

600 

FORMAT 

(///5X.49H* * APPROXIMATE ANALYSIS/OPTIMIZATIOH INFORMATION00652 


610 


ISN 

0646 

620 

ISN 

0647 

630 

ISN 

0648 

640 

ISN 

0649 

650 

ISN 

0650 

660 

ISN 

0651 

670 

ISN 

0652 

680 

ISN 

0653 

690 

ISN 

0654 

700 

ISN 

0655 

710 

ISN 

0656 

720 

ISN 

0657 

730 

ISN 

0653 

740 

ISN 

0659 

750 

ISN 

0660 

760 

ISN 

0661 

770 

ISN 

0662 

780 

ISN 

0663 

790 

ISN 

0664 

800 

ISN 

0565 

810 

ISN 

0666 

820 

ISN 

0667 

830 

ISN 

0668 

640 

ISN 

0669 

850 

ISN 

0670 

860 

ISN 

0671 

870 

ISN 

0672 

880 

ISN 

0673 

890 

ISN 

0674 

900 


l//5Xi 38HNUMBER OF FUNCTIONS APPROXIMATED, NF =,I5/5X,38HNUI1BER OF 00653 
2INPUT X-VECTORS, NPS =,I5/5X,38HNUMBER OF INPUT X-F PAIRS, 00654 

3 NPFS = , I5/SX , 38HX-VECTOR FROM ANALIZ, HPA =,I5/5X, 300655 

48HN0MINAL DESIGN, INOM =,I5/5X,38HREAD UNIT FOR X-00656 

5VECT0RS, ISCRX =,I5/5X,38HREAD UNIT FOR X-F PAIRS, ISCR00657 

6XF =,I5/5X,38H PRINT CONTROL, IPAPRX = ,I5) 00658 

FORMAT ( /5X , 3SHMINIMUM APPROXIMATING CYCLES, KMIH = , I5/5X, 38HMAX00659 
1IMUM APPROXIMATING CYCLES, KMAX =,I5/5X,38HMAXIMUM DESIGNS USED 00660 
2IN FIT, NPMAX = , I5/5X, 38HN0MINAL DESIGN PARAMETER, JNOM =,00661 

3I5/5X.38HX- LOCATION INPUT PARAMETER, INXLOC =,I5/5X,36HF-LOCATIO00662 
4N INPUT PARAMETER, INFLOC =,I5/5X,38HTAYLER SERIES I.D. CODE, 00663 
5 MAXTRM = ,15 ) 00664 

FORMAT (/5X.38HMULTIPLIER ON DELX, XFACT1 =,E12.4/5X,38H00665 

1 MULTIPLIER ON DELX, XFACT2 =,E12.4) 00666 

FORMAT ( /5X, 27HUNABLE TO READ DATA BLOCK L) 00667 

FORMAT (//5X»31HGL0BAL LOCATIONS OF X-VARIABLES) 00668 

FORMAT (/5X.27HUNA3LE TO READ DATA BLOCK M) 00669 

FORMAT ( //5X, 2 9H GLOBAL LOCATIONS OF FUNCTIONS) 00670 

FORMAT ( /5X , 27H UNABLE TO READ DATA BLOCK N) 00671 

FORMAT ( //5X , 25HX-VECTORS INPUT FROM UNIT, 15) 00672 

FORMAT ( /5X , 27HUNABLE TO READ DATA BLOCK 0) 00673 

FORMAT ( ////5X , 25HX-F PAIRS INPUT FROM UNIT, 15) 00674 

FORMAT ( //5X , 6HNUMBER , 15 , 5X , 6HDESIGN , 15 ) 00675 

FORMAT ( /5X , 8HX-VECT0R ) 00676 

FORMAT ( /5X, 15HFUNCTI0N VALUES) 00677 

FORMAT (/5X.27HUNABLE TO READ DATA BLOCK T) 00678 

FORMAT (/5X.27HUNABLE TO READ DATA BLOCK U) 00679 

FORMAT ( /5X , 58HCONMIN PARAMETERS (IF ZERO, CONHIN DEFAULT WILL OVE00680 
1R-RIDE )//5X,6HIPRINT,2X,5HITMAX,3X,6HICNDIR ,3X,5HNSCAL,3X,4HITRM, 300681 
2X.6HLINOBJ , 2X.6HNACMX1 , 3X,4HNrDG/8I8 ) 00682 

FORMAT ( /6X,4HFDCH , 12X,5HFDCHM, 1 1X.2HCT , 14X,5HCTMIN/1X,4( 2X.E14.5 100683 
1//6X, 3HCTL, 13X,6HCTLMIN, 10X,5HTHETA, 1 IX, 3HPHI/1X,4( 2X, E 14.5 )//6X, 60 0684 
2HDELFUN, 10X,6HDABFUN, 10X,6HALPHAX, 10X,6HABOBJ1/1X,4( 2X, E14.5 ) ) 00685 

FORMAT ( //5X , 54HREQUIRED STORAGE IN ARRAY RA EXCEEDS AVAILABLE ST000686 


1RAGE) 
FORMAT 
FORMAT 
FORMAT 
1RAGE ) 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 


( /5X, 27HUNABLE TO READ DATA BLOCK F) 

( /5X , 27HUNABLE TO READ DATA BLOCK G) 

( //5X , 54HR EQUIRED STORAGE IN ARRAY IA EXCEEDS AVAILABLE 


(/5X.27HUNABLE 
( /5X, 27HUNABLE 
(/5X,27H UNABLE 
( /5X, 27HUNABLE 
(////5X.39H* * 

1 EAL , 26X , 7HINTEGER/5X , 27HINPUT EXECUTION 
2XECUTIOH AVAILABLE/19, 2110, 2X, 3110) 


TO READ DATA BLOCK I) 

TO READ DATA BLOCK P) 

TO READ DATA BLOCK Q) 

TO READ DATA BLOCK R) 

ESTIMATED DATA STORAGE REQUIREMENTS//15X.4HR00696 
AVAILABLE, 5X.27HINPUT E00697 

00698 


00687 

00683 

00689 

ST000690 

00691 

00692 

00693 

00694 

00695 


FORMAT ( 1H1 ,4X,27HCARD IMAGES OF CONTROL DATA///5X,4HCARD,20X,5HIM00699 
1AGE ) 00700 
FORMAT (1H0) 00701 
FORMAT ( 18, 1H ) ,2X,80A1 ) 00702 
FORMAT (/5X.40HTOTAL NUMBER OF CONSTRAINED PARAMETERS =,I5) 00703 
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ISN 0676 
ISN 0677 

ISN 0678 
ISN 0679 
ISN 0680 


ISN 0681 


ISN 0682 

ISN 0683 
ISN 0689 
ISN 0685 


ISN 0686 
ISN 0687 

ISN 0688 
ISN 0689 
ISN 0690 
ISH 0691 


ISN 0692 


ISN 0693 
ISN 0699 
ISN 0695 
ISN 0696 
ISN 0697 


ISN 0698 

ISN 0699 

ISN 0700 
ISN 0701 


ISN 0702 


(01 MAY 80) COPEOl SYSTEM/370 FORTRAN H EXTENDED ( ENHANCED ) DATE 82.191/10.59.12 
910 FORMAT (//5X,26HCALCULATI0N CONTROL, NCALC/5X,5HVALUE,3X,7HMEANING00709 
1/7X, 1H1 ,5X, 15HSINGLE ANALYSIS/7X, 1H2 ,5X, 12KOPTIMI2ATION/7X, 1H3.5X, 00705 
211HSENSITIVITY/7X, 1H9,5X, 27HTWO-VARIABLE FUNCTION SPACE/7X, 1H5.5X, 00706 
319H0PTIMUM SENSITIVITY/7X, 1H6 ,5X,29HAFFR0XIMATE OPTIMIZATION) 00707 

920 FORMAT (2110, F10. 2) 007C3 

930 FORMAT <//5X, 16HDESIGN VARIABLES/1 IX, 5HD . V. ,5X,6HGL0BAL,9X, 11HMUL00709 

1TIPLYING/5X.2HID ,5X»3HNO. ,5X,8HVAR . NO. ,5X,6H FACTOR ) 00710 

990 FORMAT ( 2I7.5X, I5,6X,E12.5) 00711 

950 FORMAT (5X.16I5) 00712 

960 FCRMAT (/5X,39HPRINT CONTROL, IPSEHS =,I5/5X,39HNUMBER 00713 

10F SENSITIVITY OBJECTIVES =,I5//5X,53HGL03AL NUMBERS ASSOCIATED WI00719 


2TH SENSITIVITY OBJECTIVES) 

FORMAT (1H1, //////, 5X.97HCCCCCCC 
1SSSSSS/5X.97HC 0 0 


0 0 
PPPPPPP 


CCCCC 0000000 
OP PE 

PE S 

SSSSSSS/5X , 97HC 


S/5X.97HC 

S/5X.97HCCCCCCC COOOOOO 


00715 

OOOCOO PPPPPPP EEEEEEE S00716 

PE S /5X, 9700717 

S /5X.97HC 000718 

/5X.97HC 0 OP 00719 

OOP E 00720 

P EEEEEEE SSSSSSSC0721 

00722 

P R 0 G R A H//26X,5HF 0 R//8X00723 


FORMAT ( ///// 1 9X , 2 9HC ONTROL PROGRA H//26X,5HF 0 R//8X00723 
1.91HE NGINEERING SYNTHESIS) 00729 

FCRMAT 1/////29X.9HT I T L E//5X.20A9) 00725 

FORMAT ( 1H 1 , 9X , 6HTITLE : /5X , 20A9 ) 00726 

FORMAT ( ///5X , 1 9HCONTROL PARAMETER S ) /5X , 92HCA LCULATICN CONTROL, 00727 
1 NCALC = , I5/5X , 92HNU) !BER OF GLOBAL DESIGN VARIABLES, 00728 

2NDV = , I5/5X , 92HNUMBER OF SENSITIVITY VARIABLES, NSV =,I5/5X, 9200729 
3HNUMBER OF FUNCTIONS IN TWO-SPACE, N2VAR =,I5/5X,92HNUMBER OF APP00730 
9ROXIMATING VAR. NXAPRX =,I5/5X,92HINPUT INFORMATION PRINT COD00731 

5E, IPNPUT =,I5/5X,92HDEBUG FRINT CODE, IFDEG 00732 

6=,I5) 00733 

FORMAT (////5X.27H# * SENSITIVITY INFORMATION) 00739 

FORMAT (/19X,6HGLOBAL,9X,7HNOMINAL/5X,6HNU!3ER,2X,8HVARIABLE,9X,5H00735 
1 VALUE ,6X, 18H0FF-N0MINAL VALUES) 00736 

FORMAT ( 5X, 19, 18 ,5X, E12.5, 1X,5E11 .9 ) 00737 

FORMAT ( 35X.5E1 1 . 9 ) 00738 

FORMAT ( 9F10.2, 10A9 ) 00739 

FORMAT ( ////5X, 28H# * OPTIMIZATION INF0RMATI0N//5X , 35HG LOBAL VARIA00790 
1BLE NUMBER OF OBJECTIVE, 10X, 1H= , I5/5X.96HMULTIPLIER (NEGATIVE INDI00791 
2CATES MINIMIZATION) =,E12.9) 00792 

FORMAT (/5X.27HDESIGN VARIABLE INF0RMATI0N/5X .50HNDN-ZERO INITIAL 00793 
1 VALUE WILL OVER-RIDE MODULE INPUT/5X.5HD. V. ,5X,5HL0NER , 10X.5HUPPE00799 
2R,9X, 7HINITIAL/5X , 3HNO . , 7X , 5HS0UND , 1 OX , 5HE0UND , 1 OX , 5HVA LUE , 1 OX , 5HS00795 
3CALE ) 00796 

FORMAT ( 18 ,9X , El 2 .5 , 3X,E1 2 .5 , 3X , El 2 . 5 , 3X, E12 .5 , 5A9 ) 00797 

FORMAT (I8,I7,2I3,5X,E12.5,3X,E12.5,3X,E12.5,3X,E12.5) 00798 

FORMAT (//5X.22HCONSTRAINT INFORMATION) 00799 

FORMAT (/5X.9HTHERE ARE,I3,16H CONSTRAINT SETS) 00750 

FORMAT ( 1 IX, 6HGL0EAL , 2X, 6HG LOBAL , 2X> 6H LINEAR ,6X,5HL0WER,6X, 13HNORM00751 
1 ALIZATI0N,6X,5HUPPER,6X, 13HN0RMALIZATI0N/6X, 2HID, 3X,6HVAR. 1,2X,6H00752 
2 VAR . 2 ,9X, 2HID ,8X, 5HB0UND , 9X , 6HFACTCR , 1 OX, 5H BOUND , 9X , 6HF ACTOR ) 00753 

FORMAT (//5X.99HGL03AL VARIABLE NUMBER CORRESPONDING TO X, N2VX =,00759 
1I5//5X, 20HVALUES OF X-VARIABLE) 00755 

FCRMAT ( //5X , 99HGL0BAL VARIABLE NUM3ER CORRESPONDING TO Y, N2VY =,00756 
1I5//5X, 20HVALUES OF Y-VARIABLE) 00757 

FORMAT (3X.5E12.9) 00758 

FCRMAT (////5X.51H* * TWO-VARIABLE FUNCTION SPACE MAPPING INFORMAT00759 
1I0N//5X, 23HPRINT CONTROL, IP2VAR =,I5//5X,52HGL0BAL VARIABLE NUMBE00760 , 
2RS ASSOCIATED WITH F(X,Y), M2VZ) 00761 

FORMAT (5X.10I5) 00762 


L U 
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ISN 

0703 

1190 

FORMAT ( 20A4 ) 

00763 

ISN 

0704 

1200 

FORMAT (8110) 

00764 

ISN 

0705 

1210 

FORMAT (8F10.2) 

00765 

ISN 

0706 

1220 

FORMAT (///5X.26H* * * INPUT ERROR, 
1.6 FROGRAM TERMINATED * * *) 

NCALC =,I2,2X,41HIS LT.O OR GT00766 

00767 

ISN 

0707 


END 

00768 


^OPTIONS IN E FF ECT*HAME ( M AIN ) OPTIt1IZE(3) LINECOUNT( 60 ) SIZE(MAX) AUTODBLt NONE ) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NCHAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
^STATISTICS* SOURCE STATEMENTS = 706, PROGRAM SIZE = 15790, SUBPROGRAM NAME =COPE01 

*STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 2844K BYTES OF CORE NOT USED 


ro 

cr> 


* n 



ro 

01 

00 


♦VERSION 1.3.0 (01 HAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.54.23 PAGE 1 

REQUESTED OPTIONS: SOURCE, NOMAP, HOXREF , NOLIST, NODECK. OPT( 3 ) ,AUT0D3L< NONE ) ,N0ALC 
OPTIONS IN EFFECT: NAIIE(HAIN) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTODBU NONE ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 


ISH 0002 
ISN 0003 


ISN 0004 


ISN 0005 


C 

C 

C 

C 

C 

C 

C 

C 


DATA SET U477COPE02 AT LEVEL 001 AS OF 02/13/81 

DATA SET 9188COPE02 AT LEVEL 001 AS OF 07/10/80 00001 

SUBROUTINE COPE02 ( ARRAY, RA,IA,NARRAY,NDRA,NDIA) 00002 

COMMON /CNMN1/ DELFUN.DABFUN, FDCH, FDCHM,CT,CTMIN,CTL,CTLMIN, ALPHAX00003 
1.AB0BJ1, THETA, OBJ, NDV,NCON,NSIDE,IPRINT,NFDG,NSCAL, LINOBJ ,ITMAX,IT00004 
2RM,ICNDIR,IGOTO,NAC, INFO, INF03, ITER 00005 

COMMON /C0PES3/ SGNOPT , NCALC , IC3 J , NSV , NSC3J , NCONA , N2VX, M2VX , N2VY , MO 0 006 
12VY ,N2VAR , IPSENS, IPZVAR , IPDBG.NACMX1 >NDVTOT , LOCR( 25 ) , LOCK 25 ) , ISCR00007 
21 > ISCR2 , NXAFRX , NPS , NPFS , NPA , NF , INOM , IPAPRX , KI1IN , KMAX.XFACT1 , XFACT20 00 03 
3, NAN 2 , NAN 3 , NPMAX , NPTOT , JNOM , MAXTRM 00009 

DIMENSION ARRAY (NARR AY), RA(N'DRA), IA(NDIA) 00010 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXCOOll 
ROUTINE TO CONTROL OPTIMIZATION. 00012 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX00013 
BY G. N. VANDERPLAATS MAR., 1973. 00014 

NASA-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 00015 

00016 

00017 

00018 


ARRAY DIMENSIONS 


ISH 0006 

NN1-NDV+2 

00019 

ISN 0007 

NN2-2XNQV+NCON 

00020 

ISN 0008 

NN3=NACMX1 

00021 

ISN 0009 

NN4=NN3 

00022 

ISH 0010 

IF (NDV.GT.NN4) NN4=NDV 

00023 

ISN 0012 

Nil5=2*NN4 

00024 

ISN 0013 

NN6=NDVTOT 

00025 

ISN 0014 

NN7=NC0NA 

00026 


ARRAY STARTING LOCATIONS 


OPTIMIZATION 


-00027 

00028 


ISN 

0015 

c 

X, VLB, VUB, DF, A, S, Gl, G2, C, B, SCAL, ISC, IC, MSI 

NX=1 

00030 

00031 

ISN 

0016 


NVLB=LOCR( 2 ) 

00032 

ISN 

0017 


NVUB=LOCR( 3) 

00033 

ISN 

0018 


MNSCAL=LOCR(4) 

00034 

ISN 

0019 


NDF=LOCR(23) 

00035 

ISN 

0020 


N3=NDF+NN1 

00036 

ISN 

0021 


NA=NG+HN2 

00037 

ISN 

0022 


NS=NA+NN1#NN3 

0003a 

ISN 

0023 


NG1=NS+NN1 

00039 

ISN 

0024 


NS2=HSl+NN2 

00040 

ISN 

0025 


NC=NG2+NN2 

00041 

ISN 

0026 


H3=NC+HN4 

00042 

ISN 

0027 


NISC=L0CI(4) 

00043 

ISH 

0028 


NIC=LOCI(23) 

00044 

ISN 

0029 


NMS1=NIC+HN3 

00045 

ISN 

0030 

C 

AMULT, BLU, IDSGN, NSDGN, ICON 
NAMULT=L0CR(5) 

00046 

00047 

ISN 

0031 


N3LU=L0CR(6) 

00048 

ISN 

0032 


NIDSGN=1 

00049 

ISN 

0033 


NNDSGN=LOCI(2) 

00050 

ISN 

0034 


NICON=LOCI( 3 ) 

00051 


-00052 

00053 

-00054 



♦VERSION 1.3.0 (01 
I5N 0035 

C 

c 
10 


HAY 80) COPE02 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.54.23 PAGE 

IGOTO=0 00055 

CALL CONMIN ( X.VLB, VUB,G,SCAL,DF, A,S ,G1 ,G2 ,B ,C,ISC,IC,MS1 ,H1 ,N2 .N300056 
*,N4,N5) 00057 

ISN 0036 10 CONTINUE 00058 

ISN 0037 CALL CONMIN (RA(NX ) ,RA( HVLB ) ,RA( NVU3 ) ,RA( N3 ) ,RA( NNSCAL ) ,RA( NDF ) .RA00059 

1(NA),RA(NS),RA(N31 ) ,RA( NG2 ) ,RA( NB ) ,RA( NC ) ,IA( NISC ) ,IA( NIC ) ,IA( NMS100060 
2 ) )NN1 jNN2)NN3.NH4iNN5 ) 00061 

C ANALIZE. 00062 

NX),RA(NG),RA(NAtlULT),RA(NBLU),IA(NIDOOC63 
,NN2,HN6,NN7, ITER. OBJ) 00064 

00065 

00066 
00067 

^OPTIONS IN EFFECT*NAME( MAIN ) OPTIMIZE(3) LINECOUNT(60 ) SIZE(MAX) AUTCDBL(NONE ) 

^OPTIONS IN EFFECT*SCURCE EBCDIC NOLIST HODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG! I) 
^STATISTICS* SOURCE STATEMENTS = 41, PROGRAM SIZE = 1352, SUBPROGRAM NAME =COPE02 

^STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 3012K BYTES OF CORE NOT USED 


ISN 

0038 

CALL COPE03 ( ARRAY, NARRAY 
1SGN ) , IA( NNOSGN ) , IA( NICON ) 

ISN 

0039 

IF ( IGOTO.GT. 0 ) GO TO 10 

ISN 

0041 

RETURN 

ISN 

0042 

END 


ro 

CP 



♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.54.28 PAGE 1 

REQUESTED OPTIONS: SOURCE , NOMAP, NOXREF, NOLIST, NODECK, OPT( 3 ) ,AUTODBL(NONE ) ,NOALC 
OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTODBL( NONE ) 

SOURCE EBCDIC NOUST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOAHSF TERM IBM FUG(I) 


C DATA SET U477COPE03 AT LEVEL 002 AS OF 03/16/81 

o C DATA SET U477COPE03 AT LEVEL 001 AS OF 02/13/81 00001 

C DATA SET 918SC0PE03 AT LEVEL 001 AS OF 07/10/80 00002 

ISN 0002 SUBROUTINE COPE03 ( ARRAY, NARRAY.X.G.AMULT, BLU.IDSGN.NDSGN, ICON, NN100C03 

1,NN2,NN6,NN7, ITER, OBJ) ! 00004 

ISN 0003 COMMON /C0PES3/ SGN0PT,NCALC,IOBJ,NSV,HS0BJ,NC0NA,N2VX,M2VX,N2VY,M00005 

12VY .N2VAR .IPSENS.IP2VAR , IPDBG.NACMXl .NDVTOT , LOCRt 25) » LOCK 25 ) , ISCRQ0006 
21 ,ISCR2,NXAPRX,NPS»NPFS,NPA,NF , INOM.IPAPRX.KMIN.KMAX.XFACTl .XFACT200007 
3.NAN2, NAN 3 , NPMAX , NPTOT , JNOM , MAXTRM 00008 

ISN 0004 COMMON /UIOS/ 151, 161 00009 

ISN 0005 DIMENSION ARRAY! NARRAY ) , X(NN1), G(NN2), AM'JLT(NH6 )» BLU(4,NN7) 00010 

ISN 0006 DIMENSION ID3GN(NH6), NDSGN(NN6), ICON(NN7) 00011 

c XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXHXXXXXXXXXXXXXXXXXXXXXXXXXQ0012 

C BUFFER BETWEEN CONMIN AND COPES FUNCTION EVALUATION. 00013 

c XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX00014 

C BY G. N. VANDERPLAATS MAR., 1973. 00015 

C NASA-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 00016 

C INITIAL ANALYSIS HAS BEEN DONE. IF ITER = 0, GO EVALUATE 00017 

C OBJECTIVE AND CONSTRAINTS. 00018 

ISN 0007 IF ( ITER.EQ.O ) ITER1 = 0 00019 

ISN 0009 IF (ITER.LT.l) GO TO 40 00020 

c 00021 

C PRINT OUTPUT IF DEBUG CONTROL IS TURNED ON 00022 

C 00023 

C DEBUG OUTPUT AS REQUIRED. 00024 

ISN 0011 IF (IPDBG.LT. 1) GO TO 20 00025 

ISN 0013 IF (ITER. EQ.ITER1. OR. ITER. LE.l) GO TO 20 00026 

ISN 0015 XSAV2=X(1) 00027 

ISN 0016 X(1)=XSAV1 00028 

ISN 0017 N5=L0CR(5) 00029 

ISN 0018 M2=LOCI( 2 ) 00030 

ISN 0019 DO 10 1=1, NDVTOT 00031 

ISN 0020 N=NDSGN( I ) 00032 

ISN 0021 M=IDSGN( I ) 00033 

ISN 0022 IF (H.GT.O) ARRAY(M)=X( N )*AMULT( I ) 00034 

ISN 0024 10 CONTINUE 00035 

ISN 0025 ICALC=3 00036 

ISN 0026 NAN3=NAN3+1 00037 

ISN 0027 CALL ANALIZ (ICALC) 00038 

ISN 0028 WRITE (161,70) 00039 

ISN 0029 ITER1=ITER 00040 

ISN 0030 X( 1 )=XSAV2 00041 

ISN 0031 20 CONTINUE 00042 

C 00043 

C TRANSFER DESIGN VARIABLES TO USER ARRAY 00044 

c 00045 

ISN 0032 N5=L0CR( 5 ) 00046 

ISN 0033 M2=LCCI( 2 ) 00047 

ISN 0034 DO 30 1=1, NDVTOT 00043 

ISN 0035 N=NDSGN( I ) 00049 

ISN 0036 M=IDSGN( I ) 00050 

ISN 0037 IF (N.GT.O) ARRAY(M)=X(N)#AMULT( I) 00051 

ISN 0039 30 CONTINUE 00052 

C 00053 

C ANALIZE 00054 


?S 
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c 00055 

ISN 0040 ICALC=2 00056 

ISM 0041 NAN2=NAN2+1 00057 

ISM 0042 CALL ANALIZ (ICALC) 00058 

C SAVE XC 1 ) . 00059 

ISN 0043 XSAV1=X(1) 00060 

C 00061 

C OBJECTIVE 00062 

C 00063 

ISN 0044 40 CONTINUE 00064 

ISN 0045 OBJ=-SGNOPT*ARRAY(IOBJ) 00065 

ISN 0046 IF ( NCONA . EQ . 0 ) RETURN 00066 

C 00067 

C CONSTRAINT VALUES 00068 

c 00069 

ISN 0048 J=1 00070 

ISN 0049 N=0 00071 

ISN 0050 DO 60 1=1, NCONA 00072 

C PARAMETER IDENTIFIER. 00073 

ISN 0051 NN=ICON( I ) 00074 

ISN 0052 CC=ARRAY(HN) 00075 

C LONER BOUND. 00076 

ISN 0053 B5=BLU( 1,1) 00077 

ISN 0054 IF CBB.LT.-1.0E+15) GO TO 50 00078 

C NORMALIZATION FACTOR. 00079 

ISN 0056 C1=BLU( 2, I ) 00030 

C CONSTRAINT VALUE. 00031 

ISN 0057 N=N+1 00082 

ISN 0053 G(N) = (BB-CC)/C1 00083 

C UPPER BOUND. 00034 

ISN 0059 50 BB=BLU( 3,1) 00085 

C NORMALIZATION FACTOR. 00086 

ISN 0060 C1=BLU(4,I) 00087 

ISN 0061 J=J+4 00083 

ISN 0062 IF (BB.GT.1.0E+15) GO TO 60 00089 

C CONSTRAINT VALUE. 00090 

ISN 0064 N=N+1 00091 

ISN 0065 G(N)=(CC-EB)/C1 00092 

ISN 0066 60 CONTINUE 00093 

ISN 0067 RETURN 00094 

C 00095 

C 00096 

C FORMATS 00097 

C 00098 

ISN 0068 70 FORMAT (1H1) 00099 

ISN 0069 END 00100 

^OPTIONS IN EFFECT*NAME( MAIN ) OPTIMIZE! 3) LINECOUNTt 60 ) SIZE(MAX) AUTCDBLt NONE ) 

*OPTICNS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NDANSF TERM IBM FLAG(I) 
^STATISTICS* SOURCE STATEMENTS = 68, PROGRAM SIZE = 1246, SUBPROGRAM NAME =COPE03 


^STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 3004K BYTES OF CORE NOT USED 


ro 

--4 




♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82. 141/10 .54.31 PAGE 1 

REQUESTED OPTIONS: SOURCE , NOMAP, NOXREF ,NOLIST>NODECK,OPT( 3 ) ,AUTCDBL( NONE ) ,NOALC 
OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNT(60) SIZE(MAX) AUTODESK NOME ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FUG(I) 


C DATA SET U477COPE04 AT LEVEL 001 AS OF 02/13/81 

C DATA SET 91S8COPE04 AT LEVEL 001 AS OF 07/10/80 00001 

ISN 0002 SUBROUTINE CQPE04 ( ARRAY, HARRAY, SENS, NSENSZ.ISENS.NSENS, TEMP, NN8.N00002 

1N9,NN10,RA,IA,NDRA,NOIA) 00003 

ISN 0003 COMMON /COPES1/ TITLE(ZO) 00004 

ISN 0004 COMMON /C0PES3/ SGNOPT,NCALC,I03J,NSV,NS03J,NCONA,N2VX,M2VX,N2VY,MOOOC5 

1 2VY , N2VAR , IPSENS , IP2VAR , IPDEG, NACMX1 , NDVTOT , LOCR ( 25 ) , LOCI ( 25 ) , ISCRO 0 0 06 
21 ,ISCR2 ,NXAPRX,NPS,NPFS,NPA,NF , IKOM, IPAPRX,KMIH,KMAX>XFACT1 .XFACT200007 
3 , HAH2 , NAN 3 , NFMAX , NPTOT , JNOM , MAXTRM 00008 

ISN 0005 COMMON /CNMN1/ DE LFUN , D ABFUN , FDCH , FDCHM , CT , CTMIN , CTL , CTLMIN , ALPHAXOO 0 0 9 

1 , AEOB J 1 , THETA , 03 J ,NDV , NCOH , NSID E , I FRINT , NFDG , NSCAL , LINCBJ , ITMAX , ITO 0 0 1 0 
2RM,ICNDIR,IGOTO,NAC, INFO, INFOS, ITER 00011 

ISN 0006 DIMENSION ARRAY ( NARRAY ) , SENS(NN8), NSENSZ(NN9), ISENS(NHIO), NSENG0Q12 

1S(NN10), TEMPI 1 ) , RA(NDRA), IA(NDIA) 00013 

C xxxxxxxxxxxxxxxxxx*xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx*xxx00014 

C ROUTINE TO PROVIDE SENSITIVITY INFORMATION WITH RESPECT TO 00015 

C A PRESCRIBED SET OF DESIGN VARIABLES. 00016 

c XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX«XXX^)(X«XXXXXXXXXXXXXXX00017 

C BY G. N. VANDERPLAATS MAR., 1973. 00018 

C STORE OUTPUT ON UNIT ISCR1. 00019 

ISN 0007 REWIND ISCR1 00020 

ISN 0008 IF ( IPDBG.LT. 1 ) IPRINT=0 00021 

C 00022 

C WRITE BASIC INFORMATION ON UNIT ISCR1 00023 

c 00024 

C TITLE. 00025 

ISN 0010 WRITE ( ISCR1 ,330 ) (TITLE! I) ,1=1,20) 00026 

C NCALC, NSV, NSOBJ 00027 

ISN 0011 WRITE ( ISCR1 , 340 ) NCALC, NSV, NSOBJ 00028 

C ISENSt I ) , 1=1 , NSV. 00029 

ISN 0012 WRITE (ISCR1.340) ( ISENS( I ) ,1=1 ,HSV) 00030 

C NSENSZ( I ) ,1=1 , NSOBJ. 00031 

ISN 0013 WRITE (ISCR1.340) ( NSENSZf I ) ,1=1 , NSOBJ ) 00032 

ISN 0014 JCALC=3 00033 

ISN 0015 ICALC=2 00034 

ISN 0016 NDVSAV=NDV 00035 

C 00036 

C xxxxxxxxxx NOMINAL xxxxxxxxxx00037 

C 00033 

ISN 0017 IF (NCALC. EQ. 5) GO TO 10 00039 

C STANDARD SENSITIVITY. 00040 

ISN 0019 NAN2=NAN2+1 00041 

ISN 0020 CALL ANALIZ (ICALC) 00042 

ISN 0021 IF (IPSENS. GT.O) NAN3=NAN3+1 00043 

ISN 0023 IF (IPSENS. GT.O) CALL ANALIZ (JCALC) 00044 

ISN 0025 GO TO 130 00045 

ISN 0026 10 CONTINUE 00046 

C OPTIMUM SENSITIVITY. 00047 

C SAVE X, VLB, VUB AND SCAL IN TEMPORARY STORAGE. 00048 

ISN 0027 H=4*NDV+8 00049 

ISN 0028 L=LOCR( 24 ) 00050 

ISN 0029 DO 20 1=1, N 00051 

ISN 0030 RA< L )=RA( I ) 00052 

ISN 0031 20 L=L+1 00053 

C SAVE IDSGN AND NDSGN IN TEMPORARY STORAGE. 00054 




♦VERSION 1.3.0 

(01 

MAY 80) COPE04 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

DATE 82.141/10 

ISN 

0032 


N=2*NOVTOT 

00055 

ISN 

0033 


L=LOCI< 24 ) 

00056 

ISN 

0034 


DO 30 1=1, N 

00057 

ISN 

0035 


IA( L)=IA( I ) 

00058 

ISN 

0036 

30 

L=L+1 

00059 



C 

SHIFT DESIGN VARIABLE INFORMATION IF ANY SENSITIVITY VARIABLE 

IS 00060 



C 

ALSO A DESIGN VARIABLE. 

00061 

ISN 

0037 


NDV2=N0V+2 

00062 

ISN 

0038 


DO 90 1=1, NSV 

00063 



C 

GLOBAL SENSITIVITY VARIABLE LOCATION. 

00064 

ISN 

0039 


N=ISENS< I ) 

00065 



C 

IS THIS ALSO A DESIGN VARIABLE. 

00C66 

ISN 

0040 


M2=LOCI( 2 ) 

00067 

ISN 

0041 


DO 40 J=l,NDVTOT 

00068 

ISN 

0042 


L=IA( J ) 

00C69 

ISN 

0043 


IF ( L.EQ.N) GO TO 50 

00070 

ISN 

0045 

40 

M2=M2U 

00071 



C 

SENSITIVITY VARIABLE IS NOT A DESIGN VARIABLE. 

00072 

ISN 

0046 


GO TO 90 

00073 

ISN 

0047 

50 

CONTINUE 

00074 



C 

SENSITIVITY VARIABLE IS ALSO A DESIGN VARIABLE. 

00075 

ISN 

0048 


NDV=NDV-1 

00076 

ISN 

0049 


IDV=IA(M2 ) 

00077 



C 

ELIMINATE THIS DESIGN VARIABLE AND REDUCE HIGHER NUMBER DESIGN 00078 



C 

VARIABLES BY CNE. 

00079 

ISN 

0050 


M2=LOCI( 2 ) 

00080 

ISN 

0051 


DO 70 J=1 ,HDVTQT 

00031 

ISN 

0052 


IF (IA(M2).NE.IDV) GO TO 60 

00082 

ISN 

0054 


IA( M2 )=0 

00033 



C 

SET DESIGN VARIABLE VALUES TO SENSITIVITY VARIABLE VALUE. 

00034 

ISN 

0055 


K=IA( J ) 

00085 

ISN 

0056 


M5= LOCR ( 5 ) + J- 1 

00086 

ISN 

0057 


ARRAY ( K )=ARRAY( N )#RA( M5 ) 

00037 

ISN 

0053 

60 

CONTINUE 

00038 

ISN 

0059 


IF ( IA( M2 ) .GT.IDV ) IA(M2 )=IA( M2 )-l 

00089 

ISN 

0061 

70 

M2=M2+1 

00090 

ISN 

0062 


IF (IDV.EQ.NDV) GO TO 90 

00091 



C 

SHIFT X, VLB, VU3 AND SCAL. 

00092 

ISN 

0064 


DO 80 J=IDV,NDV 

00093 



C 

X. 

00094 

ISN 

0065 


RA( J )=RA( J + l ) 

00095 



C 

VLB. 

00096 

ISN 

0066 


K=J+NDV2 

00097 

ISN 

0067 


RA( K )=RA( K+l ) 

0009S 



C 

VUB. 

00099 

ISN 

0068 


K=K+N0V2 

00100 

ISN 

0069 


RA( K )=RA( K+l ) 

00101 



C 

SCAL. 

00102 

ISN 

0070 


K=K+NDV2 

00103 

ISN 

0071 

80 

RA(K)=RA(K+1) 

00104 

ISN 

0072 

90 

CONTINUE 

00105 

ISN 

0073 


NAN2=NAN2+1 

00106 

ISN 

0074 


CALL ANALI2 (ICALC) 

00107 

ISN 

0075 


IF (NDV.LE.O) GO TO 100 

00108 

ISN 

0077 


CALL COPE02 ( ARRAY, RA.IA.NARRAY, NORA, NDIA) 

00109 

ISN 

0078 

100 

CONTINUE 

00110 

ISN 

0079 


IF ( IPSENS.GT. 0 ) NAN3=NAN3+1 

00111 

ISN 

0081 


IF ( IPSENS.GT. 0 ) CALL ANALIZ (JCALC) 

00112 



C 

PUT X, VLB, VUB AND SCAL BACK. 

00113 


PAGE 2 



♦VERSION 1.3.0 
ISM 0033 
ISN 0084 
ISN 0085 
ISN 0036 

ISN 0087 
ISN 0088 
ISN 0C39 
ISN 0090 
ISN 0091 
ISN 0092 


ISN 0093 
ISN 0094 
ISN 0095 
ISN 0096 
ISN 0097 

ISN 0098 
ISN 0099 
ISN 0100 
ISN 0101 


ISN 0102 
ISN 0103 


ISN 0106 
ISN 0107 
ISN 0108 
ISN 0110 
ISN 0111 

ISN 0113 
ISN 0114 
ISN 0115 
ISN 0116 
ISN 0118 


ISN 0119 
ISN 0120 

ISN 0121 
ISN 0122 


ISN 0123 
ISN 0124 
ISN 0125 
ISN 0126 


(01 MAY 80) COPE04 SYSTEM 
L=LOCR(24) 

DO 110 1=1, N 
RA( I )=RA( L) 

110 L=L+1 

C PUT IOSGN AND NDSGN BACK 
H=2*KDVTOT 
L=LOCI( 24 ) 

DO 120 1=1, N 
IA( I )=IA( L ) 

120 L=L+l 
130 CONTINUE 


SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 


WRITE NOMINAL RESULTS ON UNIT ISCR1 


SENS(I.l). 

M=1 

DO 140 1=1, NSV 
TEMPI I )=SENS(M ) 

M=M+NSENS( I ) 

WRITE ( ISCR1 ,350 ) ( TEMP( I ) > 1=1 , NSV ) 
SENSITIVITY OBJECTIVES, OBJZ. 

DO 150 I=l,NS03J 
M=NSENSZ( I ) 

TEMP( I )=ARRAY(M) 

WRITE ( ISCR1 , 350 ) (TEMP( I ) ,1=1 .HSOBJ ) 


xxxxxxxxxx 


SENSITIVITIES 


NSVAL1=0 
DO 320 11=1, NSV 

GLOBAL LOCATION OF SENSITIVITY VARIABLE. 

ISEIISV=IS£NS( II ) 

NUM3ER OF SENSITIVITY VARIABLES, NSENSV. 

NSENSV=HSENS( II ) 

WRITE ISENSV AND NSENSV-1 ON UNIT ISCR1. 

NSENSI=NSENSV-1 

WHITE ( ISCR1 , 340 ) ISENSV, NSENSI 
IF ( NSENSV. LE.l) GO TO 320 
ID1=0 

IF (NCALC.NE.5) GO TO 210 

IS THIS SENSITIVITY VARIABLE ALSO A DESIGN VARIABLE. 

NDV=NDVSAV 

DO 160 1=1 ,NDVTOT 

JJ=I 

IF ( IA( I ).EQ. ISENSV) GO TO 170 
CONTINUE 

ISENSV IS NOT A DESIGN VARIABLE. 

GO TO 210 
CONTINUE 

ISENSV IS A DESIGN VARIABLE. MODIFY OPTIMIZATION INFORMATION. 

NDV2=NDV+2 

NDV=NDV-1 

SAVE X, VLB, VUB AND SCAL FOR THIS DESIGN VARIABLE AND SHIFT 
REMAINING VARIABLES. 

SAVE. 

M2=LOCI( 2 HJJ-1 
ID1=IA( M2 ) 

SAVX=RA( ID1 ) 

K=ID1+NDV2 


D) DATE 82.141/10.54.31 

00114 

00115 

00116 

00117 

00118 

00119 

00120 
00121 
00122 

00123 

00124 

00125 

00125 

00127 

00128 

00129 

00130 

00131 

00132 

00133 

00134 

00135 

00136 

00137 
00133 

00139 

xxxxxxxxxx00140 

00141 

00142 

00143 

00144 

00145 

00146 

00147 

00148 

00149 

00150 

00151 

00152 

00153 

00154 

00155 

00156 

00157 

00158 

00159 

00160 
00161 
00162 

ATION. 00163 

00164 

00165 

HIFT 00166 

00167 
00163 

00169 

00170 

00171 

00172 
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+VER5I0N 1.3.0 

(01 MAY 80) COPE04 SYSTEM/370 FORTRAN H EXTENDED 

( ENHANCED ) 

DATE 82.141/10.54.31 

IEN 

0127 


SAVL=RA(K) 


00173 

ISM 

0128 


K=K+NDV2 


00174 

ISM 

0129 


SAVU=RA( K ) 


00175 

ISM 

0130 


K=K+NDV2 


00176 

ISM 

0131 


SAVS-RA(K) 


00177 



C 

SHIFT 


00178 

ISM 

0132 


IF (ID1.GT.NDV) GO TO 190 


00179 

ISN 

0134 


DO 180 I=ID1,N0V 


00130 

ISM 

0135 


RA( I )=RA( 1+1 ) 


00181 

ISM 

0136 


K=I+NDV2 


00162 

ISM 

0137 


RA( K )=RA( K+l ) 


00183 

ISM 

0138 


K=K+NDV2 


ooie4 

ISM 

0139 


RA( K )=RA( K+l ) 


00185 

ISM 

0140 


K=K+NDV2 


00186 

ISM 

0141 

180 

RA( K )=RA( K+l ) 


00187 

ISM 

0142 

190 

CONTINUE 


00188 



C 

MODIFY N'DSGN. 


00189 

ISM 

0143 


M2=LOCI<2) 


00190 

ISN 

0144 


DO 200 1=1 iNDVTOT 


00191 

ISM 

0145 


IF ( IA( M2 ) . EQ . ID1 ) IA(M2)=0 


00192 

ISM 

0147 


IF ( IACM2 ) .GT.ID1 ) IA( M2 )=IA(M2 )-l 


00193 

ISM 

0149 

200 

M2=M2+1 


00194 

ISM 

0150 

210 

CONTINUE 


00195 















C 

VARY THE VALUE OF THE SENSITIVITY PARAMETER 

00197 













ISN 

0151 


NSVAL1=NSVAL1+1 


00199 

ISM 

0152 


NSVALM=NSVAL1 


00200 

ISM 

0153 


DO 280 JJ=2,NSENSV 


00201 

ISM 

0154 


NSVAL1=NSVAL1+1 


00202 

ISM 

0155 


ARR AY( ISEMSV ) =SENS ( NSVAL1 ) 


00203 



C 

WRITE SENS(I.J) DM UNIT ISCR1. 


00204 

ISM 

0156 


WRITE ( ISCR1 ■ 350 ) SEHS(NSVALl) 


00205 



C 

ANALIZE. 


00206 

ISN 

0157 


IF (NCALC.EQ.5) GO TO 220 


00207 



c 

STANDARD SENSITIVITY. 


00203 

ISN 

0159 


NAN2=NAN2+1 


00209 

ISM 

0160 


CALL ANALIZ (ICALC) 


00210 

ISN 

0161 


IF ( IPSENS.GT.O ) NAN3=NAN3+1 


00211 

ISM 

0163 


IF (IPSENS.GT.O) CALL ANALIZ (JCALC) 


00212 

ISM 

0165 


GO TO 260 


00213 

ISN 

0166 

220 

CONTINUE 


00214 



C 

OPTIMUM SENSITIVITY. 


00215 

ISM 

0167 


IF (NQV.EQ.NOVSAV) GO TO 240 


00216 



C 

SET LINKED DESIGN VARIABLE VALUES TO PRESCRIBED 

VALUE. 

00217 

ISN 

0169 


M2=LCCI( 2 ) 


00218 

ISM 

0170 


DO 230 1=1 iNDVTOT 


00219 

ISN 

0171 


IF (IA(M2).NE.0) GO TO 230 


00220 

ISN 

0173 


L=IA( I ) 


00221 

ISM 

0174 


M5=L0CR(5 J + I-l 


00222 

ISM 

0175 


ARRAY( L ) =ARRAY( ISEMSV )*RA( MS ) 


00223 

ISM 

0176 

230 

M2=M2+1 


00224 

ISN 

0177 

240 

CONTINUE 


00225 

ISM 

0178 


NAN2=NAN2+1 


00226 

ISM 

0179 


CALL ANALIZ (ICALC) 


00227 

ISN 

0180 


IF (NOV.LE.O) GO TO 250 


00228 

ISM 

0182 


CALL COPE02 ( ARRAY > R A > IA > NARR AY » NORA > NO I A ) 


00229 , 

ISM 

0133 

250 

CONTINUE 


00230 

ISN 

0184 


IF (IPSENS.GT.O) NAH3=NAN3+1 


00231 
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♦VERSION 1.3.0 (01 MAY 80) COPE04 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.54.31 PA 

ISN 0186 IF ( IPSENS.GT. 0 ) CALL ANALIZ (JCALC) 00232 

ISN 0183 260 CONTINUE 00233 

C 00234 

C WRITE SENSITIVITY RESULTS ON UNIT ISCR1 00235 

C 00236 

C OBJZ. 00237 

ISN 0189 DO 270 I=l,NSOBJ 00238 

ISN 0190 M=NSENSZ(I) 00239 

ISN 0191 270 TEMF( I )=ARRAY(M ) 00240 

ISN 0192 WRITE (ISCR1.350) ( TEMP( I ) ,1=1 ,NSOBJ ) 00241 

ISN 0193 280 CONTINUE 00242 

ISN 0194 ARRAY( ISENSV)=SENS(NSVALN) 00243 

ISN 0195 IF (NCALC.HE.5.0R.IDl.Eq.O) GO TO 320 00244 

C RESTORE X, VLB, VUB AND SCAL. 00245 

ISN 0197 NDV=NDVSAV 00246 

ISN 0198 IF ( ID1 .EQ.NDV ) 60 TO 300 00247 

ISN 0200 L=N0V-1 00248 

ISN 0201 L1=L 00249 

ISN 0202 DO 290 1=101, LI 00250 

ISN 0203 RA( L+l )=RA( L) 00251 

ISN 0204 K=L+NDV2 00252 

ISN 0205 RA(K*1 )=RA(K) 00253 

ISN 0206 K=K+NDV2 00254 

ISN 0207 RA(K+1 )=RA(K) 00255 

ISN 0208 K=K+NDV2 00256 

ISN 0209 RA(K+1 )=RA(K) 00257 

ISN 0210 290 L=L-1 00258 

ISN 0211 RA( ID1 )=SAVX 00259 

ISN 0212 K=ID1+NDV2 00260 

ISN 0213 RA( K )=SAVL 00261 

ISN 0214 K=K4NDV2 00262 

ISN 0215 RA(K)=SAVU 00263 

ISN 0216 K=K+NDV2 00264 

ISN 0217 RA( K )=SAVS 00265 

ISN 0218 300 CONTINUE 00266 

C RESTORE NDSGN. 00267 

ISN 0219 M2=LCCI( 2 ) 00268 

ISN 0220 DO 310 I=l,NDVTOT 00269 

ISN 0221 IF ( IA( M2 ) . GE . ID1 ) IA(M2 )=IA(M2) + 1 00270 

ISN 0223 IF ( IA( M2 ) . EQ.O ) IA(M2)=ID1 00271 

ISN 0225 310 M2=M2+1 00272 

ISN 0226 320 CONTINUE 00273 

ISN 0227 RETURN 00274 

C 00275 

C FORMATS 00276 

c 00277 

ISN 0228 330 FORMAT (20A4) 00278 

ISN 0229 340 FORMAT (1615) 00279 

ISN 0230 350 FORMAT (5E15.8) 002S0 

ISN 0231 END 00281 

*OPTIONS IN EFFECT*NAME(MAIN) OPTIMIZED) LINECOUNTt 60 ) SIZE(MAX) AUTODBL(NONE ) 

’'OPTIONS IN EFFECT*SCURCE EBCDIC NOLIST NCDECK OBJECT NCUAP NCFORMAT GOSTMT HOXREF NOALC NOANSF TERM IBM FLAG(I) 
*STATISTICS* SOURCE STATEMENTS = 230, PROGRAM SIZE = 3454, SUBPROGRAM NAME =COPE04 

^STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 2972K BYTES OF CORE NOT USED 


SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 


ISN 

ISN 

0186 

0188 

260 

IF (IPSENS.GT. 0) CALL ANALIZ (JCALC) 
CONTINUE 



C 

WRITE SENSITIVITY RESULTS ON UNIT ISCR1 



c 

OBJZ. 

ISN 

0189 


DO 270 1=1 , NSOBJ 

ISN 

0190 


M=NSENSZ( I ) 

ISN 

0191 

270 

TEMF( I )=ARRAY(M ) 

ISN 

0192 


WRITE (ISCR 1,350) ( TEMP( I ) ,1=1 , NSOBJ ) 

ISN 

0193 

280 

CONTINUE 

ISN 

0194 


APR AY( ISEHSV )=SENS( NSVALH ) 

ISN 

0195 


IF ( NCALC . NE . 5 . OR . ID 1 . EQ . 0 ) GOTO 320 



c 

RESTORE X, VLB, VUB AND SCAL. 

ISN 

0197 


NOV=NDVSAV 

ISN 

0198 


IF ( ID1 .EQ.NDV ) 60 TO 300 

ISN 

0200 


L=NDV-1 

ISN 

0201 


L1=L 

ISN 

0202 


DO 290 1=101, LI 

ISN 

0203 


RA( L+l )=RA( L) 

ISN 

0204 


K=L+NDV2 

ISN 

0205 


RA(K*1 )=RA(K) 

ISN 

0206 


K=K*NDV2 

ISN 

0207 


RA(K+1 )=RA(K) 

ISN 

0208 


K=K+N0V2 

ISN 

0209 


RA(K+1 )=RA(K) 

ISN 

0210 

290 

L=L-1 

ISN 

0211 


RA( ID1 )=SAVX 

ISN 

0212 


K=ID1+NDV2 

ISN 

0213 


RA( K )=SAVL 

ISN 

0214 


K=K4NDV2 

ISN 

0215 


RA( K )=SAVU 

ISN 

0216 


K=K4NDV2 

ISN 

0217 


RA(K)=SAVS 

ISN 

0218 

300 

CONTINUE 



C 

RESTORE NDSGN. 

ISN 

0219 


M2=LCCI( 2 ) 

ISN 

0220 


DO 310 1=1 iNDVTOT 

ISN 

0221 


IF (IA(M2).GE.ID1) IA(M2 )=IA(M2 )+l 

ISN 

0223 


IF ( IA( M2 ) . EQ.O ) IA(M2)=ID1 

ISN 

0225 

310 

M2=M2+1 

ISN 

0226 

320 

CONTINUE 

ISN 

0227 


RETURN 



c 

FORMATS 

ISN 

0228 

330 

FORMAT ( 20A4) 

ISN 

0229 

340 

FORMAT (1615) 

ISN 

0230 

350 

FORMAT (5E15.8) 

ISN 

0231 


END 


♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82. 141/10. 54. 41 PAGE 1 

REQUESTED OPTIONS: SOURCE .NOMAP, NOXREF , NOLIST, NODECK ,OPT( 3 ) ,AUT0D3L( NONE ) ,NOALC 
OPTIONS IN EFFECT: NAME ( MAIN ) 0PTIMIZE13) LINECOUNK 60 ) SIZE(MAX) AUTODDLt NONE ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP HO FOR MAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG! I) 


ro 

'-j 

-j 


ISN 0002 
ISN 0003 
ISN 0004 


ISN 0005 


ISN 0006 

ISN 0007 
ISN 0008 
ISN 0010 
ISN 0012 
ISN 0014 
ISN 0015 

ISN 0016 
ISN 0017 
ISN 0018 

ISN 0019 
ISN 0020 
ISN 0021 


ISN 0022 
ISN 0023 
ISN 0024 

ISN 0025 
ISN 0026 
ISN 0027 


ISN 0023 
ISN 0029 

ISN 0030 
ISN 0031 
ISN 0032 
ISN 0034 
ISN 0036 


C 

C 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


c 

c 

c 

c 


c 


c 

c 

c 


c 


c 


DATA SET U477COPE05 AT LEVEL 002 AS OF 03/16/81 

DATA SET U477COPE05 AT LEVEL 001 AS OF 02/13/81 00001 

DATA SET 9183COPE05 AT LEVEL 001 AS OF 07/10/80 00002 

SUBROUTINE COPE05 (RA, IA.NDRA.NDIA, ISCR1 ) 00003 

COMMON /UIOS/ 151, 161 00004 

DIMENSION RA(HORA), IA(NOIA) 00005 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 00006 
ROUTINE TO PRINT SENSITIVITY INFORMATION STORED ON UNIT ISCR1. 0C007 
XXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXX00008 
BY G. N. VANDERPLAATS JULY, 1974. 00009 

HASA-ANES RESEARCH CENTER, MOFFETT FIELD, CALIF. 00010 

REWIND ISCR1 00011 

00012 

GENERAL INFORMATION 00013 

00014 

TITLE. 00015 

READ (ISCR1.70) (RA( I ) ,1=1 ,20 ) 00016 

NCALC ■ HSV, NSOBJ 00017 

READ (ISCRl.aO) NCALC, NSV, NSOBJ 00018 

IF (NCALC. NE. 3. AND. NCALC. NE. 5) RETURN 00019 

IF (NCALC. EQ. 3) WRITE (161,90) 00020 

IF (NCALC. EQ. 5) WRITE (161,50) 0C021 

WRITE (161,60) ( RA( I ) , 1=1 ,20 ) 00022 

WRITE (161,100) NSV, NSOBJ 00023 

ISENS(I),I=1,NSV. 00024 

READ (ISCR1.S0) ( IA( I ) , 1=1 ,NSV) 00025 

WRITE (161,110) 00026 

WRITE (161,120) ( IA( I ) ,1=1 , NSV) 00027 

NSENSZ(I), 1=1, NSOBJ. 00023 

READ ( ISCR1 ,80 ) ( IA( I ) ,1=1 , NSOBJ ) 00029 

WRITE (161,130) 00030 

WRITE (161,120) (IA(I), 1=1, NSOBJ) 00031 

00032 

NOMINAL INFORMATION 00033 

00034 

S£NS( I ) , 1=1 ,NSV. 00035 

READ ( ISCR1 , 140 ) (RA( I ) ,1=1 ,NSV ) 00036 

WRITE (161,150) 00037 

WRITE (161,160) ( RAC I ) , 1=1 , NSV ) 00038 

03JZ( I ) , 1=1 , NS03J . 00039 

READ ( ISCR1 , 140 ) ( RA(I) , 1=1 ,NS03J ) 00040 

WRITE (161,170) 00041 

WRITE (161,160) (RAC I), 1=1, NSOBJ) 00042 

00043 

xxxxxxxxxx SENSITIVITY INFORMATION xxxxxxx*xxoC044 

00045 

WRITE (161,180) 00046 

DO 40 ISENS=1 ,NSV 00047 

ISENSI, NSENSI 00048 

READ (ISCR1.80) ISENSI .NSENSI 00049 

WRITE (161,190) ISENSI 00050 

IF (NSENSI. EQ.O) WRITE (161,200) 00051 

IF (NSENSI. EQ.O) GO TO 40 00052 

DO 30 JJ=1, NSENSI 00053 

SENS(I.J). 00054 



+ VERSION 1.3.0 (01 MAY 80) COPE05 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.54.41 PAGE 


ISN 

0037 


READ (ISCR1.140) SEN3IJ 



00055 



C 

03JZ( I ) ,1-1 ,N30SJ . 



00056 

ISN 

0038 


READ ( ISCR1 , 140 ) ( RA( I ) ,1=1 .NSQ3J ) 



00037 

ISN 

0039 


N=MIN0(4,NSC3J) 



00058 

ISN 

0040 


WRITE (161,210) SENSIJ, ( RA( I) ,1=1 ,N) 



00059 

ISN 

0041 


N=( NSOBJ-1 )/4 



00060 

ISN 

0042 


IF (N.LT.l) GO TO 20 



00061 

ISN 

0044 


Ll=5 



00062 

ISN 

0045 


DO 10 1=1, N 



00063 

ISN 

0046 


L2=Ll+3 



00064 

ISN 

0047 


L2=MIN0( L2 ,NSOBJ ) 



00065 

ISN 

0043 


WRITE (161,220) (RA( J ) ,J=L1 ,L2 ) 



00066 

ISN 

0049 

10 

Ll=Ll+4 



00067 

ISN 

0050 

20 

CONTINUE 



00068 

ISN 

0051 

30 

CONTINUE 



00069 

ISN 

0052 

40 

CONTINUE 



00070 

ISN 

0053 


RETURN 



00071 










C 

FORMATS 



00073 















ISN 

0054 

50 

FORMAT ( 1H1 ,4X,46H0PTIMUM SENSITIVITY 

ANALYSIS RESULTS 

( NCALC=5 ) ) 00075 

ISN 

0055 

60 

FORMAT ( //5X > 5HTITLE/5X , 20A4 ) 



00076 

ISN 

0056 

70 

FORMAT ( 20A4 ) 



00077 

ISN 

0057 

80 

FORMAT (1615) 



00078 

ISN 

0058 

90 

FORMAT ( 1H1 ,4X,47HSTANDARD SENSITIVITY ANALYSIS RESULTS 

(NCALC=3) )00079 

ISN 

0059 

100 

FORMAT ( //5X , 36HNUMBER OF SENSITIVITY 

VARIABLES, NSV.9X 

,1H= 

; 1 15/5X, 00030 




139HNUMBER OF SENSITIVITY OBJECTIVES, NS03J,6X, 1H=, 15 ) 


00081 

ISN 

0060 

110 

FORMAT (//5X.52HGL0BAL NUMBERS ASSOCIATED WITH SENSITIVITY 

VARIABL00032 




1ES) 



00033 

ISN 

0061 

120 

FORMAT (5X.10I5) 



00C64 

ISN 

0062 

130 

FORMAT (//5X.53HGL0BAL NUMBERS ASSOCIATED WITH SENSITIVITY 

OBJECTIOOC35 




IVES) 



00036 

ISN 

0063 

140 

FORMAT (5E15.8) 



00087 

ISN 

0064 

150 

FORMAT ( ////5X> 26HNOMINAL DESIGN INFOR 

!HATIGN//5X,31H VALUES 

OF SENS00038 




1ITIVITY VARIABLES) 



00039 

ISN 

0065 

160 

FORMAT (5X,5E13.5) 



00090 

ISN 

0066 

170 

FORMAT (//5X.41HVALUES OF SENSITIVITY 

OBJECTIVE FUNCTIONS) 

00091 

ISN 

0067 

180 

FORMAT ( /////5X» 28HSENSITIVITY ANALYSIS RESULTS) 


00092 

ISN 

0068 

ISO 

FORMAT (//5X.15HGL03AL VARIABLE , IS//10X, 1HX.20X ,4HF( X) ) 


00093 

ISN 

0069 

200 

FORMAT (/5X.35HTHE NOMINAL VALUE IS THE ONLY VALUE/5X, 27HSPECIFIED00C94 




1 FOR THIS VARIABLE) 



00095 

ISN 

0070 

210 

FORMAT ( /3Xi E12 .4, 3X.4E13.4 ) 



00096 

ISN 

0071 

220 

FORMAT (18X.4E13.4) 



00097 

ISN 

0072 


END 



00093 


•OPTIONS IN EFFECT*NAME ( MAIN ) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTCDBU NONE ) 

•OPTICUS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NCMAP NOFORMAT GOSTMT HOXREF NOALC NOANSF TERM IBM FLAG(I) 
•STATISTICS* SOURCE STATEMENTS = 71, PROGRAM SIZE = 2210, SUBPROGRAM NAME =C0FE05 

•STATISTICS* NO DIAGNOSTICS GENERATED 
****** END OF COMPILATION ****** 


2996K BYTES OF CORE NOT USED 



♦VERSION 1.3.0 (01 MAY 60) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 62. 141/10 .54. 45 PAGE 1 

REQUESTED OPTIONS : SOURCE , HOMAP , NOXREF , NO LIST , NQDECK , OPT( 3 ) , AUTODBL( NONE ) , NOALC 
OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUMT<60) SIZE(MAX) AUTCD3L(N0NE ) 

SOURCE EBCDIC NOLIST NCDECK OBJECT NOMAP NOFORMAT GOSTttT NOXREF NOALC NOANSF TERM IBM FLAG(I) 


C DATA SET U477COPE06 AT LEVEL 001 AS OF 02/13/81 

C DATA SET 9166COPE06 AT LEVEL 001 AS OF 07/10/80 00001 

ISN 0002 SUBROUTINE COPE06 ( ARRAY, RA,IA,NARRAY,NDRA,HDIA) 00002 

ISN 0003 COMMON /COPES1/ TITLE(20) 00003 

ISN 0004 COMMON /COPES3/ SGNOPT.NCALC, IOEJ ,NSV,NSOBJ,NCONA,N2VX,M2VX,N2VY,M00004 

12VY,N2VAR > IPSENS, IP2VAR ■ IFQBSiNACMXl >NDVTOT , LCCR( 25 ) > LOCK 25 ) > ISCR000C5 
21 ,ISCR2 1 NXAFRX 1 NPS ,NPFS,NPA,NF > IN0!1, IPAPRX,KMIN>KMAX,XFACT1 ,XFACT200006 
3 MIAN 2 , NAN3 , NPMAX , NPTOT , JNOM , MAXTRM 00007 

ISN 0005 DIMENSION ARRAY! NARRAY ) , RA(NDRA), lA(NDIA) 0000S 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXX00009 

C ROUTINE TO CALCULATE FUNCTIONS OF TWO DESIGN VARIABLES FOR ALL 00010 

C COMBINATIONS OF A SET OF PRESCRIBED VALUES OF THESE VARIABLES. 00011 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX00012 

C WRITE OUTPUT INFORMATION ON SCRATCH UNIT ISCR1. 00013 

C BY G. N. VANOERPLAATS AUG., 1974. 00014 

C NASA-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 00015 

ISN 0006 REWIND ISCR1 00016 

C 00017 

C UNIT ISCR1 WRITE 00018 

C 00019 

ISN 0007 WRITE (ISCR1.40) ( TITLE! I ) ,1=1 ,20 ) 00020 

ISN 0008 WRITE (ISCR1.50) NCALC.N2VAR ,M2VX,N2VX,M2VY ,N2VY 00021 

C N2VZ. 00022 

ISN 0009 M20=LOCI( 20 ) 00023 

ISN 0010 M2 1 = LOCK 2 1 ) — 1 00024 

ISN 0011 WRITE (ISCR1.50) ( IA( I ) ,I=M20 ,M21) 00025 

C 00026 

C TWO-VARIABLE FUNCTION SPACE 00027 

C 00028 

ISN 0012 ICALC=2 00029 

ISN 0013 KCALC=3 00030 

ISN 0014 ISIGN=1 00031 

ISN 0015 N20=LOCR( 20 ) 00032 

ISN 0016 N21=L0CR( 21 )-l 00033 

ISN 0017 DO 30 1=1 ,M2VX 00034 

ISN 0018 ARRAY( N2VX )=RA( N20 ) 00035 

ISN 0019 DO 20 J=1 ,M2VY 00036 

ISN 0020 N21=N21+ISIGN 00037 

ISN 0021 ARRAY! N2VY )=RA( N21 ) 00038 

C ANALIZE. 00039 

ISN 0022 NAN2=NAN2+1 00040 

ISN 0023 CALL ANALIZ (ICALC) 00041 

ISN 0024 IF (IP2VAR.GT.0) CALL ANALIZ (KCALC) 00042 

ISN 0026 IF (IP2VAR.GT.0) NAN3=NAN3+1 00043 

c 00044 

C UNIT ISCR1 WRITE 00045 

C 00046 

C WRITE X, Y. 00047 

ISN 0028 WRITE (ISCR1.60) RA1N20 ) ,RA< N21 ) 00048 

C F(X,Y ) VALUES. 00049 

ISN 0029 N23=L0CR( 23 ) 00050 

ISN 0030 N24=N23 00051 

ISN 0031 M20=LOCI( 20 ) 00052 

ISN 0032 DO 10 K=1 ,N2VAR 00053 

ISN 0033 N=IA( M20 ) 00054 





♦VERSION 1.3.0 (01 MAY 80) COPE06 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

00055 

00056 

00057 
00053 

00059 

00060 
00061 
00062 
00063 
00066 

00065 

00066 
00067 
00063 

00069 

00070 

00071 

00072 

00073 
00076 

00075 

00076 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NDFORMAT GCSTNT NOXREF NOALC NOANSF 
^STATISTICS* SOURCE STATEMENTS = 68, PROGRAM SIZE = 1113, SUBPROGRAM NAME =COPE06 

^STATISTICS* HO DIAGNOSTICS GENERATED 
****** END OF COMPIUTION ****** 


ISM 0036 


RA(N26)=ARRAY(N) 

ISN 0035 


N26=N26+1 

ISN 0036 


M20=M20+1 

ISN 0037 

10 

CONTINUE 

ISN 0033 


N26=N23+N2VAR-1 

ISN 0039 


HRITE (ISCR1.60) ( RA( K) ,K=N23,N26 ) 

ISN 0060 

20 

CONTINUE 

ISN 0061 


N2l=N21+ISIGN 

ISN 0062 


N20=N20+1 

ISN 0063 


ISIGN=-ISIGN 

ISN 0066 

30 

CONTINUE 

ISN 0065 

c 

RETURN 


c 

c 

FORMATS 

ISN 0066 

c 

c 

C 

60 

FORMAT (20A6) 

ISN 0067 

50 

FORMAT (1615) 

ISN 0068 

60 

FORMAT (5E15.8) 

ISN 0069 


END 

*OPTIONS IN 

EFFECT*HAME( MAIN) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTODBU NONE ) 


TERM IBM 


300eK BYTES OF CORE NOT USED 


PAGE 


FUG(I) 



DATE 62.141/10.54.50 


PAGE 1 



♦VERSION 1.3.0 (01 HAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

REQUESTED OPTIONS: SOURCE > NOMAP >NOXREF,MOLIST> NCDECK, OPT ( 3 ) , AUTCDBLI NONE ) , NOALC 
OPTIONS IN EFFECT: NAtlE( MAIN ) 0PTIMIZE(3) LINECOUNT( 60 ) SIZE(MAX) AUTODBU NONE ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTI1T NOXREF NOALC NOAHS F TERM IBM FLAG(I) 


C DATA SET U477COPE07 AT LEVEL 002 AS OF 03/16/81 

C DATA SET U477COPE07 AT LEVEL 001 AS OF 02/13/81 00001 

C DATA SET 9188COFE07 AT LEVEL 001 AS OF 07/10/80 00002 

ISN 0002 SUBROUTINE COPE07 ( RA, IA,HQRA,NDIA,ISCR1 ) 00003 

ISN 0003 COMMON /UIOS/ 151, 161 00004 

ISN 0004 DIMENSION RA(NDRA), IA(NOIA) 00005 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX00006 

C ROUTINE TO PRINT TWO VARIABLE FUNCTION SPACE INFORMATION STORED ON00007 

C UNIT ISCR1. 00008 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX-XXXXXXXXXXXXXXX00009 

C BY G. N. VANDERPLAATS AUG., 1974. 00010 

C NASA-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 00011 

ISN 0005 REWIND ISCR1 00012 

C 00013 

C GENERAL INFORMATION 00014 

c 00015 

C TITLE. 00016 

ISN 0006 READ (ISCR1.60) ( RA( I ) ,1=1 ,20 ) 00017 

ISN 0007 READ (ISCR1.70) HCALC,H2VAR,M2VX,N2VX,M2VY,N2VY 00018 

ISN 0008 IF (NCALC.NE.4.AND.HCALC.NE.6 ) RETURN 00019 

ISN 0010 WRITE (161,50) 00020 

ISN 0011 WRITE (161,40) (RA( I ) ,1=1 , 20 ) 00021 

C N2VZ( I ) ,1=1 »N2VAR . 00022 

ISN 0012 READ (ISCR1.70) ( IA( I ) ,1=1 ,N2VAR ) 00023 

C N2VX, N2VY. 00024 

ISN 0013 WRITE (161,120) N2VX.N2VY 00025 

C N2VZ. 00026 

ISN 0014 WRITE (161,130) 00027 

ISN 0015 WRITE (161,80) ( IA( I ) ,1=1 ,N2VAR ) 00028 

C 00029 

C TWO-VARIABLE FUNCTION SPACE INFORMATION 00030 

C 00031 

ISN 0016 DO 30 1=1 ,M2VX 00032 

ISN 0017 WRITE (161,140) 00033 

ISN 0018 DO 30 J=1 ,M2VY 00034 

C X, Y. 00035 

ISN 0019 READ (ISCR1.150) XX, YY 00036 

C F( X, Y ) . 00037 

ISN 0020 READ (ISCR1.150) ( RA( K ) ,K=1 ,N2VAR ) 00038 

ISN 0021 N=4 00039 

ISN 0022 IF (N2VAR.LT. 4) N=N2VAR 00040 

ISN 0024 IF ( J.EQ.l ) WRITE (161,100) XX.YY, (RA(K) ,K=1 ,N) 00041 

ISN 0026 IF (J.GT.i) WRITE (161,90) YY, ( RA( K ) ,K=1 ,N) 00042 

ISN 0023 IF (N.GE.N2VAR ) GO TO 20 00043 

ISN 0030 N=5 00044 

ISN 0031 M=( N2VAR-1 )/4 00045 

ISN 0032 DO 10 K=1,M 00046 

ISN 0033 L=N+3 00047 

ISN 0034 IF ( L.GT.N2VAR ) L=N2VAR 00048 

ISN 0036 WRITE (161,110) ( RA(KK ) ,KK=N, L) 00049 

ISN 0037 10 N=L+1 00050 

ISN 0033 20 CONTINUE 00051 

ISN 0039 30 CONTINUE 00052 

ISN 0040 RETURN 00053 

C 00054 




♦VERSION 1.3.0 

(01 

MAY 80) 



C 




c 



ISN 0041 

40 

FORMAT 

ro 

ISN 0042 

50 

FORMAT 

ro 

ISN 0043 

60 

FORMAT 


ISN 0044 

70 

FORMAT 


ISN 0045 

80 

FORMAT 


ISN 0046 

90 

FORMAT 


ISN 0047 

100 

FORMAT i 


ISN 0043 

110 

FORMAT l 


ISN 0049 

120 

FORMAT 1 




1 , I5//5X 


ISN 0050 

130 

FORMAT 1 


ISN 0051 

140 

FORMAT l 


ISN 0052 

150 

FORMAT 1 


ISN 0053 


END 


COPE07 


SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 
FORMATS 


( //5X , 5HTITLE/5X , 20 A4 ) 

( 1H1 >4X, 35HTK0- VARIABLE 
(20A4) 

( 1615) 

( 5X, 1015 ) 

(/15X,E12.4,3X,4E13.4) 
(/3X,2E12.4, 3X,4E13.4 ) 
(30X.4E13.4) 


(5E15.8) 


FUNCTION SPACE RESULTS) 


DATE 82.141/10.54.50 
00055 

00056 

00057 

00053 

00059 

00060 
00061 
00062 

00063 

00064 
N2VX =00065 

00066 
00067 
00063 

00069 

00070 


,15) 


^OPTIONS IN EFFECT*MAME ( MAIN ) OPTIMIZE! 3) LINECOUNT(60) SIZE(MAX) AUTODDLt NONE ) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF 
^STATISTICS* SOURCE STATEMENTS = 52, PROGRAM SIZE = 1470, SUBPROGRAM 

*STATISTICS* NO DIAGNOSTICS GENERATED 
****** END OF COMPILATION ****** 3C04K BYTES OF CORE NOT USED 


NOALC NOANSF TERM IBM 
NAME =COPE07 


PAGE 2 


FLAG(I) 




♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82. 141/10 . 54.55 PAGE 1 

REQUESTED OPTIONS: SOURCE , NOMAP, NOXREF , NOLIST, NODECK ,OPT( 3 ) ,AUTCDBL( NONE ) ,NOALC 
OPTIONS IN EFFECT: NAME ( MAIN ) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTODBL(NONE) 

SOURCE EBCDIC NOLIST NODECK OBJECT NCMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 


C DATA SET U477COPE08 AT LEVEL 001 AS OF 02/13/81 

C DATA SET 9188COPE08 AT LEVEL 001 AS OF 07/10/80 00001 

ISN 0002 SUBROUTINE COPE08 ( A,B, IFORM.HFLD ) 00002 

ISN 0003 DIMENSION Ad), B(l), CdO) 00003 

ISN 0004 DATA COMMA/ 1 H , / , B L ANK/ 1H / 00004 

C ROUTINE TO CONVERT UNFORMATTED DATA TO FORMATTED DATA IN FIELDS 00005 

C OF 10, EACH FIELD RIGHT JUSTIFIED. 00006 

C BY G. N. VANDERPLAATS AUG., 1978. 00007 

C NASA AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 00008 

C INPUT. 00009 

C A - ARRAY OF DATA SEPERATED BY COMMAS. MINIMUM DIMENSION OF 00010 

C IS A( SO ) • 00011 

C — OUTPUT. 00012 

C B ARRAY 00 DATA IN FIELDS OF 10 AND RIGHT JUSTIFIED. 00013 

C MINIMUM DIMENSION OF B IS 10*NFU3. 00014 

C IFORM - 0 IF A WAS UNFORMATTED. 00015 

C 1 IF A WAS ALLREADY FORMATTED. 00016 

C NFLD - NUM3ER OF FIELDS OF DATA. 00017 

C NOTE. 00013 

C 1) DATA IS ASSUMED TO BE REAL OR INTEGER DATA WITH NO EMBEDDED 00019 

C BLANKS WITHIN A GIVEN FIELD. 00020 

C 2) DATA IS CONSIDERED UNFORMATTED IF 00021 

C A) A COMMA IS FOUND 00022 

C B) LAST NON-BLANK CHARACTER IS IN COLUMN 1-10 AND THERE IS 00023 

C NO DECIMAL AND IT IS NOT RIGHT JUSTIFIED. 00024 

C 00025 

ISN 0005 IF0RM=0 00026 

C SEARCH FOR LAST NON-BLANK CHARACTER AND SEARCH FOR COMMA. 00027 

C CALCULATE NUM3ER OF NON-BLANK SETS. 00028 

ISN 0006 INON=0 00029 

ISN 0007 KN0N=0 00030 

ISN 0008 LST=0 00031 

ISN 0009 DO 10 1=1,80 00032 

ISN 0010 IF (A(I). EQ. COMMA) GO TO 20 00033 

ISN 0012 JNCN=INON 00034 

ISN 0013 IF (A(I).EQ. BLANK) INON=0 00035 

ISN 0015 IF (A(I). NE. BLANK) INON=l 00036 

ISN 0017 IF ( INON.GT. JNON ) KNON=KNON+l 00037 

ISN 0019 IF (Ad). NE. BLANK) LST=I 00033 

ISN 0021 10 CONTINUE 00039 

C NO COMMA WAS FOUND. DATA MAY BE FORMATTED. 00040 

ISN 0022 IF (LST.GE.10) GO TO 90 00041 

C IF MORE THAN ONE SETS OF CHARACTERS, DATA IS ASSUMED FORMATTED. 00042 

ISN 0024 IF ( KNON.GT. 1 ) GO TO 90 00043 

ISN 0026 20 CONTINUE 00044 

C DATA IS UNFORMATTED. 00045 

ISN 0027 K2=10 00046 

ISN 0028 NFLD=0 00047 

ISN 0029 1=0 00043 

ISN 0030 30 CONTINUE 00049 

ISN 0031 1=1+1 00050 

ISN 0032 IF (I.GT.80) GO TO 110 00051 

C IGNORE LEADING BUNKS. 00052 

ISN 0034 IF (Ad). Eq. BLANK) GO TO 30 00C53 

C CALCULATE NUMBER OF NCN-BLANK CHARACTERS IN THIS FIELD. 00054 



284 


♦VERSION 1.3.0 (01 HAY 80) COPE08 SYSTEH/370 FORTRAN H EXTENDED (ENHANCED) DATE 82 . 141/10 .54.55 
ISN 0036 JJ=0 00055 

ISN 0037 DO 40 J=I,60 00056 

ISN 0038 IF (A(J). EQ. COMMA. OR. A(J).Eq. BLANK) GO TO 50 00057 

ISN 0040 JJ=JJ+1 00058 

ISN 0041 40 C(JJ)=A(J) 00059 

ISN 0042 50 NFLO-NFLD+1 03060 

ISN 0043 I=I+JJ 00061 

C BLANK FIELD NFLD OF B. 00062 

ISN 0044 Kl=K2-9 00063 

ISN 0045 DO 60 K=K1,K2 00064 

ISN 0046 60 B(K)=BLANK 00065 

C STORE C IN FIELD NFLD OF B, RIGHT JUSTIFIED. 00066 

ISN 0047 IF (JJ.Eq.O) GO TO 60 00067 

ISN 0049 J1=JJ 00068 

ISN 0050 K=K2 00069 

ISN 0051 DO 70 L=l , JJ 00070 

ISN 0052 B(K)=C(J1) 00071 

ISN 0053 K=K-1 00072 

ISN 0054 70 J1=J1-1 OQ073 

ISN 0055 80 K2=K2+10 00074 

ISN 0056 GO TO 30 00075 

ISN 0057 90 CONTINUE 00 076 

C FORMATTED INPUT. STORE A DIRECTLY IN B. 00077 

ISN 0058 IFORM=l 00078 

ISN 0059 NFLO=8 00079 

ISN 0060 DO 100 1=1,80 00380 

ISN 0061 100 B( I )=A( I ) 00081 

ISN 0062 110 CONTINUE 00082 

ISN 0063 RETURN 00083 

ISN 0064 END 00064 

^OPTIONS IN EFFECT*NAME(MAIN) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTODBLI NONE ) 

^OPTIONS IN EFFECT*SCURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM 
^STATISTICS* SOURCE STATEMENTS = 63, PROGRAM SIZE = 846, SUBPROGRAM NAME =COPE08 

^STATISTICS* NO DIAGNOSTICS GENERATED 


****** END OF COMPILATION ****** 3012K BYTES OF CORE NOT USED 


PAGE 2 


FLAG(I) 




+ VERSION 1.3.0 (01 MAY 30) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.191/10.59.59 PAGE 1 

REQUESTED OPTIONS: SOURCE , NOMAP, NOXREF .NOLIST, NODECK, OPT< 3 ) .AUTODBLl NONE ) ,KOALC 
OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTODQL(NONE) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFCRMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG! I) 


DATA SET U977COPE09 AT LEVEL 002 AS OF 03/16/61 

DATA SET U977COPE09 AT LEVEL 001 AS OF 02/13/31 00001 

DATA SET 9183CCPE09 AT LEVEL 002 AS OF 11/19/80 00002 

SUBROUTINE COPE09 00003 

COMMON /CNMN1/ DELFUN.DABFUN.FDCH > FDCHM, CT, CTMIN > CTL > CTLMIN, ALPHAX00009 
1.AB03J1, THETA, OBJ, NOV, NCOH, NSIOE , IPRIHT, NFDG, NSCAL, LINOBJ , UMAX, IT00005 
2RM , ICNDIR , IGOTO , NAC , INFO , INFOG . ITER 00006 

COMMON /COPES2/ RA( 5000 ) ,IA( 1000 ) 00007 

COMMON /C0PES3/ SGNOPT,NCALC,IOBJ,NSV,NSOBJ,NCCNA,N2VX,M2VX,N2VY,M00003 
12VYiH2VAR >IPSENS >IP2VAR > IPQBG,NACMX1 iMDVTOTiLOCRl 25 ) » LOCK 25 ) > ISCR 00009 
21 >ISCR2 , NXAPRX >NPS,NPFS> NPA,NF >INGM> IPAFRX,KMIN,KMAX>XFACT1 >XFACT200010 
3 , N AN2 , NAN3 , NPMAX , NPTOT , JNOM , MAXTRM 00011 

COMMON /GLOBCM/ ARRAY! 1500) 00012 

COMMON /UIOS/ 151, 161 00013 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXC0019 
ROUTINE TO DO APPROXIMATE OPTIMIZATION. 00015 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX:«ia!KXXXXXXXXXXXXXXXXXXXXQ0016 

00017 

BY G. N. VANDERPLAATS JAN., 1979. 00013 

NASA AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 00019 

00020 


ISM 

0003 


NFDGSV 

= NFDG 




00021 

ISN 

0009 


NFDG 

= 1 




00022 

ISN 

0010 


IF (NFDGSV .LT. 0) NFDG = 0 



00023 

ISN 

0012 


CTMIN 

= ABS( CTMIN) 



00029 

ISN 

0013 


CTLMIN 

= ABSt CTLMIN) 



00025 

ISN 

0019 


IF (CTMIN .LE. 

0.) CTMIN 

= 

.0005 

00026 

ISN 

0016 


IF (CTLMIN .LE. 

0.) CTLMIN 

= 

.0001 

00027 

ISN 

0018 


IF (ABS(CT) .LE. 

0.) CT 

= 

-.01 

00028 

ISN 

0020 


IF ( ABS(CTL) .LE. 

0.) CTL 

= 

-.001 

00029 

ISN 

0022 


IF (DELFUN .LE. 

0.) DELFUN 

r 

.0001 

00030 

ISN 

0029 


IF ( IPDEG .LT. 

1) IPRINT 

= 

0 

00031 

ISN 

0026 


IF (UMAX .LT. 

50) UMAX 

= 

50 

00032 

ISN 

0028 


NSIDE 

= 1 




00033 

ISN 

0029 


KOUNT 

= 0 




00039 



C 






00035 



c 



ARRAY STARTING LOCATIONS. 

00036 



c 






00037 

ISN 

0030 


NN1 

= NXAPRX + 

2 



00033 

ISN 

0031 


NXV 

= LOCR( 23 ) 




00039 

ISN 

0032 


NVLB 

= NXV ♦ 

NN1 



00090 

ISN 

0033 


NVUB 

= NVLB + 

NN1 



00091 

ISN 

0039 


NXNGM 

= NVUB + 

NM1 



00092 

ISN 

0035 


NDX 

= NXNOM + 

NXAPRX 



00093 

ISN 

0036 


NFNCM 

= NDX + 

NDV 



00099 

ISN 

0037 


NFHEW 

= NFNOM + 

NF 



00095 

ISN 

0033 


N3TAY 

= NFNEH + 

HF 



00096 

ISN 

0039 


NBR 

= NXAPRX + 

<NXAPRXX( NXAPRX + 1 ) )/2 

00097 

ISN 

0090 


IF (MAXTRM .LT. 3) NBR = MAXTRMXHXAPRX 

00098 

ISN 

0092 


NTMP 

= NBTAY + 

NBR*NF 



00099 

ISN 

0093 


NBLU 

= LCCR(6 ) 




00050 

ISN 

0099 


NISC 

= LOCK 9) 




00051 

ISN 

0095 


NIGFN 

= LOCK 23) 




00032 

ISN 

0096 


NIDV 

= NIGFN + 

NCCNA 



00053 

ISN 

0097 


IF (KMAX .LT. 0) GO TO 160 



00059 



ro 

oo 

cr> 


ERSION 1.3.0 (01 

MAY 80) 

COPE09 

SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

DATE 82.141/10.54 


C 

CCNMIN 

ARRAYS. 


00055 


c 

DIMENSIONS. 


00056 

ISN 

0049 

NN1 

= 

NDV + 

2 

00057 

ISN 

0050 

NN2 

r 

2*NDV + 

NCON 

00053 

ISN 

0051 

NN3 

= 

NACMX1 


00059 

ISN 

0052 

NN4 

= 

NN3 


00060 

ISN 

0053 

IF (NDV 

.GT. NH4) NN4 = NDV 

00061 

ISN 

0055 

KN5 

s 

2*NN4 


00062 


C 

SCAL, DF 

, G, A, S, Gl, G2, C, B, ISC, IC, MSI. 

00063 

ISN 

0056 

NHSCAL 

= 

LCCR14) 


00064 

ISN 

0057 

NDF 

= 

HTMP 


00065 

ISN 

0053 

NG 

= 

NDF + 

NN1 

00066 

ISN 

0059 

NA 

= 

N3 + 

NN2 

00067 

ISN 

0060 

NS 

= 

NA ♦ 

NN1*NN3 

00068 

ISN 

0061 

NG1 

= 

NS + 

HN1 

00069 

ISN 

0062 

NG2 

= 

NG1 + 

NN2 

00070 

ISN 

0063 

NC 

= 

NG2 + 

NN2 

00071 

ISN 

0064 

NB 

= 

NC + 

NN4 

00072 

ISN 

0065 

NISC 

= 

LOCK 4) 


00073 

ISN 

0066 

NIC 

= 

NIDV + 

NXAPRX 

00074 

ISN 

0067 

NMS1 

= 

NIC + 

NN3 

00075 


ISN 0068 
ISM 0069 
ISN 0070 
ISM 0071 
ISN 0072 
ISN 0074 
ISM 0075 

ISN 0076 
ISM 0077 

ISN 0079 
ISM 0060 
ISN 0081 

ISM 0082 
ISN 0033 

ISN 0084 
ISN 0065 
ISN 0036 
ISN 0037 
ISN 0068 
ISN 0090 
ISN 0091 

ISN 0092 
ISN 0093 
ISN 0094 
ISN 0095 
ISN 0096 

ISN 0097 
ISN 0098 


C 

c 

c 

c 


DETERMINE I03JA, ARRAYS IGFN AND IOV. 


IOBJA. 

M6 = LOCK 6) 

DO 10 1=1, NF 

J = IA(M6) 

I03JA = I 

IF (J .EQ. IOBJ) GO TO 20 
N6 = M6+1 

10 CONTINUE 

C ERROR - IOBJA NOT FOUND. 

20 CONTINUE 

IF t NCONA .EQ. 0) GO TO 60 

C IGFN ARRAY. 

M3 = LOCK 3) 

M2 3 = LOCK 23) 

DO 50 1=1 iNCCNA 

COMMENT: GLOBAL LOCATIONS OF CONSTRAINED PARAMETERS. 

J = IA(M3) 

M3 = M3 + 1 

COMMENT: LOCAL VARIABLE, F, LOCATION. 

M6 = LOCK 6) 

DO 30 K=1 ,HF 
KK = K 
L = IA(M6) 

IF (L .EQ. J) GO TO 40 
M6 = M6 + 1 
30 CONTINUE 

COMMENT: ERROR - CONSTRAINED VARIABLE IS NOT AN APPROXIMATE FUNCTION. 

40 CONTINUE 

IA( M23 ) = KK 
M23 = M23 + 1 

50 CONTINUE 
60 CONTINUE 

COMMENT: IDV ARRAY. 

N3 = NIDV 

N5 = LOCK 5) 


-00076 

00077 

-00073 

00079 

00080 
00081 
00082 

00033 

00034 

00085 

00086 
00087 
00063 
00039 

00090 

00091 

00092 

00093 
-00094 

C0095 

00096 

-00097 

00098 

00099 

00100 
00101 
00102 

00103 

00104 

00105 

00106 

00107 

00108 

00109 

00110 
-00111 

00112 

00113 
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ro 

03 


+ VERSION 1.3.0 
ISN 0099 
ISN 0100 

ISN 0101 
ISN 0102 

ISN 0103 
ISN 0109 
ISN 0105 
ISN 0106 
ISN OIOS 
ISN 0109 
ISN 0110 

ISN 0111 
ISN 0112 

ISN 0113 
ISN 0119 
ISN 0115 


ISN 0116 
ISN 0117 
ISN 0116 
ISN 0il9 

ISN 0120 


ISN 0122 
ISN 0123 
ISN 0129 
ISN 0125 

ISN 0126 

ISN 0128 
ISN 0129 
ISN 0130 
ISN 0131 

ISN 0132 


ISN 0133 
ISN 0139 
ISN 0135 
ISN 0136 
ISN 0137 
ISN 0133 
ISN 0190 


ISN 0192 
ISN 0199 


ISN 0195 


SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 


(01 MAY 80) COPE09 

DO 90 1=1 iNXAPRX 
IA(N3) = 0 

COMMENT: GLOBAL LOCATION. 

II = IA(N5) 

N5 = N5 + 1 

COMMENT: FIND CORRESPONDING DESIGN VARIABLE. 

HI = LOCK 1 ) 

M2 = LOCK 2) 

DO 70 J=1 iNDVTOT 

IF (IA(H1) .EQ. II) GO TO 80 
N1 = N1 + 1 

N2 = N2 + 1 

70 CONTINUE 

COMMENT: THIS APPROXIMATING VARIABLE IS NOT A DESIGN VARIABLE. - 

GO TO 90 
80 CONTINUE 

COMMENT: DESIGN VARIABLE NUMBER. 

IA(N3) = IA(N2) 

N3 = N3 + 1 

90 CONTINUE 


COMMENT: 

COMMENT: 

DO 


COMMENT: 


COMMENT: 

COMMENT: 


—CHECK TO BE SURE EACH INDEPENDENT DESIGN VARIABLE IS ALSO 
—APPROXIMATING VARIABLE. 

120 1=1, NDV 
N1 = LOCK 1 ) 

N2 = LOCK 2) 

DO 111 J=1 >NDVTOT 

IS THIS DESIGN VARIABLE I. 

IF ( IA(N2 ) .NE. I) GO TO 110 

YES. 

GLOBAL VARIABLE NUM3ER. 

IGLOB = IA(N1) 


Ml = Nl+1 

N5 = LOCK 5) 

DO 100 K=1 jNXAPRX 

COMMENT: IS THIS THE SAME 

IF (IA(N5) .EQ. 

COMMENT: NO. 

M5 = N5+1 
CONTINUE 
N2=N2+1 
CONTINUE 


AS IGLOB. 

IGLOB) GO TO 120 


100 

110 

111 

COMMENT: 


DATE 82.191/10.59.59 

00119 
00115 

00116 

, 00117 
' 00113 
00119 

00120 
00121 
00122 
00123 
00129 

00125 

00126 
00127 

00128 
00129 
00130 

00131 

00132 

00133 
AN00139 

00135 
00135 

00137 

00138 

00139 
—00190 

00191 
—00192 
—00193 
00199 

00195 

00196 

00197 
—00198 

00199 
—00150 

00151 

00152 

00153 
00159 


120 CONTINUE 


BEGIN SEQUENTIAL APPROXIMATE OPTIMIZATION. 


ERROR - DESIGN VARIABLE IS NOT AN APPROXIMATING VARIABLE.— 00155 

00156 

00157 

00153 

00159 

00160 
00161 
00162 
00163 
00169 

00165 

00166 

00167 

00168 

00169 

00170 

00171 

00172 


ICK1 = 0 
ICK2 = 0 
ICK3 = 0 
130 CONTINUE 

KGUNT = KOUNT + 1 
IF ( IPAFRX .LT. 1 
IF ( KMAX . LT. 0) 

COMMENT: 

COMMENT: 

IF (KOUNT .GT. 1) 
WRITE (161,670) 

COMMENT: 

WRITE (161,550) IOBJA 


.OR. IPAPRX .Eq. 3) GO TO 160 
GO TO 160 
INFORMATION. 


PRINT INITIAL 
TITLE. 


GO TO 150 


OBJECTIVE FUNCTION. 
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+ VERSION 1.3.0 (01 MAY 80) COPE09 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82 . 141/10 .54.59 
ISN 0146 IF ( NCONA .EQ. 0) GO TO 140 00173 

COMMENT: CONSTRAINTS. C0174 

ISN 0148 WRITE (161,560) 0C175 

ISN 0149 N1 = HIGFN 00176 

ISN 0150 M2 = N1 + NCONA - 1 00177 

ISN 0151 WRITE (161,570) ( IA( I ) , I=N1 ,N2 ) 00178 

ISN 0152 140 CONTINUE 00179 

COMMENT: DESIGN VARIABLES. 00160 

ISN 0153 WRITE (161,530) 1 00161 

ISN 0154 N1 = HIOV ' 00182 

ISN 0155 N2 = N1 + NXAPRX - 1 00183 

ISN 0156 WRITE (161,570) ( IA( I ) , I=N1 ,N2 ) 00184 

ISN 0157 150 CONTINUE 00185 

COMMENT: ITERATION NUMBER. 00186 

ISN 0158 WRITE (161,680) KOUNT 00187 

ISN 0159 160 CONTINUE 00183 

ISN 0160 NP = NPTOT - 1 00189 

C 00190 

C SET UP ARRAYS XNOM, FNOM, XI, Y. 00191 

C 00192 

ISN 0161 NXI = NTI1P 00193 

ISN 0162 NY = NXI + NXAPRX*NPTOT 00194 

ISN 0163 NWGHT = NY + NF*NPTOT 00195 

ISN 0164 IF (KMAX .LT. 0 .AND. INOM .LT. 1) INOM = 1 00196 

COMMENT: 00197 

ISN 0166 CALL COPclO (RA( NXI ) ,RA(NY ) ,RA( NXNOM ) ,RA(NFNOM) , NPTOT, KOUNT, RA(N3L00198 

1U) ,IA( NIGFN) , ICBJA, I A( NISC) , NXAPRX, NF, NCONA >SGN0PT ,CTNIN,CTLMIN,ISQ0199 
2CR 2 , R A ( NWGHT ) , INOM , NPMAX , JNOM) 00200 

COMMENT: 00201 

ISN 0167 IF (KMAX .LT. 0) GO TO 170 00202 

COMMENT: CURRENT OBJECTIVE. 00203 

ISN 0169 N1 = NFNOM + IOBJA - 1 00204 

ISN 0170 C3JSAV = -RAfNl )#SGNOPT 00205 

ISN 0171 IF (KOUNT .LT. 2 .AND. DABFUN .L£. 0.) DAB FUN = . 001#ABS( OBJSAV)00206 

ISN 0173 IF (DABFUN .LT. 1.0E-10) DABFUN = 1.0E-10 00207 

ISN 0175 IF ( IPAPRX .LT. 1 .OR. IPAPRX .EQ. 3) GO TO 170 00208 

COMMENT: PRINT CURRENT NOMINAL. 00209 

ISN 0177 WRITE (161,690) INOM 00210 

ISN 0178 N2 = NXNOM + NXAPRX - 1 00211 

ISN 0179 WRITE (161,700) (RA(I), I=NXNOf1 , N2 ) 00212 

ISN 0180 WRITE (161,710) 00213 

ISN 0181 N2 = NFNOM + NF - 1 00214 

ISN 0182 WRITE (161,700) ( RA( I ) ,I=NFNOM,N2 ) 00215 

ISN 0183 170 CONTINUE 00216 

C 00217 

C LEAST SQUARES FIT FOR TAYLER SERIES EXPANSION. 00218 

C 00219 

ISN 0184 NXI = NXAPRX 00220 

ISN 0185 M = NXI + (NXI# (NXI + l))/2 00221 

ISN 0186 IF (M .GT. NP) M = NP 00222 

ISN 0168 IF (NP .LT. NXAPRX) M = NXAPRX 00223 

ISN 0190 MMAX = NXAFRX*MAXTRM 00224 

ISN 0191 IF (MAXTRM .GT. 2) MMAX = M 00225 

ISN 0193 IF (M .GT.MMAX) M = MMAX 00226 

ISN 0195 NAA = NWGHT + NP 00227 

ISN 0196 NFF = NAA + (M#(M + 1 ) )/2 00228 

ISN 0197 NSG = NFF + M 00229 

COMMENT: 00230 


ISN 0198 CALL C0PE12 (RA(NXI) ,RA(NY) , NXI ,NP,NF,M,RA(NBTAY) ,RA(NAA) ,RA(NFF ) ,00231 
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rs 



ro 

CD 

CD 


ISN 0205 
ISN 0206 
ISH 0207 
ISN 020S 
ISN 0209 
ISN 0210 
ISN 0211 
ISN 0212 
ISN 0213 
ISN 0219 
ISN 0215 
ISN 0216 


+ VERSION 1.3.0 (01 MAY 80) COPE09 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

1 R A ( NGG ) , NX AFRX , NF , N3R , R A ( NWGHT ) . NER ) 

COMMENT: 

ISN 0199 IF (NER .GT. 0) WRITE (161,590) 

ISN 0201 IF ( KMAX .LT. 0) GO TO 530 

ISN 0203 IF ( IPAPRX -LT. 2 .AND. IPAPRX .NE. 9) GO TO 190 

COMMENT: PRINT TAYLER SERIES COEFFICIENTS. 

WRITE (161,720) 


N3 

N1 

DO 


= LOCK 6) 
= N3TAY 
180 J=1,NF 


180 

190 

C 

C 

C 


N2 

WRITE 

WRITE 

N1 

N3 

CONTINUE 
CONTINUE 
IF (KOUNT 


M 


= HI + 
(161,600) 
(161,700) 
= N1 + 

= N3 + 


- 1 

J,IA(N3) 

( RA( I ) , I=N1 ,N2 ) 


NBR 

1 


•GT. KMAX) GO TO 970 


INITIALIZE XV, DX, VLB, VUB. 


DATE 82.191/10.59.59 
00232 

00233 

00239 

00235 

00236 
00237 

00238 

00239 

00290 

00291 

00292 

00293 
00299 

00295 

00296 

00297 

00298 

00299 
00250 

00251 
00252 


ISN 

0218 

N1 

= 

NXV 

' 00253 

ISN 

0219 

DO 200 

1= 

l.NXAPRX 

00259 

ISN 

0220 

RA(N1 ) 

= 0. 

00255 

ISN 

0221 

N1 


= N1 + 1 

00256 

ISN 

0222 

200 CONTINUE 


00257 

ISN 

0223 

N2 

= 

NVLB 

00258 

ISN 

0229 

N3 

= 

NVU3 

00259 

ISN 

0225 

N9 

= 

NXNOM 

00260 

ISN 

0226 

N5 

= 

LOCR ( 2 ) 

00261 

ISN 

0227 

N6 

= 

L0CR( 3 ) 

00262 

ISN 

0228 

N7 

= 

LOCR ( 7 ) 

00263 

ISN 

0229 

N8 

= 

NDX 

00269 

ISN 

0230 

LI 

= 

M - NDV 

00265 

ISN 

0231 

L2 

= 

LI - NDV 

00266 

ISN 

0232 

ICK 

= 

ICK1 + ICK2 + ICK3 

00267 

ISN 

0233 

DO 210 

1= 

1,NDV 

00268 

ISN 

0239 

RA(N8) 

= 0. 

00269 

ISN 

0235 

XFACT 

= 1. 

00270 

ISN 

0236 

IF 

(I 

.LE. LI) XFACT = XFACT1 

00271 

ISN 

0238 

L2 


= L2 - NDV + I 

00272 

ISN 

0239 

IF 

( L2 

: .GE. 0) XFACT = XFACT2 

00273 



COMMENT: 

— 

REDUCE BOUNDS IF ANY ICK.GT.O. 00279 

ISN 

0291 

IF 

(ICK .GT. 0) XFACT = .5 

00275 

ISN 

0293 

DX 


= XFACT*RA( N7 ) 

00276 

ISN 

0299 

XX 


= RA(N9 ) 

00277 

ISN 

0295 

DXL 


= XX - RA(N5 ) 

00278 

ISH 

0296 

IF 

(DXL .GT. DX) DXL = DX 

00279 

ISN 

0298 

DXU 


= RAOI6) - XX 

00280 

ISN 

0299 

IF 

(DXU .GT. DX) DXU = DX 

00281 

ISN 

0251 

RA(N2) 

= -DXL 

00282 

ISN 

0252 

RA(N3) 

= DXU 

00283 

ISN 

0253 

N2 


= N2 * 1 

00289 

ISN 

0259 

N3 


= N3 ♦ 1 

00285 

ISN 

0255 

N9 


= N9 + 1 

00286 

ISN 

0256 

N5 


= N5 + 1 

00287 

ISN 

C257 

N6 


= N6 + 1 

00288 

ISN 

0258 

N7 


= N7 + 1 

00289 

ISN 

0259 

N3 


= N8 + 1 

00290 
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INJ 

10 

o 


♦VERSION 1.3.0 (01 MAY 80) COPE09 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.54.59 
ISN 0260 210 CONTINUE 00291 

ISN 0261 IF ( IPAPRX .LT. 2 .AND. IPAPRX .NE. 4) GO TO 220 00292 

ISN 0263 WRITE (161,610) 00293 

ISN 0264 N1 = NVLB + NDV - 1 00294 

ISN 0265 WRITE (161,700) (RA( I ) ,I=NVLB,N1 ) 00295 

ISN 0266 WRITE (161,620) 00296 

ISN 0267 N1 = NVUB + NDV - 1 00297 

ISN 0268 WRITE (161,700) ( RA( I ) ,I=NVUB,N1 ) 00293 

ISN 0269 220 CONTINUE 00299 

C 00300 

C OPTIMIZE APPROXIMATE FUNCTION. 00301 

c 00302 

COMMENT: OPTIMIZATION. 00303 

ISN 0270 IGOTO = 0 00304 

C CALL C0NMIN ( X,VLB, VUB,G,SCAL,DF,A,S,G1 ,G2 ,B,C,ISC, IC.MS1 ,N1 ,H2 .N300305 
C *,N4,N5) 00306 

ISN 0271 230 CONTINUE 00307 

COMMENT: 00303 

ISN 0272 CALL CONMIN ( RA( NDX) ,RA( NVLB) ,RA( NVUB ) >RA( NG ) >RA( NNSCAL ) ,RA(NDF ) .R00309 

1A(NA ) ,RA( NS ) ,RA( KG1 ) ,RA( N32 ) ,RA( NB ) ,RA( NC ) , IA( NISC ) ,IA(NIC ) , IA( NM300310 
2 1) , NNl , NN2 , HH3 , NN4 , NN5 ) 00311 

COMMENT: 00312 

COMMENT: TRANSFER VARIABLES FROM DX TO XV. 00313 

ISN 0273 NI = NIDV 00314 

ISN 0274 N2 = NXV 00315 

ISN 0275 DO 240 I=1,NXAPRX 00316 

ISN 0276 II = IA(N1) 00317 

ISN 0277 N4 = NDX + II - 1 00318 

ISN 0278 IF (II .GT. 0 .AND. II .LE. NDV) RA(N2) = RA(N4) 00319 

ISN 0280 Ni = Nl + 1 00320 

ISN 0281 H2 = N2 + 1 00321 

ISN 0282 N3 = N3 + 1 00322 

ISN 0283 240 CONTINUE 00323 

COMMENT: APPROXIMATE ANALYSIS. 00324 

COMMENT: 00325 

ISN 0284 CALL C0PE15 ( RA( NXV) ,RA( NG ) ,RA(NDF ) ,RA( NA ), IA( NISC ) ,IA( NIC ) >NN1 ,RA00326 

1 ( N3LU ) , UX1 , 103JA ,M,RA( NFNOM) ,RA( NFHEW ) ,RA( NBTAY) ,K'BR ,IA(NIGFN ) ,CT ,00327 

2 CTL , INFO , NAC , NCONA , NDV , NF , 03 J , SGNOPT ) 00328 

COMMENT: 00329 

ISN 0285 IF (IGOTO .GT. 0) GO TO 230 00330 

C IF DESIGN PRODUCED ZERO DELTA-X TWICE IN A ROW AND KOUNT.GE.KMIN, 00331 

COMMENT: TERMINATE. 00332 

ISN 0287 ICK1 = ICKI + 1 00333 

ISN 02e3 SUM = 0. 00334 

ISN 0289 Nl = NXV 00335 

ISN 0290 DO 250 1=1, NDV 00336 

ISN 0291 SUM = SUM ♦ RA(N1)#*2 00337 

ISN 0292 Nl = Nl + 1 00338 

ISN 0293 250 CONTINUE 00339 

ISN 0294 IF (SUM .GT. 1.0E-10) ICK1=0 00340 

ISN 0296 IF (IPAPRX .GT. 0 .AND. IPAPRX .NE. 3) WRITE (161,730) 00341 

ISN 0293 IF (ICKI .GE. 2 .AND. KOUNT .GE. KMIN ) GO TO 360 00342 

C 00343 

C INSURE NEW X-VECTOR IS INDEPENDENT 00344 

C 00345 

ISN 0300 JJJ = 0 00346 

ISN 0301 260 JJJ = JJJ+1 00347 

COMMENT: NOMINAL X-VECTOR. 00348 

ISN 0302 Nl = NTMP 00349 
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♦VERSION 1.3.0 (01 MAY 80) COFE09 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82 . 141/10 .54.59 


ISN 

0303 


N2 = NXNOM 


00350 

ISN 

0304 


N3 • = NXV 


00351 

ISN 

0305 


DO 270 1=1 »NXAPRX 


00352 

ISN 

0306 


RA(Nl) = RA(N2) + RA(N3) 


00353 

ISN 

0307 


N1 = N1 + 1 


00354 

ISN 

0308 


N2 = N2 + 1 


00355 

ISN 

0309 


N3 = N3 + 1 


00356 

ISN 

0310 

270 

CONTINUE 


00357 



COMMENT: READ X-VECTORS ONE AT A TIME 

AND COMPARE 

TO XNOM. 00358 

ISN 

0311 


REWIND ISCR2 


00359 

ISN 

0312 


HI = NTMP + NXAPRX 


00360 

ISN 

0313 


N2 = N1 + NXAFRX - 1 


00361 

ISN 

0314 


N3 = N2 +1 


00362 

ISN 

0315 


N4 = N3 + NF - 1 


00363 

ISN 

0316 


DO 290 J=1 iNPTOT 


00364 

ISN 

0317 


KK = J 


00365 



COMMENT: X-VECTOR. 


00366 

ISN 

0318 


READ (ISCR2) ( RA( I ) ,I=N1 ,N2 ) 


00367 



COMMENT: Y-VECTCR. NOT USED. READ 

TO POSITION 

ISCR2. 00368 

ISN 

0319 


READ (ISCR2) (RA( I ) ,I=N3,N4) 


00369 



COMMENT: COMPARE X WITH XNOM. 


00370 

ISN 

0320 


N5 = N1 


00371 

ISN 

0321 


N6 = NTMP 


00372 

ISN 

0322 


SUM = 0 . 


00373 

ISN 

0323 


DO 280 1=1, NXAPRX 


00374 

ISN 

0324 


SUM = SUM + (RA(N5) - RAUI6))**2 


00375 

ISN 

0325 


N5 = N5+1 


00376 

ISN 

0326 


N6 = N6 + 1 


00377 

ISN 

0327 

280 

CONTINUE 


00373 

ISN 

0328 


IF ( SUM. LT.1.0E-10) GO TO 300 


00379 

ISN 

0330 

290 

CONTINUE 


00330 

ISN 

0331 


GO TO 360 


00331 

ISN 

0332 

300 

CONTINUE 


00382 



C 

THIS DESIGN IS SAME AS A PREVIOUS DESIGN. 


00383 



C 

MODIFY DELTA-X VECTOR. 


00384 

ISN 

0333 


N'6=NVUB 


00385 

ISN 

0334 


N7=NXV 


00336 

ISN 

0335 


N8=NVLB 


00387 

ISN 

0336 


N9=NXV+NDV-1 


. 003S8 

ISN 

0337 


IF (IPAPRX.LT.1.0R.IPAPRX.EQ.3) GO TO 310 


00389 

ISN 

0339 


WRITE (161,630) 


00390 

ISN 

0340 


WRITE (161,740) 


00391 

ISN 

0341 


WRITE (161,700) ( RA( I ) ,I=N7,N9 ) 


00392 

ISN 

0342 


WRITE (161,750) 


00393 

ISN 

0343 


N9=NTMP+NXAPRX-1 


00394 

ISN 

0344 


WRITE (161,700) (RA(I),I=NTMP,N9) 


00395 

ISN 

0345 


WRITE (161,640) 


00396 

ISN 

0346 

310 

CONTINUE 


00397 

ISN 

0347 


AMULT= . 01#FLOAT( JJJ ) 


00393 

ISN 

0348 


DO 320 1=1, NDV 


00399 

ISN 

0349 


BU=RA(N6) 


00400 

ISN 

0350 


BL=RA(N3) 


00401 

ISN 

0351 


IF (BL.LT.-1.0E+15) BL=0. 


00402 

ISN 

0353 


IF ( BU.GT. 1 . 0E+15 ) BU=0. 


00403 

ISN 

0355 


DB=ABS(BU-BL) 


00404 

ISN 

0356 


IF (DB.LT.1.0E-6) DB=.l 


00435 

ISN 

0358 


DX=RA( N7 )+AMULT*DB 


00406 

ISN 

0359 


IF (DX.GT.RA(N6 ) ) DX=DX-2.*AMULT«DB 


00407 

ISN 

0361 


IF (DX. LT.RA(N8) ) DX=DX+1 .5#AMULT#DB 


00408 


PAGE 7 



♦VERSION 1.3.0 
ISM 0363 
ISN 0364 
ISN 0365 
ISN 0366 
ISN 0367 
ISN 0363 


ISN 0369 


ISN 0371 
ISN 0373 
ISN 0374 
ISN 0375 
ISN 0376 
ISN 0377 
ISN 0378 
ISN 0330 
ISN 0382 
ISN 0383 


(01 MAY 80) COPE09 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.1' 
RA(N7)=DX 00409 

NS=N6+1 00410 

N7=N7+1 00411 

N3=N3+1 00412 

320 CONTINUE 00413 

CALL C0PE15 (RA( NXV) ,RA(NG ) >RA( NDF ) >RA( NA ) . IA( NISC ) i IA( NIC ) >NN1 > RAO 04 14 
l(NBLU),NXl,IOBJA,M,RA(NFNOM),RA(HFNEU),RA(NBTAY),NBR,IA(NIGFN),CT, 00415 
2CTL , INFO , NAC , NCONA , NDV , NF , OBJ , SGNOPT ) 00416 

IF (JJJ.LT.4) GO TO 260 00417 

C FOUR TRIES HAVE FAILED TO PRODUCE A USABLE X-VECTOR. 00418 

C USE LATEST TRY. 00419 

C POSITION ISCR2 IF NEEDED. 00420 

IF (KK.EQ.NPTOT) GO TO 340 00421 

KK=KK+1 00422 

DO 330 J=KK,NPTOT 00423 

READ ( ISCR2 ) ( RA( I ) , I=N1 ,N2 ! 00424 

330 READ ( ISCR2 ) ( RA( I ) ,I=N3,N4 ) 00425 

340 CONTINUE 00426 

IF ( IPAPRX.LT. 1 .0R.IPAPRX.EQ.3) GO TO 350 00427 

IF ( JJJ.EQ.4) URITE (161,650) 00428 

350 CONTINUE 00429 

360 CONTINUE 00430 


DATE 82.141/10.54.59 

00409 

00410 

00411 

00412 

00413 




c 

UPDATE ANALYSIS. 

00432 



C 

XNOM. 

00434 

ISN 

0384 


Nl=NXNOM 

00435 

ISN 

0385 


N2=NXV 

00436 

ISN 

0386 


DO 370 1=1 jNXAPRX 

00437 

ISN 

0337 


RA(N1 )=RA(N1 )+RA(N2) 

00433 

ISN 

0388 


N1=N1+1 

00439 

ISN 

0389 

370 

N2=N2+1 

00440 

ISN 

0390 

C 

GLOBAL VARIABLES. 
N3=NXN0M 

00441 

00442 

ISN 

0391 


N4=NI0V 

00443 

ISN 

0392 


DO 410 I=1,NXAPRX 

00444 

ISN 

0393 

c 

DESIGN VARIABLE NUMBER. 
II=IA(N4) 

00445 

00446 

ISN 

0394 


IF (II.EQ.O) GO TO 400 

00447 

ISN 

0396 

c 

DESIGN VARIABLE UPDATE. 
Nl = LOCI( 1 ) 

00448 

00449 

ISN 

0397 


N2=L0CI( 2 ) 

00450 

ISN 

0393 


N5=L0CR(5) 

00451 

ISN 

0399 


DO 390 J=l,NDVTOT 

00452 

ISN 

0400 


IF (IA(N2).NE.II) GO TO 380 

00453 

ISN 

0402 

c 

UPDATE VARIABLE J. 
JJ=IA(N1) 

00454 

00455 

ISN 

0403 


ARRAY! JJ )=RA(N3 )*RA(N5) 

00456 

ISN 

0404 

380 

N1=H1+1 

00457 

ISN 

0405 


N2=N2+1 

00458 

ISN 

0406 


N5=N5+1 

00459 

ISN 

0407 

390 

CONTINUE 

00460 

ISN 

0408 

400 

N3=N3+1 

00461 

ISN 

0409 

410 

N4=N4+1 

00462 

ISN 

0410 


IF ( IPAPRX. LT. 1 .0R.IPAPRX.EQ.3) GO TO 420 

00463 

ISN 

0412 

C 

FRINT APPROXIMATE OPTIMIZATION INFORMATION. 
WRITE (161,740) 

00464 

00465 

ISN 

0413 


N2=NXV+NDV-1 

00466 

ISN 

0414 


WRITE (161,700) (RA( I ) ,I=NXV,N2 ) 

00467 


♦VERSION 1.3.0 
ISN 0415 
ISN 0416 
ISI1 0417 
ISN 0418 
ISN 0419 
ISN 0420 
ISN 0421 
ISN 0422 

ISN 0424 
ISN 0426 
ISN 0427 
ISN 0428 

ISN 0429 
ISN 0430 
ISN 0431 
ISN 0432 
ISN 0433 
ISN 0434 
ISN 0435 
ISN 0436 

ISN 0438 
ISN 0439 
ISN 0440 
ISN 0441 
ISN 0442 

ISN 0444 
ISN 0445 
ISN 0446 
ISN 0447 

ISN 0448 
ISN 0449 


ISN 0450 
ISN 0451 

ISN 0452 
ISN 0453 

ISN 0454 
ISN 0455 


(01 MAY 80) COPE09 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 
WRITE (161,750) 

N2=NXNOM+NXAPRX-l 

WRITE (161,700) (RA( I ) ,I=NXN0M,N2 ) 

WRITE (161,760) 

N2=NFNEW+NF-l 

WRITE (161,700) (RA(I),I=NFNEW,N2) 

420 CONTINUE 

IF ( ( ICK 1 . GE . 2 . AND . KOUNT . GE . KMIN ) . AND . ( I PAPRX . GT . 0 . AND . IPAPRX . 
1)) WRITE (161,540) 

IF (ICK1.GE. 2. AND. KOUNT. GE. KMIN) GO TO 460 

ICALC=2 

NAN2-NAN2+1 

CALL ANALIZ (ICALC) 

C NEW FUNCTION VALUES. 

Nl=NFNOM 

M6=LOCI(6) 

DO 430 1=1, NF 
II=IA(M6) 

M6=M6+1 

RA(H1 )=ARRAY( II ) 

430 N1=N1+1 

IF (IPDBG.LT.l) GO TO 440 
C DEBUG OUTPUT. 

NAN3=NAN3+1 

ICALC=3 

CALL ANALIZ (ICALC) 

440 CONTINUE 

IF ( IPAFRX.LT. 1 .OR. IPAPRX. EQ. 3) GO TO 450 
C PRINT PRECISE FUNCTION VALUES. 

WRITE (161,770) 


450 

C 


N2=NFNOM*NF-l 

WRITE (161,700) (RA( I ) >I=NFNOM»N2 ) 

CONTINUE 

NEW 03JECTIVE. 

Nl=NFNOM+ICBJA-l 

0BJ=-RA(N1)*SGN0PT 


WRITE NEW X AND F VALUES ON ISCR2. 


X-VECTOR. 

M1=NXN0M*NXAPRX-1 

WRITE (ISCR2) ( RA( I ) , I=NXN0M,N1 ) 

FUNCTIONS. 

Nl=NFNOM+NF-l 

WRITE ( ISCR2 ) (RA(I),I=NFN0M,N1) 

UFDATE PARAMETERS. 

NPTOT=NPTOT+l 

IF (JJJ.LT. 2. OR. KOUNT.LT. KMIN) INOM=NPTOT 


CONVERGENCE CHECK. 


DATE 82.141/10.54.59 

00468 

00469 

00470 

00471 

00472 

00473 

00474 
NE. 300475 

00476 

00477 

00478 

00479 

00430 

00431 

00432 

00483 

00484 

00485 

00486 

00487 
00483 

00489 

00490 

00491 

00492 

00493 

00494 

00495 

00496 

00497 

00498 

00499 

00500 

00501 

00502 

00503 
00504 

00505 
00506 

00507 

00508 

00509 

00510 

00511 

00512 

00513 

00514 

00515 
00516 

00517 
00518 



ISN 0457 

IF (KOUNT.LT. KMIN) GO TO 130 

00519 


ISN 0459 

ICK2=ICK2+1 

00520 

ro 

ISN 0460 

ICK3=ICK3+1 

00521 

co 

ISN 0461 

DEL=ABS(GBJ) 

00522 

ISN 0462 

IF ( DEL. LT. 1 . 0E-6 ) DEL=1.0E-6 

00523 


ISN 0464 

DEL=( 0SJ-03JSAV )/DEL 

' 00524 


ISN 0465 

DEL=ABS(OEL) 

00525 


ISN 0466 

IF (DEL.GT'.DELFUN) ICK2=0 

00526 


PAGE 9 


* R 
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295 


♦VERSION 1.3.0 (01 MAY 80) COPE09 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82. 141/10 .59.59 PAGE 11 


ISN 

0523 

560 

FORMAT 

(/5X.51HAPPR0XIMATING FUNCTIONS ASSOCIATED WITH CONSTRAINTS!) 0586 




1) 


00587 

ISN 

0529 

570 

FORMAT 

( 5X, 1015 ) 

00583 

ISN 

0525 

580 

FORMAT 

(//5X.63HDESIGN VARIABLE NUM3ERS ASSOCIATED WITH APPROXIMATOOSS9 




1IMG VARIABLES) 

00590 

ISN 

0526 

590 

FORMAT 

(//5X.59H* * LEAST SQUARES FIT TO APPROXIMATION DATA IS 

SIN00591 




1GULAR * */5X,29HRESULTS MAY NOT BE VALID) 

00592 

ISN 

0527 

600 

FORMAT 

(/5X, 15HFUNCTION NUMBER , 15 , 25H GLOBAL VARIABLE HUMBER 

,15/00593 




15X > 12HCOEFFICIENTS ) 

00599 

ISN 

0528 

610 

FORMAT 

(/5X.99HSIDE CONSTRAINTS ON APPROXIMATE 0PTIMIZATI0N//5X, 1200595 




1HLOMER 

BOUNDS ) 

00596 

ISN 

0529 

620 

FORMAT 

(/5X, 12HUPPER BOUNOS) 

00597 

ISN 

0530 

630 

FORMAT 

( / /5X , 76H0PTIMIZATI0N HAS PRODUCED AN X-VECTOR WHICH IS 

THE00598 




1 SAME AS A PREVIOUS DESIGN) 

00599 

ISN 

0531 

690 

FORMAT 

(/5X.51HTHE FOLLOWING DESIGN IS NOT THE APPROXIMATE OPTIMUM00600 




1) 


00601 

ISN 

0532 

650 

FORMAT 

(/5X.60HFOUR ATTEMPTS HAVE FAILED TO PRODUCE AN INDEPENDENT00602 




1 X-VECT0R/5X.52H0PTIMIZATI0N HILL CONTINUE WITH MOST RECENT X-VECT00603 




20R) 


00609 

ISN 

0533 

660 

FORMAT 

( 1H1 >9X,90HFINAL RESULT OF APPROXIMATE OPTIMIZATION) 

00605 

ISN 

0539 

670 

FORMAT 

( 1H1 »9X»92HAPPR0XIMATE OPTIMIZATION ITERATION HISTORY) 

00606 

ISN 

0535 

680 

FORMAT 

(///5X.22HBEGIN ITERATION NUMBER, 15) 

00607 

ISN 

0536 

690 

FORMAT 

( /5X, 23HNOMINAL DESIGN NUMEER =, I5//5X,6HX- VECTOR ) 

0C608 

ISN 

0537 

700 

FORMAT 

( 5X,5E13.5 ) 

00609 

ISN 

0533 

710 

FORMAT 

(/5X.15H FUNCTION VALUES) 

00510 

ISN 

0539 

720 

FORMAT 

(//5X.26HTAYLOR SERIES COEFFICIENTS) 

00611 

ISN 

0590 

730 

FORMAT 

(//5X.35HRESULTS OF APPROXIMATE OPTIMIZATION) 

00612 

ISN 

0591 

790 

FORMAT 

(/5X, 19HDELTA-X VECTOR) 

00613 

ISN 

0592 

750 

FORMAT 

( /5X , 8HX-VECTCR ) 

00619 

ISN 

0593 

760 

FORMAT 

( /5X , 27HAPPR0XIMATE FUNCTION VALUES) 

00615 

ISN 

0599 

770 

FORMAT 

</5X,23HFRECISE FUNCTION VALUES) 

00616 

ISN 

0595 


END 


00617 


^OPTIONS IN EFFECT*NAME( MAIN) OPTIMIZE(3) LINECCUNT( 60 ) SIBE(MAX) AUTODBK NONE ) 

♦(OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NCMAP NOFGRMAT GOSTfIT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
♦(STATISTICS* SOURCE STATEMENTS = 599, PROGRAM SIZE = 9868, SUBPROGRAM NAME =COPE09 

♦(STATISTICS* HO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 2909K BYTES OF CORE NOT USED 



ro 
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♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.55.08 PAGE 1 

REQUESTED OPTIONS: SOURCE , NOMAP .NOXREF, NOLIST, NODECK. OPT( 3) ,AUT003L( NONE ) ,NOALC 
OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECCUNT(60> SIZE (MAX) AUTCDBL(KOME) 

SOURCE EBCDIC NOLIST NODECK 03JECT NOMAP NOFORKAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 


C DATA SET U477COPE10 AT LEVEL 001 AS OF 02/13/81 

C DATA SET 9188COPE10 AT LEVEL 001 AS OF 07/10/80 00001 

ISN 0002 SUBROUTINE COPEIO (XI.Y,XNOM,FNCM,NPTOT.KOUHT,BLU,IGFN,IOBJA,ISC,N00002 

1XAPRX,NF,NC0NA,SGN0PT,CTMIN,CTLMIN,ISCR2,N3HT,IH3M,NFMAX,JN0M) 00003 

ISN 0003 DIMENSION XKNXAPRX, 1 ) , Y(NF,1), XNOM(l), FKOM(l), BLU(4,1), IGFN100004 

11), ISC(l), WGHT(l) 00005 

C *XXX#*)f#X#XXXX*#XX),*XXX»*XXX**XX*X**)(X»****K**XK:tX*XXXXX#*#*XX#X**00006 

C ROUTINE TO SET UP ARRAYS FOR TAYLER SERIES EXPANSION. 00007 

C *XXXXXXXXXX*XXXXXXXXXXXXXXXK**XXXX*XXXXXXXXXXXXXXXX»*XXX*XXX**XXXX00008 

C 00009 

C BY G. N. VAKDERPLAATS JAN., 1979. 00010 

C NASA AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 00011 

C 00012 

ISN 0004 REMIND ISCR2 00013 

ISN 0005 DO 10 J=l,HPTOT 00014 

ISN 0006 READ ( ISCR2 ) ( XI( I, J ) ,1=1 .NXAPRX) 00015 

ISN 0007 10 READ ( ISCR2 ) ( Y( I, J ) , 1=1 ,NF ) 00016 

C 00017 

C FIND BEST NOMINAL IF REqUIREO. 00018 

C 00019 

ISN 0008 IF ( KOUNT . LE . 1 . AND . INOM . GT . 0 ) GO TO 20 00020 

ISN 0010 IF (KOUNT. GT.l. AND. KOUNT. LE.JNOM) GO TO 20 00021 

ISN 0012 CALL COPE11 (NPTOT,Y,NF,INOM,BLU,NCOHA,IGFN,IC9JA,SGNOPT,CTMIN,CTL00022 

ININ, ISC) 00023 

ISN 0013 20 CONTINUE 00024 

C 00025 

C CREATE XNOM AND FNCM. 00026 

C 00027 

ISN 0014 DO 30 1=1, NXAPRX 00028 

ISN 0015 30 XNOtK I )=XI( I , INOM ) 00029 

ISN 0016 DO 40 1=1, NF 00030 

ISN 0017 40 FN0M( I ) =Y( I , INOM ) 00031 

ISN 0018 NP=NPTOT-l 00032 

ISN 0019 IF ( INOM . EQ . NPTOT ) GO TO 80 00033 

C 00034 

C SHIFT XI AND Y. 00035 

C 00036 

ISN 0021 DO 70 J=INOM,NP 00037 

ISN 0022 DO 50 1=1, NXAPRX 00033 

ISN 0023 50 XI(I,J)=XI(I,J+1) 00039 

ISN 0024 DO 60 1=1, NF 00040 

ISN 0025 60 Y( I, J )=Y( I, J+l ) 00041 

ISN 0026 70 CONTINUE 00042 

ISN 0027 80 CONTINUE 00043 

C 00044 

C REPLACE XI BY DELTA-XI AND Y BY DELTA-Y. 00045 

C 00046 

ISN 0028 DO 110 J=1 >NP 00047 

ISN 0029 DO 90 1=1, NXAPRX 00043 

ISN 0030 90 XI( I > J )=XI( I > J )-XNOM( I ) 00049 

ISN 0031 DO 100 1=1, NF 00050 

ISN 0032 100 Y(I,J)=Y(I,J )-FNOM( I ) 00051 

ISN 0033 110 CONTINUE 00052 

C 00053 

C WEIGHTING FACTORS. 00054 




♦VERSION 1.3.0 (01 MAY 80) COPE10 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.55.08 PAGE 2 

C 00055 


ISN 

0034 


SMAX=1 .OE-IO 

00056 

ISN 

0035 


DO 130 J=1,NP 

00057 

ISN 

0036 


SUM=0. 

00058 

ISN 

0037 


DO 120 1=1 ,NXAPRX 

00059 

ISM 

0033 

120 

SUM=SUM*XI(I,J)##2 

00060 

ISN 

0039 


IF (SUM.GT.SMAX) SMAX=SUM 

00061 

ISN 

0041 

130 

WGHT( J )=SQRT( SUM) 

00062 

ISN 

0042 


SNAX=SQRT ( SMAX ) ' 

00063 

ISN 

0043 


DO 140 1=1, NP 

00064 

ISN 

0044 

140 

WSHT( I ) =2 . -NGHT( I )/SMAX 

00065 

ISN 

0045 


IF (NP.LE.NPMAX) RETURN 

00066 








C 

REDUCE THE NUMBER OF DESIGNS TO NPMAX. 

00068 











ISN 

0047 


HPMX1=NPMAX+1 

00070 

ISN 

0048 


NPSAV=NP 

00071 

ISN 

0049 


DO 200 II=NPMX1 ,NPSAV 

00072 



C 

FIND DESIGN WITH MINIMUM WEIGHTING FACTOR. 

00073 

ISN 

0050 


WMIN=IIGHT( 1 ) 

00074 

ISN 

0051 


IKN=1 

00075 

ISN 

0052 


DO 150 1=2, NP 

00076 

ISN 

0053 


IF (WGHT(I).GE.WMIN) GO TO 150 

00077 

ISN 

0055 


WMIN=t!GHT( I ) 

00078 

ISN 

0056 


IMN=I 

00079 

ISN 

0057 

150 

CONTINUE 

00080 

ISN 

0058 


IF (IMN.EQ.NP) GO TO 190 

00031 



C 

SHIFT XI, Y AND WGHT. 

00032 

ISN 

0060 


NPM1=HP-1 

00083 

ISN 

0061 


DO 180 J=IMN,NPM1 

00084 

ISN 

0062 


DO 160 1=1 ,NXAFRX 

00085 

ISN 

0063 

160 

XKI,J)=XI(I,J+1) 

00086 

ISN 

0064 


DO 170 1=1, HF 

00007 

ISN 

0C65 

170 

Y( I, J )=Y( I , J+l ) 

0C088 

ISN 

0066 

180 

WGHT( I )=WGHT( 1+1 ) 

00039 

ISN 

0067 

190 

NP=NP-1 

00090 

ISN 

0068 

200 

CONTINUE 

00091 

ISN 

0069 


RETURN 

00092 

ISN 

0070 


END 

00093 


♦OPTIONS IN EFFECT#NAME ( MAIN ) OPTIMIZED) LINECOUNT(60 ) SIZE(MAX) AUTOCBK NONE ) 

♦OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
♦STATISTICS# SOURCE STATEMENTS = 69, PROGRAM SIZE = 2038, SUBPROGRAM NAME =COPE10 

♦STATISTICS# NO DIAGNOSTICS GENERATED 

♦♦♦♦♦# END OF COMPILATION ♦♦♦#** 3000K BYTES OF CORE NOT USED 


ro 
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ro 
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♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.55.11 PAGE 1 

REQUESTED OPTIONS: SOURCE , NOMAP, NOXREF , NOLIST, NODECK, OPT( 3 ) ,AUTODBL(KONE ) .NOALC 
OPTIONS IN EFFECT: HAME(MAIN) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTGDBLtNONE ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FUG(I) 


C DATA SET U477C0PE11 AT LEVEL 001 AS OF 02/13/81 

C DATA SET 918eC0P£ll AT LEVEL 001 AS OF 07/10/80 00001 

ISN 0002 SUBROUTINE COPE11 (NPTOT,Y,NYR,INOM,BLU,NCONA,IGFN,IO3JA,SGNDPT,CT00002 

1MIN,CTLMIN,ISC) 00003 

ISN 0003 DIMENSION Y( NYR , 1 ) , BLU(4,1), IGFN(l), ISC( 1 ) 00004 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX00005 

C ROUTINE TO DETERMINE NOMINAL DESIGN FOR APPROXIMATE OPTIMIZATION. 00006 
C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxi;xx**xx*x*xxx0G007 

C 00008 

C BY G. N. VAHDERPLAATS JAN., 1979. 00009 

C NASA AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 00010 

C NOMINAL DESIGN IS THE ONE WITH LOWEST OBJECTIVE SATISFYING ALL 00011 

C CONSTRAINTS. IF ALL DESIGNS VIOLATE CONSTRAINTS, THE DESIGN WITH 00012 

C THE LEAST VIOLATION IS FOUND. 00013 

C II IS DESIGN UITH LOWEST MAXIMUM CONSTRAINT VALUE. 00014 

C 12 IS THE DESIGN WITH THE LOWEST OBJECTIVE SATISFYING ALL 00015 

C CONSTRAINTS. 00016 

ISN 0004 CT1=ABS( CTMIN ) 00017 

ISN 0005 IF (CT1.LT. 0.004) CT1=0.004 00018 

ISN 0007 CTL1=ABS(CTLMIN) 00019 

ISN 0008 IF (CTL1.LT. 0.001 ) CTL1=0.001 00020 

C 00021 

C FIND MAXIMUM OBJECTIVE. 00022 

C 00023 

ISN 0010 OB JMAX=-Y( IOBJA, 1 )*SGNOPT 00024 

ISN 0011 DO 10 J=2,NPTOT 00025 

ISN 0012 03J=-Y( IOBJA, J)XSGN0PT 00026 

ISN 0013 IF (03J.GT.0BJMAX) OBJMAX=OBJ 00027 

ISN 0015 10 CONTINUE 00028 

C 00029 

C NOW FIND DESIGN VARIABLE WITH LOWEST OBJECTIVE SATISFYING ALL 00030 

C CONSTRAINTS AND OESIGN WITH LEAST CONSTRAINT VIOLATION. 00031 

C 00032 

ISN 0016 GMAX=1 . 0E+20 00033 

ISN 0017 11=1 00034 

ISN 0018 12=0 00035 

ISN 0019 DO 50 J=1 ,NPTOT 00036 

C OBJECTIVE. 00037 

ISN 0020 OBJ=-Y( IOBJA, J)xSGNOPT 00033 

C CONSTRAINTS. 00039 

ISN 0021 ICON=0 00040 

ISN 0022 Gl=-1 . 00041 

ISN 0023 DO 30 1=1 ,NCONA 00042 

ISN 0024 II=IGFN( I ) 00043 

ISN 0025 GG=Y( II , J ) 00044 

C LOWER BOUND. 00045 

ISN 0026 IF (BLU(1»I).LT.-1.0E+15) GO TO 20 00046 

ISN 0028 ICON=ICON+l 00047 

ISN 0029 CT=CT1 00048 

ISN 0030 IF ( ISC ( ICON ) . GT . 0 ) CT=CTL1 00049 

ISN 0032 G=(BLU( 1 , 1 )-GG )/BLU( 2,1 )-CT 00050 

ISN 0033 IF (G.GT.G1 ) G1=G 00051 

C UPPER BOUND. 00052 

ISN 0035 20 IF (BLU(3,I).GT.1.0E+15) GO TO 30 00053 

ISN 0037 ICON=ICON+l 00054 


299 


♦VERSION 1.3.0 (01 HAY 80) COPE11 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.55.11 PAGE 2 


ISN 

0038 


CT=CT1 



00055 

ISN 

0039 


IF ( ISC( ICON ) .GT. 0 ) CT=CTL1 



00056 

ISN 

0041 


G = ( GG-BLUt 3, 1 ) )/BLU(4> I )-CT 



00057 

ISN 

0042 


IF (G.GT.G1 ) G1=G 



00053 

ISN 

0044 

30 

CONTINUE 



00059 

ISN 

0045 


IF (G1.LT.O..OR.G1.GT.GMAX) GO 

TO 

40 

00060 

ISN 

0047 


I1=J 



00061 

ISN 

0048 


GMAX=G1 



00062 

ISN 

0049 

40 

IF (OBJ.GT.OBJMAX.OR.G1.GT.O. ) 

GO 

TO 50 

00063 

ISN 

0051 


I2=J 



00064 

ISN 

0052 


03JMAX=0BJ 



00065 

ISN 

0053 

50 

CONTINUE 



00066 

ISN 

0054 


IN0M=I1 



00067 

ISN 

0055 


IF (I2.GT.0) IN0M=I2 



00063 

ISN 

0057 


RETURN 



00069 

ISN 

0058 


END 



00070 


^OPTIONS IN EFF ECT*NAME ( MAIN ) OPTIMIZE(3) LINECOUNT( 60 ) SIZE(MAX) AUTODBL(NONE) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFCRMAT GOSTI1T NOXREF NOALC NOANSF TERM IBM FLAG(I) 
*STATISTICS* SOURCE STATEMENTS = 57, PROGRAM SIZE = 1134, SUBPROGRAM NAME =C0PE11 

^STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 30C3K BYTES OF CORE NOT USED 



CO 

o 

o 


♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.55.15 PAGE 1 

REQUESTED OPTIONS: SOURCE, NOMAP, NOXREF, NOLIST, NODECK, 0PT( 3 ) »AUT0D3L(N0NE ) .NOALC 
OPTIONS IN EFFECT: NAME (MAIN ) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTCDBU NONE ) 

SOURCE EBCDIC NOLIST N0DECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG! I) 


C DATA SET U477COPE12 AT LEVEL 001 AS OF 02/13/81 

C DATA SET 9188C0PE12 AT LEVEL 001 AS OF 07/10/80 00001 

C SUBROUTINE COPE12 00002 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX00003 

C ROUTINE TO PERFORM A LEAST SQUARES FIT OF AN ARBITRARY FUNCTION OF00004 

C NV VARIABLES. 00005 

C Y = F( XI >X2 , . . . , XNX ) = BU)XF(l) ♦ B(2)*F(2) + ... + B(M)*F(M) 00006 

c XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX00007 

C 00008 

C BY G. N. VANDERPLAATS JAN., 1979. 00009 

C NASA AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 00010 

C ARGUEMENTS, 00011 

C X»Y - INPUT ARRAYS OF OBSERVATIONS OF NP POINTS 00012 

C X(NX.NP), Y(NF ,NP) 00013 

C NX - NUMBER OF INDEPENDENT VARIABLES OF WHICH Y IS A FUNCTION. 00014 

C NP - NUMBER OF OBSERVATION POINTS. 00015 

C NF NUMBER OF SEFERATE CURVE FITS BEING DONE SIMULTANEOUSLY. 00016 

C THIS IS THE NUM3ER OF SETS OF Y VALUES. 00017 

CM- NUM3ER OF COMPONENTS OF THE FUNCTIONS TO BE FITTED. 00018 

C B - ARRAY OF M COEFFICIENTS OF FUNCTIONAL FIT TO DATE. 00019 

C A - M(M+l>/2 WORK VECTOR. 00020 

C F WORK VECTOR - F(M). 00021 

C G - WORK VECTOR - G(NF ). 00022 

C NXR - DIMENSIONED ROMS OF X. 00023 

C NYR - DIMENSIONED ROWS OF Y. 00024 

C N3R - DIMENSIONED ROWS OF B. 00025 

C WGHT - ARRAY OF WEIGHTING FACTORS - KGHT(NP). 00026 

C NER - ERROR FLAG. IF NER.GT.O, DIAGONAL ELEMENT NER OF A IS 00027 

C LESS THAN 1.0E-10. 00028 

C 00029 

C USER SUPPLIED SUBROUTINE, C0PE13. 00030 

C USAGE 00031 

C CALL C0PE13(XI,F,NX,M) 00032 

C ROUTINE TO EVALUATE COMPONENTS F( 1 ),..., F( M) WHICH ARE TO BE 00033 

C FITTED TO DATA. 00034 

C TO DATA. ROUTINE EVALUATES THE FUNCTIONS FOR A SINGLE VECTOR OF 00035 

C XI AND STORES THE RESULTING VALUES IN VECTOR F. 00036 

C ARGUEMENTS. 00037 

C XI - VECTOR OF INDEPENDENT VARIABLES AT WHICH FUNCTIONS ARE 00033 

C TO BE EVALUATED. 00039 

C F - VECTOR OF FUNCTION VALUES. 00040 

C NX NUMBER OF INDEPENDENT VARIABLES OF WHICH Y IS A FUNCTION. 00041 

CM- NUMBER OF FUNCTION COMPONENTS, ALSO REQUIREO DIMENSION OF F00042 
C 00043 

ISN 0002 SUBROUTINE COPE12 (X,Y,NX,NP,NF,M,B,A,F,G, NXR , NYR , NBR , WGHT , NER ) 00044 

ISN 0003 DIMENSION X( NXR, 1), Y(NYR.l), B(NBR, 1 ) , A(l), F(l), G( 1 ) 00045 

ISN 0004 DIMENSION WGHT( 1 ) 00046 

ISN 0005 IF (NX.LE.NP) GO TO 50 00047 

C SPECIAL CASE. FEWER OBSERVATIONS THAN DESIGN VARIABLES. USE 00048 

C AVERAGE FINITE DIFFERENCE FOR FIRST ORDER EXPANSION. 00049 

ISN 0007 NP1=NP*1 00050 

ISN 0008 AP=FLOAT(NP) 00051 

ISN 0009 DO 20 1=1, NX 00052 

ISN 0010 X( I,NP1 )=AP 00053 

ISN 0011 DO 10 J=I ,NP 00054 


PI 


♦VERSION 1.3. 

.0 (01 

MAY 80) COPE 12 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

DATE 82.141/10 

ISN 

0012 


IF (ABS(X(I,J)).GT.1.0E-10) GO TO 10 

00055 

ISN 

0014 


X(I,NP1)=X(I,HP1)-1. 


00056 

ISN 

0015 


X( Ij J ) = 1 . 0E + 20 


00057 

ISN 

0016 

10 

CONTINUE 


00053 

ISN 

0017 


IF (X(I,NPl).LT.l. ) X( I»NP1 ) = 1 . 


00059 

ISN 

0019 

20 

CONTINUE 


00060 

ISN 

0020 


DO 40 1=1, NX 


00061 

ISN 

0021 


DO 40 J=1,NF 


00062 

ISN 

0022 


B( I , J )=0 . 


00063 

ISN 

0023 


DO 30 K=1 ,NP 


00064 

ISN 

0024 

30 

B(I,J)=B(I,J )+Y( J,K )/X( I »K ) 


00065 

ISN 

0025 

40 

B(I,J)=B(I,J)/X(I,NP1 ) 


00066 

ISN 

0026 


NER = 0 


00067 

ISN 

0027 


RETURN 


00068 

ISN 

0028 

50 

CONTINUE 


00069 



C 

GENERAL CASE. DO LEAST SQUARES FIT. 

00070 



C 

A=B=0. 


00071 

ISN 

0029 


DO 60 J=1 ,NF 


00072 

ISN 

0030 


DO 60 1=1, M 


00073 

ISN 

0031 

60 

B( I, J )=0. 


00074 

ISN 

0032 


L=(M*(M*l))/2 


00075 

ISN 

0033 


DO 70 J=1,L 


00076 

ISN 

0034 

70 

A( J )=0 . 


00077 



C 

LONER TRIANGLE OF A IN SYMMETRIC 

MODE. 

00073 

ISN 

0035 


DO 100 K=1 >NP 


00079 

ISN 

0036 


UGHTK=KGHT(K) 


00080 

ISN 

0037 


CALL COPE 13 (X( 1 ,K) ,F,NX,M) 


00081 

ISN 

0038 


L=0 


00082 

ISN 

0039 


DO 80 J=1,M 


00083 

ISN 

0040 


DO 60 1=1, J 


00084 

ISN 

0041 


L=L+1 


00035 

ISN 

0042 

80 

A(L)=A(L)+F(I)*F(J)»NGHTK 


00086 



C 

Y#F 


00037 

ISN 

0043 


DO 90 L=1 ,NF 


00083 

ISN 

0044 


YLK=Y(L,K)*NGHTK 


000S9 

ISN 

0045 


DO 90 1=1, M 


00090 

ISN 

0046 

90 

B(I,L)=B(I,L)+YLK*F(I) 


00091 

ISN 

0047 

100 

CONTINUE 


00092 



c 

SOLVE FOR B. 


00093 

ISN 

0048 


IF (M.LE.l) GO TO 200 


00094 



c 

LDU DECOMPOSITION. 


00095 

ISN 

0050 


MN1=M-1 


00096 

ISN 

0051 


KK=0 


00097 

ISN 

0052 


DO 110 K=1 ,MM1 


00098 

ISN 

0053 


NER=K 


00099 

ISN 

0054 


KK=KK+K 


00100 

ISN 

0055 


IF ( ABS( A( KK ) ) . LT. 1 . OE-20 ) GO TO 

220 

00101 

ISN 

0057 


FACT=1./A(KK) 


00102 

ISN 

0058 


A( KK )=FACT 


00103 

ISN 

0059 


KP1=K+1 


00104 

ISN 

0060 


KJ=KK 


00105 

ISN 

0061 


DO 110 J=KP1,M 


00106 

ISN 

0062 


KJ=KJ+J-1 


00107 

ISN 

0063 


GG=A(KJ )#FACT 


001C8 

ISN 

0064 


KI=KK 


00109 

ISN 

0065 


IJ=KJ 


00110 

ISN 

0066 


CO 110 I=KP1 » J 


00111 

ISN 

0067 


IJ=IJ+1 


00112 

ISN 

0068 


KI=KI+I-1 


00113 
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♦VERSION 1.3.0 (01 MAY 80) C0PE12 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.55.15 


ISH 

0069 


A(IJ)=A(IJ)-A(KI)*GG 

00114 

ISN 

0070 

110 

CONTINUE 

00115 

ISN 

0071 


KK=KK+M 

00116 

ISN 

0072 


NER=M 

00117 

ISN 

0073 


IF (ABS(A(KK)).LT.1.0E-20) GO TO 220 

00118 

ISN 

0075 


A(KK)=1./A(KK) 

00119 



c 

FORWARD SUBSTITUTION 

00120 

ISN 

0076 


MP1=M+1 

00121 

ISN 

0077 


KK=0 

00122 

ISH 

0078 


DO 130 K=1,MM1 

00123 

ISN 

0079 


KP1=K+1 

00124 

ISN 

0080 


KK=KK+K 

00125 

ISN 

0031 


AKK=A(KK) 

00126 

ISN 

0032 


DO 120 L=1,NF 

00127 

ISN 

0033 

120 

B(K,L)=B(K,L)#AKK 

00128 

ISN 

0084 


KI=KK 

00129 

ISN 

0065 


DO 130 I=KP1,M 

00130 

ISN 

0086 


KI=KI+I-l 

00131 

ISN 

0037 


AKI=A(KI) 

00132 

ISN 

0038 


DO 130 J=1,NF 

00133 

ISN 

0089 


B(I,J)=B(I,J)-AKI*B(K,J) 

00134 

ISN 

0090 

130 

CONTINUE 

00135 

ISN 

0091 


KK=KK+M 

00136 

ISN 

0092 


AKK=A(KK) 

00137 

ISN 

0093 


DO 140 J=1,NF 

00138 

ISN 

0094 

140 

B(M, J )=B( Mi J )#AKK 

00139 



C 

BACK SUBSTITUTION. 

00140 

ISN 

0095 


DO 190 1=2, M 

00141 

ISN 

0096 


J=MP1-I 

00142 

ISN 

0097 


JJ=J#( J+l )/2 

00143 

ISN 

0098 


JK=JJ 

00144 

ISN 

0099 


JP1=J*1 

00145 

ISN 

0100 


DO 150 L=1 ,NF 

00146 

ISN 

0101 

150 

G(L)=0. 

00147 

ISN 

0102 


DO 170 K=JP1,M 

00148 

ISN 

0103 


JK=JK*K-1 

00149 

ISN 

0104 


AJK=A( JK) 

00150 

ISN 

0105 


DO 160 L=1 ,NF 

00151 

ISN 

0106 

160 

G(L)=G(L)+AJK*B(K,L) 

00152 

ISN 

0107 

170 

CONTINUE 

00153 

ISN 

0103 


AJJ=A( JJ) 

00154 

ISN 

0109 


DO 180 L=1,NF 

00155 

ISN 

0110 

180 

B(J,L)=B( J.L)-AJJ#G(L) 

00156 

ISN 

0111 

190 

CONTINUE 

00157 

ISN 

0112 


NER=0 

00153 

ISN 

0113 


RETURN 

00159 

ISN 

0114 

200 

CONTINUE 

00160 

ISN 

0115 


AKK=A( 1 ) 

00161 

ISN 

0116 


NER=1 

00162 

ISN 

0117 


IF ( ABS( AKK ) . LT. 1 . 0E-20 ) GO TO 220 

00163 

ISN 

0119 


AKK=1./AKK 

00164 

ISN 

0120 


DO 210 J=1 ,NF 

00165 

ISN 

0121 

210 

B(1,J)=B(1,J)*AKK 

00166 

ISN 

0122 


NER=0 

00167 

ISN 

0123 


RETURN 

00168 

ISN 

0124 

220 

CONTINUE 

00169 

ISN 

0125 


RETURN 

00170 

ISH 

0126 


END 

00171 


^OPTIONS IN EFFECT*NAME(MAIN) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTCDBL(NONE ) 
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♦VERSION 1.3.0 (01 MAY 80) COPE12 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82 . 1A1/10 .55. 15 PAGE A 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOI1AP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
^STATISTICS# SOURCE STATEMENTS = 125, PROGRAM SIZE = 28AA, SUBPROGRAM NAME =COPE12 

^STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION **#### 2992K BYTES OF CORE NOT USED 


Co 

o 

CO 



CO 

o 

4 ^ 


♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82. 141/10. 55. 22 • PAGE 1 

REQUESTED OPTIONS: SOURCE , NOMAP. NOXREF , NOLIST, NODECK, OPT< 3 ) .AUTCDBLt NONE ) ,NOALC 
OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNT(60 ) SIZE(MAX) AUTODBL(NONE) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 


C DATA SET U977C0PE13 AT LEVEL 001 AS OF 02/13/81 

C DATA SET 9188C0PE13 AT LEVEL 001 AS OF 07/10/80 00001 

ISN 0002 SUBROUTINE C0PE13 (X,F,NX,M) 00002 

ISM 0003 DIMENSION X(l), F(l) 00003 

c XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX00009 

C ROUTINE TO CALCULATE F VALUES FOR LEAST SQUARES FIT TO QUADRATIC 00005 

C Y-YO = DY-TRANSPOSE TIMES X + (1/2 X-TRANSPOSE TIMES H TIMES X. 00006 

c XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX00007 

C 00000 

C BY G. N. VANDERPLAATS JAN., 1979. 00009 

C X CONTAINS X-XO. 00010 

C M = MAXIMUM NUMBER OF COEFFICIENTS TO BE CALCULATED. 00011 

C M .LE. NX + (NX+D/2. 00012 

C DY COEF. 00013 

ISN 0009 DO 10 1=1, NX 00019 

ISN 0005 10 F( I )=X( I ) 00015 

C H COEF. = X1XX1, X2XX2, ... XNxXN, X1XX2 . . . X1*XN... 00016 

ISN 0006 II=NX 00017 

c 00018 

C DIAGONAL ELEMENTS. 00019 

c 00020 

ISN 0007 DO 20 1=1, NX 00021 

ISN 0008 11=11*1 00022 

ISN 0009 IF (II.BT.M) GO TO 90 00023 

ISN 0011 20 F(II)=.5*(X(I )*X2) 00029 

ISN 0012 IF (NX.LT.2) RETURN 00025 

C 00026 

C OFF-DIAGONAL ELEMENTS. 00027 

C 00023 

ISN 0019 NXM1=NX-1 00029 

ISN 0015 DO 30 1=1 >NXM1 00030 

ISN 0016 IP1=I+1 00031 

ISN 0017 DO 30 J=IP1 ,NX 00032 

ISN 0018 11=11+1 00033 

ISN 0019 IF (II.GT.M) GO TO 90 00039 

ISN 0021 30 F(II)=X(I)#X( J) 00035 

ISN 0022 90 CONTINUE 00036 

ISN 0023 RETURN 00037 

ISN 0029 END 00038 

^OPTIONS IN EFFECT*NAME(MAIN) OPTIMIZED) LINECOUNT(60) SIZE(MAX) AUTCDBL( NONE ) 

XOPTIONS IN EFFECTXSOURCE EECDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FUG(I) 
XSTATISTICS# SOURCE STATEMENTS = 23, PROGRAM SIZE = 566, SUBPROGRAM NAME =COPE13 


XSTATISTICS* NO DIAGNOSTICS GENERATED 
xxxxxx EHO OF COMPILATION xxxxxx 


3016K BYTES OF CORE NOT USED 



AVERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.55.24 PAGE 1 

REQUESTED OPTIONS: SOURCE , NOMAP, NOXREF , NOLIST, NODECK, OPT( 3 ) , AUTODBU NONE ) ,NOALC 
OPTIONS IN EFFECT: NAME ( MAIN ) OPTIMIZED) LINECOUMT(60 ) SIZE(HAX) AUTODBLt HONE ) 

SOURCE EBCDIC NOLIST NCOECK OBJECT NOMAP NGFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 


C DATA SET U477COPE14 AT LEVEL 002 AS OF 03/16/81 

C DATA SET U477COPE14 AT LEVEL 001 AS OF 02/13/81 00001 

C DATA SET 9188C0PE14 AT LEVEL 001 AS OF 07/10/80 00002 

ISH 0002 SUBROUTINE C0PE14 (NXAPRX, NF.NPTOT, RA.IA, LCCR, LOCI .TITLE, INOM.NDV, 00003 

1IPAPRX,ISCR2,MAXTRM) 00004 

ISN 0003 COMMON /UI05/ 151, 161 00005 

ISN 0004 DIMENSION RA(1), IA(1), LOCR(l), LCCI(l), TITLE! 1 ) 00006 

C XXXXXX-XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX00007 

C ROUTINE TO PRINT RESULTS OF APPROXIMATE ANALYSIS/OPTIMIZATION. 00003 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXkXXXXXXXXXXX00009 

C 00010 

C BY G. N. VAMOERPLAATS JAN., 1979. 00011 

C NASA AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 00012 

C 00013 

C 00014 

C TITLE. 00015 

c 00016 

ISN 0005 WRITE (161,90) ( TITLE! I), 1=1, 20) 00017 

C 00018 

C GLOBAL LOCATION OF X AND F(X) 00019 

c 00020 

C GLOBAL LOCATIONS OF X. 00C21 

ISN 0006 M3=L0CI(5) 00022 

ISN 0007 KM5=M5+NXAPRX-1 00023 

ISN 0003 WRITE (161,100) 00024 

ISN 0009 WRITE (161,110) ( IA( I ) , I=M5,MM5 ) 00025 

C GLOBAL LOCATIONS OF F(X). 00026 

ISN 0010 M6=LOCI( 6 ) 00027 

ISN 0011 MM6=M6+NF-1 00028 

ISN 0012 WRITE (161,140) 00029 

ISN 0013 WRITE (161,110) ( IA( I ) ,I=M6,MM6 ) 00030 

C 00031 

C X-VALUES AND FUNCTIONS, Ft X ) 0C032 

C 00033 

C X-VALUES. 00034 

ISN 0014 Nl=L0CR(23)+3xNXAPRX+6 00035 

ISN 0015 N2=N1+NXAPRX-1 00036 

ISN 0016 WRITE (161,120) NPTOT.INOM 00037 

ISN 0017 WRITE (161,130) (RA( I ) , I=N1 ,N2 ) 00033 

C F(X) VALUES. 00039 

ISN 0018 N1=N1+NXAPRX+NDV 00040 

ISN 0019 H2=N1+NF-1 00041 

ISN 0020 WRITE (161,150) 00042 

ISN 0021 WRITE (161,130) (RA( I ) ,I=N1 ,N2 ) 00043 

C 00044 

C TAYLER SERIES COEFFICIENTS. 00045 

C 00046 

ISN 0022 WRITE (161,170) 00047 

ISN 0023 NP-NPTOT-1 00048 

ISN 0024 NBTAY=N1+2XNF 00049 

ISH 0025 NBR=NXAPRX+( NXAPRX#! HXAPRX+1 ) )/2 00050 

ISN 0026 IF (MAXTRM.LT. 3) N3R=MAXTRM#NXAFRX 00C51 

ISN 0028 DO 30 JJ=1,NF 00052 

ISN 0029 M6=LOCI(6)+JJ-l 00053 

ISN 0030 M6=IA(M6) 00054 



♦VERSION 1.3.0 

(01 

MAY 80) C0PE14 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

DATE 82.141/10 

ISN 

0031 


WRITE (161,80) JJ,M6 

00055 



c 

LINEAR TERMS. 

00056 

ISN 

0032 


N2=NXAFRX 

00057 

ISN 

0033 


IF (NP.LT.N2) N2=NP 

00058 

ISN 

0035 


N2=N2+NBTAY-1 

00059 

ISN 

0036 


WRITE (161,160) 

00060 

ISN 

0037 


WRITE (161,130) (RA(I),I=NBTAY,N2) 

00C61 

ISN 

0036 


IF (NP.LE.NXAPRX) GO TO 20 

00062 

ISN 

0040 


IF (MAXTRM.LT.2) GO TO 20' 

00063 



c 

NON-LINEAR TERMS. 

00054 



c 

N1 = LOCATION OF FIRST DIAGONAL ELEMENT. 

00065 

ISN 

0042 


N1=N2+1 

00066 



c 

N2 = LOCATION OF LAST DIAGONAL ELEMENT. 

00067 

ISN 

0043 


N2=NXAPRX 

00063 

ISN 

0044 


IF (N2.GT.NP) N2=NP 

00069 

ISN 

0046 


N2=NZ+N1-1 

00070 



c 

N3= LOCATION OF FIRST OFF-DIAGONAL ELEMENT. 

00071 

ISN 

0047 


N3=N2+l 

00072 



c 

N4= LOCATION OF LAST OFF-DIAGONAL ELEMENT. 

00073 

ISN 

0048 


N4=NBR 

00074 

ISN 

0049 


IF (N4.GT.NP) N4-NP 

00075 

ISN 

0051 


N4=N4-2*NXAFRX+N3-1 

00076 



c 

LL = LOCATION OF LAST OFF-DIAGONAL ELEMENT - THIS ROM. 

00077 

ISN 

0052 


WRITE (161,190) 

00073 

ISN 

0053 


11 = 1 

00079 

ISN 

0054 


DO 10 I=N1 ,N2 

00080 

ISN 

0055 


WRITE (161,180) II 

00081 

ISN 

0056 


11=11+1 

00082 

ISN 

0057 


LL=N3+NXAPRX-II 

00083 

ISN 

0053 


IF ( LL.GT.N4) LL=N4 

00084 

ISN 

0060 


IF (LL.LT.N3) WRITE (161,130) RA(I) 

00085 

ISN 

0062 


IF (LL.GE.N3) WRITE (161,130) RAt I ) , ( RA(J ) , J=N3, LL) 

00086 

ISN 

0064 

10 

N3=LL+1 

00087 

ISN 

0065 

20 

CONTINUE 

00083 

ISN 

0056 


NBTAY =N3T AY+NBR 

00089 

ISN 

0067 

30 

CONTINUE 

00090 

ISN 

0068 


IF (IPAPRX.LT. 3) RETURN 

00091 

ISN 

0070 


REWIND ISCR2 

00092 

ISN 

0071 


WRITE (161,50) 

00093 

ISN 

0072 


DO 40 1=1 .NPTOT 

00094 



C 

X-VECTOR. 

00095 

ISN 

0073 


READ (ISCR2) ( RA( J ) , J=1 .NXAPRX) 

00096 

ISN 

0074 


WRITE (161,60) I 

00097 

ISN 

0075 


WRITE (161,130) (RA(J),J=1, NXAPRX) 

00098 



C 

FUNCTION VALUES. 

00099 

ISN 

0076 


READ ( ISCR2 ) ( RA( J ) , J=1 ,NF ) 

00100 

ISN 

0077 


WRITE (161,70) 

00101 

ISN 

0078 


WRITE (161,130) (RA(J),J=1,NF) 

00102 

ISN 

0079 

40 

CONTINUE 

00103 

ISN 

0080 


RETURN 

00104 













C 

FORMATS 

00106 











ISN 

0081 

50 

FORMAT (///5X, 18HSUMMARY OF DESIGNS) 

00108 

ISN 

0082 

60 

FORMAT (/5X.13HDESIGN NUM3ER , I5/5X , 8HX-VECT0R ) 

00109 

ISN 

0083 

70 

FORMAT (/5X, 15HFUNCTI0N VALUES) 

00110 

ISN 

0084 

80 

FORMAT (//5X,9HPARAMETER,I5, 18H = GLOBAL VARIABLE, 15) 

00111 

ISN 

0085 

90 

FORMAT ( 1H1 ,4X,44HRESULTS OF APPROXIMATE ANALYSIS/OPTIMIZATION///500112 




IX, 5HTITLE/5X , 20A4 ) 

00113 
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+ VERSION 1.3 

.0 (01 MAY 80) 

C0PE14 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

DATE 82.141/10.55.24 

ISH 

0036 

100 

FORMAT 

(///5X.31HGLOBAL LOCATIONS OF X-VARIABLES) 

00114 

ISH 

0037 

110 

FORMAT 

(5X.10I5) 

00115 

ISN 

0088 

120 

FORMAT 

( //5X , 25HAPPR0XIMATI0N IS BASED ON,I5,8H DESIGNS//5X, 

31HNOM30116 




1INAL DESIGN IS DESIGN NUMBER, I5//5X.21HVALUES OF X-VARIABLES) 00117 

ISH 

0089 

130 

FORMAT 

(5X.5E13.4) 

00118 

ISN 

0090 

140 

FORMAT 

( //5X , 35HGL0BAL LOCATIONS OF FUNCTIONS, FIX)) 

00119 

ISN 

0091 

150 

FORMAT 

(//5X.25HVALUES OF FUNCTIONS, F(X)) 

00120 

ISN 

0092 

160 

FORMAT 

(/5X.19H LINEAR TERMS, DEL F) 

00121 

ISN 

0093 

170 

FORMAT 

(///5X, 39HCOEFFICIENTS OF TAYLOR SERIES EXPANSION) 

00122 

ISN 

0094 

ISO 

FORMAT 

(/5X,3HRON,I5) 

00123 

ISH 

0095 

190 

FORMAT 

( //5X , 5 1HNON-LINEAR TERMS, H, BEGINIM3 WITH DIAGONAL 

ELEMEN00124 




IT) 


00125 

ISN 

0096 


END 


00126 

*QPTIONS IN 

EFFECT*NAME ( MAIN 1 

OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTOOBLI NONE ) 



^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NO!1AP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
^STATISTICS* SOURCE STATEMENTS = 95, PROGRAM SIZE = 2632, SUBPROGRAM NAME =C0PE14 

^STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 2996K BYTES OF CORE NOT USED 


OJ 

o 

--a 



♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.55.28 PAGE 1 

REQUESTED OPTIONS: SOURCE , NOMAP, NOXREF .HOLIST, NODECK, OPT< 3 ) ,AUTODBL(NON2 ) ,NOALC 
OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNK 60 ) SIZE(MAX) AUTCDBU NONE ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP HOFORHAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 


CO 

o 

00 


C DATA SET U477C0PE15 AT LEVEL 001 AS OF 02/13/81 

C DATA SET 918SC0PE15 AT LEVEL 001 AS OF 07/10/80 00001 

ISN 0002 SUBROUTINE C0PE15 (XV.G.OF , A,ISC,IC,NN1 ,BLU,NX1 ,I03JA,M,FN0M, FNEW, 00002 

1 BTA Y , NBR , IGFN , CT , CTL , INFO , NAC , NCONA , ND V , I1F , CB J , SCNOPT ) 00003 

ISN 0003 DIMENSION XV(1), FNOM(l), FNEW(l), A(NN1,1), BTAY(NBR.l), DF(1), 100004 

1GFN(1), ISC(1)> IC(1), G( 1 ) > ELUl 4,1) 00005 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX00006 

C FUNCTION EVALUATION FOR APPROXIMATE OPTIMIZATION. 00007 

c XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXOCOOB 

C BY G. N. VANDERPLAATS JAN., 1979.00009 

C NASA-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 00010 

C 00011 

C 00012 

C OBJECTIVE. 00013 

c 00014 

ISN 0004 CALL C0PE16 (NX1 ,XV,NF,FNOM,FNEW,BTAY,NSR,M) 00015 

ISN 0005 CBJ=-FNEW( IOBJA JXSGNOPT 00016 

ISN 0006 IF ( INFO. EQ. 1 ) GO TO 20 00017 

C GRADIENT OF OBJECTIVE. 00018 

ISN 0008 CALL C0PE17 (NXl ,XV,IOBJA,BTAY,NBR,M,DF ) 00019 

ISN 0009 DO 10 1=1, NDV 00020 

ISN 0010 10 DF( I)=-DF( I )#SGNOPT 00021 

ISN 0011 20 CONTINUE 00022 

ISN 0012 IF (NCONA. LE.O) GO TO 80 00023 

c 00024 

C CONSTRAINTS. 00025 

c 00026 

ISN 0014 IF ( INFO. EQ. 2 ) NAC=0 00027 

ISN 0016 ICON=0 00028 

ISN 0017 DO 70 1=1, NCONA 00029 

ISN 0018 J=IGFN( I ) 00030 

ISN 0019 GG=FNEM(J) 00031 

C LOWER BOUND. 00032 

ISN 0020 IF ( BLU( 1 > I ) . LT. -1 .0E+15 ) GO TO 40 00033 

ISN 0022 ICON=ICON+l 00034 

ISN 0023 G( ICON ) = ( BLU( 1 ,1 )-GG )/BLU( 2,1) 00035 

ISN 0024 IF ( INFO. EQ. 1 ) GO TO 40 00036 

C IS THIS CONSTRAINT ACTIVE OR VIOLATED. 00037 

ISN 0026 CTI=CT 00038 

ISN 0027 IF ( ISC( ICON ) .GT. 0 ) CTI=CTL 00039 

ISN 0029 IF ( G( ICON ) . LT.CTI ) GO TO 40 00040 

C ACTIVE CONSTRAINT. CALCULATE GRADIENT. 00041 

ISN 0031 NAC=NAC*1 00042 

ISN 0032 IC( NAC )=ICON 00043 

ISN 0033 NM=M 00044 

ISN 0034 IF ( ISC( ICON) .GT. 0 ) MM=NDV 00045 

ISN 0036 CALL COPE17 ( NXl ,XV, J ,BTAY,NBR ,MM,A( 1 ,NAC ) ) 00046 

ISN 0037 FF=l./BLU(2,I) 00047 

ISN 0033 DO 30 K=1,NDV 00048 

ISN 0039 30 A(K,HAC)=-A(K,NAC)XFF 00049 

ISN 0040 40 IF (BLU( 3,I).GT.1.0E+15) GO TO 60 00050 

ISN 0042 ICON=ICON+l 00051 

ISN 0043 G( ICON ) = (GG-BLU( 3,1 ) )/BLU(4, 1 ) 00052 

ISN 0044 IF ( INFO.EQ. 1 ) GO TO 60 00053 

C IS THIS CONSTRAINT ACTIVE OR VIOLATED. 00054 


81 



309 


♦VERSION 1.3.0 (01 MAY 80) C0PE15 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.55.28 PAGE 2 


ISN 0046 


CTI=CT 

00055 

ISN 0047 


IF ( ISC! ICON ) .GT . 0 ) CTI=CTL 

00056 

ISN 0049 


IF ( G( ICON ) . LT . CTI ) GO TO 60 

00057 


C 

ACTIVE CONSTRAINT. CALCULATE GRADIENT. 

00058 

ISN 0051 


NAC=NAC+1 

00059 

ISN 0052 


IC(NAC)=ICON 

00060 

ISN 0053 


NM=M 

00061 

ISN 0054 


IF (ISC! ICON). GT.O) MM=NDV 

00062 

ISN 0056 


CALL COPE17 ( HX1 ,XV, J ,BTAY,NBR,MM,A( 1 ,NAC ) ) 

00063 

ISN 0057 


FF=1./BLU(4,I) 

00064 

ISN 0058 


DO 50 K=1,NDV 

00065 

ISN 0059 

50 

A! K,NAC )=A( K,NAC )*FF 

00066 

ISN 0060 

60 

CONTINUE 

00067 

ISN 0061 

70 

CONTINUE 

00068 

ISN 0062 

80 

CONTINUE 

00069 

ISN 0063 


RETURN 

00070 

ISN 0064 


END 

00071 


^OPTIONS IN EFFECT*NAME( MAIN ) OPTIMIZE! 3) LINECOUNTt 60 ) SIZE! MAX) AUTODBL! NONE ) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG! I) 
^STATISTICS* SOURCE STATEMENTS = 63, PROGRAM SIZE = 1728, SUBPROGRAM NAME =C0FE15 

*STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 3004K BYTES OF CORE NOT USED 




♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.55.31 PAGE 1 

REQUESTED OPTIONS: SOURCE , NOMAP .NOXREF , NOLIST .NODECK, OPT( 3 ) ,AUTCDBL( NONE ) .NOALC 
OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTCDBL(NO!JE ) 

SOURCE EBCDIC NOLIST NCDECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM F LAG ( I ) 


C DATA SET U477C0PE16 AT LEVEL 001 AS OF 02/13/81 

C DATA SET 918eC0FE16 AT LEVEL 001 AS OF 07/10/80 00001 

ISN 0002 SUBROUTINE COPE16 ( NX , X , NF , FNOM > FNEW > B , NBR , M ) 00002 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX00003 

C ROUTINE TO EVALUATE FUNCTIONS APPROXIMATED BY TAYLER SERIES 00004 

C EXPANSION UP TO SECOND ORDER. 00005 

c XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX00006 

c BY G. N. VANDERPLAATS MAR., 1978. 00007 

C NAVAL SHIP R AND D CENTER. 00003 

C 00009 

C F = FO + DELF TIMES X + X-TRANSPOSE TIMES DEL2F TIMES X. 00010 

C ARGUEMENTS. 00011 

C NX NUMBER OF INDEPENDENT VARIABLES CONTAINED IN X. 00012 

C X VECTOR OF DELTA VARIABLES X-XNOM. DIMENSIONED X(NX) 00013 

C NF NUM3ER OF FUNCTIONS TO BE EVALUATED. 00014 

C FNOM - NOMINAL FUNCTION VALUES ABOUT WHICH TAYLER SERIES EXPANSION00015 

C WAS DONE. 00016 

C FNEW - NEW APPROXIMATED VALUES. - OUTPUT. DIMENSIONED FNEW(NF) 00017 

C B MATRIX OF TAYLER SERIES COEFFICIENTS. 00018 

C B( I, J ) CONTAINS DEL F, 1=1, NX. 00019 

C B(NX+I,J) CONTAINS DELE TERMS, I = 1 ,NXx(NX+l )/2. 00020 

C MINIMUM DIMENSIONS - B(M,NF). 000E1 

C N3R - DIMENSIONED ROWS OF B. 00022 

CM- TOTAL NUMBER OF COEFFICIENTS CURRENTLY USED. 00023 

C 00024 

ISN 0003 DIMENSION X(l), FNOM(l), FNEW(l), B( NBR, 1 ) 00025 

ISN 0004 DO 50 J=1,NF 00026 

c 00027 

C CONSTANT TERM. 00028 

C 00029 

ISN 0005 F=FNOM( J) 00030 

C - 00031 

C FIRST ORDER TERNS. 00032 

c 00033 

ISN 0006 DO 10 1=1, NX 00034 

ISN 0007 IF (I.GT.M) GO TO 40 00035 

ISN 0009 10 F=F+B( I » J )XX( I ) 00036 

c 00037 

C SECOND ORDER TERMS. 00038 

C 00039 

C 00040 

C 00041 

C DIAGONAL ELEMENTS. 00042 

c 00043 

ISN 0010 II=NX 00044 

ISN 0011 DO 20 1=1, NX 00045 

ISN 0012 11=11+1 00046 

ISN 0013 IF (II.GT.M) GO TO 40 00047 

ISN 0015 20 F=F+.5xB( II, J )#(X( I )xx 2 ) 0004S 

c 00049 

C OFF-DIAGONAL ELEMENTS. 00050 

C 00051 

ISN 0016 IF (NX.LT.2) GO TO 40 00052 

ISN 0018 NXM1=NX-1 00053 

ISN 0019 DO 30 1=1 >NXM1 00054 


?! 


♦VERSION 1.3.0 

(01 

MAY 80) COPE16 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

DATE 82.141/10.55.31 

PAGE 

ISN 

0020 


IP1=I+1 

00055 


ISU 

0021 


XX=X(I) 

00056 


ISN 

0022 


DO 30 K=IP1,NX 

00057 


ISN 

0023 


11=11+1 

00058 


ISN 

0024 


IF (II.GT.M) GO TO 40 

00059 


ISN 

0026 

30 

F=F+B( II, J )*XX*X(K) 

00060 


ISN 

0027 

40 

CONTINUE 

00061 


ISN 

0023 

50 

FNEtK J )=F 

00062 


ISN 

0029 


RETURN 

00063 


ISN 

0030 


END 

00064 



*OPTIOMS IN EFFECT#NAME< MAIN ) OPTIMIZED) LINECOUNT(60 ) SIZE(MAX) AUTODBLt NONE ) 


^OPTIONS IN EFFECT#SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
^STATISTICS* SOURCE STATEMENTS = 29, PROGRAM SIZE = 378, SUBPROGRAM NAME =COPE16 

^STATISTICS# NO DIAGNOSTICS GENERATED 
#*#*** END OF COMPILATION ###*** 


3016K BYTES OF CORE NOT USED 



♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 83 . 141/10 .55.33 PAGE 1 

REQUESTED OPTIONS: SOURCE .NOMAP, NOXREF , NOLIST, NODECK, OPT( 3 ) ,AUTODBL(NONE ) .NOALC 
OPTIONS IN EFFECT: NAME (MAIN) 0PTIMIZE(3) LIHECOUNK 60 ) SIZE(MAX) AUTCDELl NONE ) 

SOURCE EBCDIC NOLIST NCDECK 03JECT NOMAP NOFOSMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG! I) 


Co 

i 

no 


C DATA SET U477COPE17 AT LEVEL 001 AS OF 02/13/81 

C DATA SET 9188C0PE17 AT LEVEL 001 AS OF 07/10/80 00001 

ISN 0002 SUBROUTINE C0PE17 ( NX.X, J.B.NBR .M.GRAD ) 00002 

C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX00003 

C ROUTINE TO CALCULATE GRADIENT OF THE J-TH FUNCTION APPROXIMATED 00004 

C BY TAYLER SERIES EXPANSION UP TO SECOND ORDER. 00005 

c XXXXXXXXXXXXXXXXXXXKXXXXKXXXXXXXXXXXXXXKXXXXXXXXXKXXXXXXXXXXXXXKXX00006 

C BY G. N. VANDERPLAATS APRIL, 1978. 00007 

C NASA AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 00008 

C 00009 

C F = FO + DELF TIMES X + .5 X-TRANSPOSE TIMES DEL2F TIMES X. 00010 

C AGRUEMENTS. 00011 

C NX - NUMBER OF INDEPENDENT VARIABLES CONTAINED IN X. 00012 

C X - VECTOR OF DELTA VARIABLES X-XNCM. DIMENSIONED X(NX>. 00013 

C J - FUNCTION FCR WHICH GRADIENT INFORMATION IS CALCULATED. 00014 

C B - MATRIX OF TAYLER SERIES COEFFICIENTS. 00015 

C B(I,J> CONTAINS DELF, I = l.NX. 00016 

C 8( NX+I » J ) CONTAINS DEL2 TERMS, I = 1 ,HS*( NX+1 )/2 . 00017 

C MINIMUM DIMENSIONS - B(M,NF). 00018 

C NBR - DIMENSIONED ROWS OF B. 00019 

CM- TOTAL NUMBER OF COEFFICIENTS CURRENTLY USED. 00020 

C GRAD - GRADIENT OF J-TH FUNCTION. OUTPUT. 00021 

C 00022 

ISN 0003 DIMENSION X( 1 ) , B(NBR , 1 ) , GRAD(l) 00023 

C 00024 

C FIRST ORDER TERMS. 00025 

c 00026 

ISN 0004 DO 10 1=1, NX 00027 

ISN 0005 IF (I.GT.M) GO TO 40 00028 

ISN 0007 10 GRAD( I )=B( I , J ) 00029 

C 00030 

C SECOND ORDER TERMS. 00031 

C 00032 

ISN 0008 II=NX 00033 

c 00034 

C DIAGONAL ELEMENTS. 00035 

C 00035 

ISN 0009 DO 20 1=1, NX 00037 

ISN 0010 11=11+1 00033 

ISN 0011 IF ( II.GT.M) GO TO 40 00039 

ISN 0013 20 GRAD( I )=GRAD( I )+B( II, J )»X( I ) 00040 

c 00041 

C OFF-DIAGONAL ELEMENTS. 00042 

C 00043 

ISN 0014 IF (NX.LT.2) GO TO 40 00044 

ISN 0016 NXM1=NX-1 00045 

ISN 0017 DO 30 1=1 ,NXM1 00046 

ISN 0018 IP1=I+1 00047 

ISN 0019 DO 30 K=IP1 >NX 00048 

ISN 0020 11=11+1 00049 

ISN 0021 IF (II.GT.M) GO TO 40 00050 

ISN 0023 GRAD ( I )=GRAD( I)+B(II,J)xX(K) 00051 

ISN 0024 30 GRAD(K)=GRAD(K)+B(II,J)XX(I) 00052 

ISN C025 40 CONTINUE 00053 

ISN 0026 RETURN 00054 


SB 


+VERSI0N 1.3.0 (01 MAY 80) C0PE17 SYSTEM/370 FORTRAN H EXTENDED ( ENHANCED ) DATE 82 . 141/10 .55.33 PAGE 2 

ISM 0027 END 00055 

*0PTICNS IN EFFECT*NAME( MAIN ) 0PTIMIZE(3) LINECCUHT( 60 ) SIZE(MAX) AUTCDBL( NONE > 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK 03JECT NOMAP NOFORMAT GOSTMT NOXREF K'OALC NOANSF TERM IBM FLAG(I) 
^STATISTICS* SOURCE STATEMENTS = 26, PROGRAM SIZE = 680, SU3FR0GRAM NAME =C0PE17 

^STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 3016K BYTES OF CORE NOT USED 



♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82 . 141/10 .S5 .36 PAGE 1 

REQUESTED OPTIONS: SOURCE , NOMAP, NOXREF, NOLIST, NODECK .OPT( 3 ) . AUTC03L1N0NE ) ,NOALC 
OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNK 60 ) SIZE(MAX) AUTCDBLf NONE ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NCMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FUG(I) 


CJ 

-P* 


ISN 0002 


C DATA SET U477C0PE18 AT LEVEL 002 AS OF 03/16/81 
C DATA SET U477C0PE13 AT LEVEL 001 AS OF 02/13/81 
C DATA SET 9183C0PE18 AT LEVEL 001 AS OF 07/10/80 

SUBROUTINE COPE18 ( IOBJ .NDVTOT, KCONA.R A, IA, LOCR, LOCI, ARRAY ) 


00001 

00002 

00003 


C xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxs;x*xxxxxxxxxxxxxxxx0C0Q4 
C ROUTINE TO PRINT OPTIMIZATION RESULTS 00005 
c XXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXKXXKXXXXXHXXXXXXXXXXXXKXXXXKXXXXXK00OC6 




C 

BY G. N. VAKOSRPLAATS 


MAR., 1979 00007 



c 

NASA AMES RESEARCH CENTER, MOFFETT 

FIELD, CALIF. 

00008 

ISN 

0003 


COMMON /UIOS/ 151, 161 


00009 

ISN 

0004 


DIMENSION RA( 1 ) , IA(1), LOCR(l), LOCI(l), ARRAY( 1 ) 

00010 



c 

03JECTIVE FUNCTION AND DESIGN VARIABLES. 

00011 

ISN 

0005 


WRITE (161,30) IOBJ,ARRAY(I03J) 


00012 

ISN 

0006 


N2=LOCR(2) 


00013 

ISN 

0007 


N3=L0CR(3) 


00014 

ISN 

0008 


N5=LOCR( 5 ) 


00015 

ISN 

0009 


M2=LOCI( 2 ) 


0C016 

ISN 

0010 


DO 10 1=1 .NDVTOT 


00017 



c 

DESIGN VARIABLE NUMBER. 


00018 

ISN 

0011 


I0V=IA(M2 ) 


00019 

ISN 

0012 


N2=LOCR( 2 HIDV-l 


00020 

ISN 

0013 


N3=L0CR( 3 J+IDV-l 


00021 

ISN 

0014 


M2=M2+1 


00022 



c 

GLOBAL LOCATION. 


00023 

ISN 

0015 


IG=IA( I ) 


00024 



c 

MULTIPLIER. 


00025 

ISN 

0016 


AMULT=RA(N5) 


00026 

ISN 

0017 


N5=N5xl 


00027 



c 

LONER BOUND. 


00028 

ISN 

0018 


BL=AMULT*RA(N2) 


00029 



c 

VALUE. 


00030 

ISN 

0019 


XX=ARRAY( IG ) 


00031 



c 

UPPER BOUND. 


00032 

ISN 

0020 


BU=AMULT*RA(N3> 


00033 

ISN 

0021 


WRITE (161,40) I,IDV,IG,BL, XX , BU 


00034 

ISN 

0022 

10 

CONTINUE 


00035 

ISN 

0023 


IF (NCONA.EQ.O) RETURN 


00036 



c 

CONSTRAINTS. 


00037 

ISN 

0025 


WRITE (161,50) 


00038 

ISN 

0026 


M3=LOCI( 3 ) 


00039 

ISN 

0027 


N6 = LOCR( 6 ) 


00040 

ISN 

0028 


10 = 1 


00041 

ISN 

0029 


IF ( RA( N6 ) . LT.-l . OE+15. AND.RAI N6*2 ) 

.GT.l. OE+15) ID=0 

00042 

ISN 

0031 


DO 20 1=1 ,NCONA 


00043 



c 

GLOBAL LOCATION. 


00044 

ISN 

0032 


IG=IA(M3) 


00045 

ISN 

0033 


M3=M3+1 


00046 



c 

LOWER BOUND. 


00047 

ISN 

0034 


BL=RA(N6) 


00048 



c 

VALUE. 


00049 

ISN 

0035 


XX=ARRAY(IG) 


00050 



c 

UPPER BOUND. 


00051 

ISN 

0036 


BU=RA( N6+2 ) 


00052 

ISN 

0037 


N6=N6+4 


00053 



c 

IDENTIFICATION NUMBER. 


00054 


u 




♦VERSION 1.3.0 (01 MAY 80) C0PE13 SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.55.36 PAGE 2 


ISN 0038 JD=ID 00055 

ISN 0039 IF ( BL.GT. -1 . OE+15 ) ID=ID+1 00056 

ISN 0041 IF (EU.LT.l. OE+15) 10=10+1 00057 

ISN 0043 KRITE (161,60) JD ,IG ,BL,XX,EU 00053 

ISN 0044 20 CONTINUE 00059 

ISN 0045 RETURN 00060 

c 00061 

C , FORMATS 00062 

C -4 00063 

ISN 0046 30 FORMAT ( 1H1 ,4X,20HOPTIMIZATION RESULTS///5X, 1CHC3JECTIVE FUNCTION/00064 

15X, 15HGLGBAL LOCATION, 15, 5X, 14HFUNCTI0N VALUE ,E12 .5///5X, 16HDESIGN0Q065 
2 VARIABLES//14X,5I!D. V. ,5X,6HGLCBAL,7X,5HLOHER,23X,5HUPFER/8X,2HID00066 
3 , 5X , 3HNO . , 5X , 8HVAR . NO . , 6X , 5KB0UND , 9X , 5HVALUE , 9X , 5HB0UND ) 00067 

ISN 0047 40 FORMAT ( 110 , 17, 111 , 3X, 3E14.5 ) 00068 

ISM 0048 50 FORMAT ( ///5X» 18H0ESIGN C0NSTRAINTS//15X,6HGL03AL,7X,5HL0WER,23X, 500069 

1KUPPER/9X , 2HID , 4X , 8HVAR . NO . , 6X , 51 (BOUND , 9X , 5H VALUE , 9X , 5HB0UMD ) 00070 

ISN 0049 60 FORMAT ( 110 , 19, 3X, 3E14.5 ) 00071 

ISN 0050 END 00072 

^OPTIONS IN EFFECT*HAME(MAIN) OPTIMIZED) LINEC0UNT(60 ) SIZE(MAX) AUTODBLt NONE ) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFCRMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
*STATISTICS* SOURCE STATEMENTS = 49, PROGRAM SIZE = 1408, SUBPROGRAM NAME =C0PE18 


^STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 3012K BYTES OF CORE NOT USED 



♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.55.40 PAGE 1 

REQUESTED OPTIONS: SOURCE , NOMAP, NOXREF, NOLIST, HOQECK,OPT( 3 ) ,AUTODBL(NONE ) ,NOALC 
OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNT1 60 ) SIZE(MAX) AUTODSU NONE ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NCMAP NOFGRMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG! I) 



C DATA SET U477SIMC0N AT LEVEL 001 AS OF 02/13/81 

C DATA SET 9188SIMCCN AT LEVEL 001 AS OF 07/10/80 00001 

ISN 0002 SUBROUTINE SIMCON (NDV, X, VLB, VU8, NCON, ITMAX.IFRINT, ISCAL, DELFUN, QA00002 

1BFUN , FUN , WK , NWK , INK , MINK , 03 J , G , IER ) 00003 

C 00004 

C SIMCON 00005 

C ROUTINE FOR SIMPLIFIED CONMIN USAGE 00006 

C 00007 

C 00008 

C BY G. N. VANDERPLAATS APRIL, 1979 00009 

C NASA AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 00010 

C 00011 

C PURPOSE 00012 

C 00013 

C MINIMIZE OBJ AS A FUNCTION OF X(I),I=1,NDV 00014 

C SUBJECT TO 00015 

C G( J ). LE.O, J=l,NCON 00016 

C VLB( I ) . LE .X( I ) . LE . VUB( I ) , I = 1 ,NDV 00017 

C ... NOTES 00018 

C NCON MAY BE ZERO. 00019 

C VLB(I) IS IGNORED IF VLB( I ) . LT.-l .OE+15. 00020 

C VU3( I ) IS IGNORED IF VUB( D.GT.1.0E+15. 00021 

C IF NCON = 0 AND IT IS NOT ESSENTIAL TO LIMIT THE VARIABLES, X(I) 00022 

C THEN SET VLB( I )=-l .OE+16 AND VU3( I ) = 1 -GE+16. THIS HILL IMPROVE 00023 

C THE EFFICIENCY OF THE UNCONSTRAINED OPTIMIZATION. 00024 

C 00025 

C REFERENCE 00026 

C G. N. VANDERPLAATS 00027 

C CONMIN - A FORTRAN PROGRAM FOR CONSTRAINED FUNCTION MINIMIZATION 00028 

C USERS MANUAL, NASA TM X-62,232, AUG. 1973. 0C029 

C 00030 

C #*# ARGUMENTS 00031 

C 00032 

C INPUT 00033 

C NDV - NUM3ER OF INDEPENDENT DESIGN VARIABLES. 00034 

C X - ARRAY OF INITIAL DESIGN VARIABLES. 00035 

C REQUIRED DIMENSION = NDV + 2. 00036 

C VLB - ARRAY OF LOWER BOUNDS OH X. 00037 

C IF VLB(I). LT.-l. OE+15 THE ITH VARIABLE IS NOT BOUNDED. 00038 

C REQUIRED DIMENSION = NDV +2. 00039 

C VUB - ARRAY OF UPPER BOUNDS ON X. 00040 

C IF VUB<I).GT.l. OE+15 THE ITH VARIABLE IS NOT BOUNDED. 00041 

C REQUIRED DIMENSION = NDV +2. 00042 

C NCON - NUM3ER OF CONSTRAINT VALUES STORED IN ARRAY G. 00043 

C NCON MAY BE ZERO. 00044 

C ITMAX - MAXIMUM PERMISSABLE ITERATIONS IN CONMIN. 00045 

C DEFAULT = 20. 00046 

C IPRINT - CONMIN PRINT CONTROL. IPRINT = 0, NO PRINT. 00047 

C IPRINT = 5, MAXIMUM PRINT. 00048 

C SUGGESTED VALUE IS IPRINT = 3. 00049 

C ISCAL - SCALING PARAMETER. IF ISCAL = 0 NO SCALING IS DONE. 00050 

C IF ISCAL = 1 THE DESIGN VARIABLES ARE SCALED DURING 00051 

C OPTIMIZATION. RECOMENDED ISCAL = I. 00052 

C DELFUN - CONVERGENCE TOLORANCE ON FRACTIONAL CHANGE IN OBJECTIVE 00053 

C FUNCTION. IF OBJ DOES NOT CHANGE BY MORE THAN DELFUN 00054 


3 P 


+ VERSION 1.3. 


ISN 0003 
ISH C0C4 
ISN 0005 


(01 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c • 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c • 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

FOR THREE CONSECUTIVE ITERATIONS, OPTIMIZATION IS 
TERMINATED. 

IF DELFUN = O IS INPUT, DELFUN = 0.0001 IS USED. 
DABFUN - CONVERGENCE TOLORANCE ON ABSOLUTE CHANGE IN 03JECTIVE 
FUNCTION. IF OBJ DOES NOT CHANGE BY MORE THAN DABFUN 
IN MAGNITUDE FOR THREE CONSECUTIVE ITERATIONS, 
OPTIMIZATION IS TERMINATED. 

IF DABFUN = 0 IS INPUT, DABFUN = 0 . 001*ABS( INITIAL 01 
IS USED. 

NAME OF EXTERNAL SUBROUTINE WHICH EVALUATES OBJECTIVE 
AND CONSTRAINT FUNCTIONS. 

REAL WCRK ARRAY. 

DIMENSION OF WK ARRAY. 

MINIMUM PERMISSABLE DIMENSION. 

NNK = 16*NDV + 2*( NDV#»2 ) + 2*NC0N + 16 
SPECIAL CASE - NCON = 0, VLB( I ) . LT. -1 . OE+15 AND 
AND VUB(I).GT.l. OE+15 FOR I = 1,NDV. 

NWK = 5*NDV + 11 
INTEGER WORK ARRAY. 

DIMENSION OF INK ARRAY. 

MINIMUM PERMISSABLE DIMENSION. 

NIWK = 5*NDV + NCON + 6 

SPECIAL CASE - NCON = 0, VLB( I ) . LT.-l .OE+15 AND 
AND VUBIIl.GT.l. OE+15 FOR I = 1,NDV. 

NIWK = 3 


FUN 

WK 

NWK 


IWK 

NIWK 


OUTPUT 

X 

OBJ 

G 


IER 


ARRAY OF DESIGN VARIABLES DEFINING THE OPTIMUM. 
OPTIMUM OBJECTIVE FUNCTION VALUE. 

ARRAY OF CONSTRAINT VALUES AT THE OPTIMUM. 

REQUIRED DIMENSION = NCCM + 2*NOV. 

SPECIAL CASE - NCON = 0, VLB( I ). LT.-l .OE+15 AND 
AND VU3(I).GT.l. OE+15 FOR I = l.HDV. 

DIMENSION = 1. 

ERROR CODE. 

IER = 0, NO STORAGE ERROR. 

IER = 1, ARRAY WK OR IWK IS NOT DIMENSIONED LARGE 
ENOUGH. 

EXTERNAL 

USER-SUPPLIED ROUTINE TO EVALUATE OBJECTIVE AND CONSTRAINT 
FUNCTIONS. 

SUBROUTINE FUN ( NDV,X, NCON, OBJ ,G ) 

INPUT 

NUMBER OF INDEPENDENT DESIGN VARIABLES. 

ARRAY CONTAINING CURRENT VALUES OF THE NDV DESIGN 
VARIABLES. 

DIMENSION = NDV + 2. 

NUMBER OF CONSTRAINT VALUES STORED IN G. 

NCON MAY BE ZERO. 


NDV 

X 


NCON 


OUTPUT 

03J 

G 


OBJECTIVE FUNCTION ASSOCIATED WITH X. 

ARRAY CONTAINING THE NCON CONSTRAINT VALUES ASSOCIATED 
WITH X. IF NCON = 0, G IS NOT CALCULATED. 

DIMENSION = NCON + 2*NDV IF NCON.GT.O. 

DIMENSION = 1 IF NCON = 0. 


EXTERNAL FUN 

DIMENSION X(l), VLB! 1 ) , VUB(l), G(l>, WK(1), IWX< 1 ) 

COMMON /CNMN1/ DLFUN.DBFUN, FDCH , FDCHM,CT,CTMIN,CTL,CTLMIN, ALPHAX, A001 12 
1EGBJ1 , THETA, OB J1 >NDV1 ,NC0N1 ,NSIDE , IPRNT1 ,NFDG,NSCAL, LINOBJ, ITMAX1 , 001 13 


DATE 82.141/10.55.40 

00055 

00056 

00057 

00058 

00059 

00060 
00061 
00062 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

00070 

00071 

00072 

00073 

00074 

00075 

00076 

00077 

00078 

00079 

00030 

00031 

00032 

00083 

00084 

00085 

00086 
00037 
00083 
00039 

00090 

00091 

00092 

00093 

00094 

00095 

00096 

00097 

00098 

00099 

00100 
00101 
00102 

00103 

00104 

00105 

00106 

00107 

00108 

00109 

00110 
00111 



♦VERSION 1.3. 


ISN 0006 
ISN 0007 
ISH 0008 
ISN 0009 
ISN 00X0 
ISN 0011 
ISN 0012 
ISN 0013 
ISN 0014 
ISN 0015 
ISN 0016 
ISN 0017 
ISN 0018 
ISN 0019 
ISN 0020 
ISN 0021 
ISN 0022 
ISN 0023 
ISN 0024 
ISN 0026 
ISN 0027 
ISN 0028 
ISN 0030 
ISN 0031 
ISN 0032 
ISN 0033 


ISN 0035 
ISN 0036 
ISN 0037 
ISN 0038 
ISN 0039 
ISN 0040 


ISN 0041 
ISN 0042 
ISN 0043 
ISN 0045 
ISN 0046 
ISN 0047 
ISN 0043 
ISN 0049 
ISN 0050 

ISN 0051 
ISN 0052 
ISN 0053 
ISN 0054 
ISN 0055 
ISN 0056 


(01 MAY 80) SIMCON SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.55.40 
2ITRM , ICNDIR , IGOTO , NAC , INFO , INFOG , ITER 00114 

C 00115 

C 00116 

C INITIALIZE CONMIN PARAMETERS 00117 

C 00118 

NDV1=NDV 00119 

NCONl=HCON 00120 

IPRNT1=IPRINT 00121 

ITMAX1=ITMAX 00122 

DLFUN=DELFUN 00123 

DBFUN=DABFUN 00124 

CT=0. 00125 

CTMIN=0. 00126 

CTL=0. 00127 

CTLMIN=0. 00128 

ALPHAX-0 . 00129 

AB03J1=0. 00130 

THETA=0. 00131 

NFDG=0 00132 

LIN0BJ=0 00133 

ITRM=0 00134 

ICNDIR=0 00135 

NSCAL=NDV+1 00136 

IF ( ISCAL.EQ. 0 ) NSCAL=0 00137 

NSIDE=0 ' 00138 

DO 10 1=1, NDV 00139 

IF ( VLB( I ) .GT . -1 .0E+15.OR.VUB1 I ) . LT. 1 . OE+15) NSIOE=l 00140 

10 CONTINUE 00141 

FDCH=.001 00142 

FDCHM= . 0001 00143 

IF (IPRINT.LT.l) GO TO 30 00144 

c 00145 

C PRINT INPUT INFORMATION 00146 

C 00147 

WRITE (6,170) 00143 

WRITE (6,130) NDV ,NCON , ITMAX > IPRINT , ISCAL , DELFUN ,D ABFUN 00149 

WRITE (6,190) 00150 

DO 20 1=1, NDV 00151 

20 WRITE (6,200) I,VLB( I) ,X( I) ,VUB( I) 00152 

30 CONTINUE 00153 

c 00154 

C CONMIN ARRAY DIMENSIONS 00155 

C 00156 

IER=1 00157 

N1=NDV*2 00158 

IF (NCON.EQ.O.AND.NSIOE.Eq.O) GO TO 40 00159 

N2=NCON*2*NDV 00160 

H3=N1 00161 

N4=N1 00162 

N5=2*N1 00163 

GO TO 50 00164 

40 CONTINUE 00165 

C SPECIAL CASE. NCON = NSIDE = 0. 00166 

N2=l 00167 

N3=l 00168 

N4=NDV 00169 

N5=l 00170 

50 CCNTINUE 00171 

NREQR=3#N1+2*N2+N3#(N1+N3)+N4 00172 


) 



+VERSION 1.3.0 (01 MAY 80) SIMCON SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 


ISN 0057 


HREQI=N2+N3+N5 

ISN 0058 


NREQR1=NREQR 

ISN 0059 


NREQI1=NREQI 

ISN 0060 


IF < NR EQR . GT . NWK . OR . NR EQI . GT . NIUK ) GO TO 130 

ISN 0062 


IF ( NCON.EQ. 0. AND.NSIDE . EQ. 0 ) GO TO 80 


C 

FIND MAXIMUM POSSIBLE N3. 

ISN 0064 


II-N3 

ISN 0065 


N3SAV-N3 

ISN 0066 


N21=N2+1 

ISN 0067 


DO 60 I=II,N21 

ISN 0068 


N3=I 

ISN 0069 


N4=H3 

ISN 0070 


IF (N4.LT.NDV) N4=NDV 

ISN 0072 


N5=2*N4 

ISN 0073 


NREQR=3*N1+2*N2+N3*(N1+N3)+N4 

ISN 0074 


NREQI=N2+N3+N5 

ISN 0075 


IF ( NR EQR . GT . NWK . OR . NR EQI . GT . NIWK ) GO TO 70 

ISN 0077 


N3SAV=I 

ISN 0078 

60 

CONTINUE 

ISN 0079 

70 

N3-N3SAV 

ISN 0080 


N4=N3 

ISN 0031 


IF (N4.LT.NDV) N4=NDV 

ISN 0083 


N5=2#N4 

ISN 0064 

80 

CONTINUE 


C 

STORAGE ALLOCATION 

ISN 0085 


NNSCAL=1 

ISN 0086 


NDF=NNSCAL+N1 

ISN 0087 


NA=NDF+N1 

ISN 0033 


NS=NA+N1*N3 

ISN 0039 


NGl=IIStNl 

ISN 0090 


NG2=NG1+H2 

ISN 0091 


NB=NG2+N2 

ISN 0092 


NC=NB+N3#N3 

ISN 0093 


NISC=1 

ISN 0094 


NIC=N2+1 

ISN 0095 


NMS1=NIC+N3 


c 

REQUIRED STORAGE. 

ISN 0096 


NREQR=NC+N4-1 

ISN 0097 


NREQI=NMS1+N5-1 

ISN 0098 


IF ( NR EQR . GT . NWK . OR . NR EQ I . GT . NIWK ) GO TO 130 

ISN 01 CO 


IF (NCON.LE.Q) GO TO 100 


c 

DEFINE ISC ARRAY SO ALL CONSTRAINTS ARE NONLINEAR 

ISN 0102 


N=NISC 

ISN 0103 


DO 90 I=l,NCON 

ISN 0104 


INK(N)=0 

ISN 0105 

90 

N=N+1 

ISN 0106 

100 

CONTINUE 

ISN 0107 


IF (IPRINT.LT.l) GO TO 110 

ISN 0109 


WRITE (6,210) 

ISN 0110 


WRITE (6,230) NWK.NREQRl ,HREQR ,NIWK,NREQU ,HREQI 

ISN 0111 

110 

CONTINUE 


C 

OPTIMIZATION 

ISN 0112 


IGOTO=0 

ISN 0113 

120 

CONTINUE 


DATE 82.141/10.55.40 

00173 

00174 

00175 

00176 

00177 

00178 

00179 

00180 
00181 
00182 

00183 

00184 

00185 

00186 

00187 

00188 

00189 

00190 

00191 

00192 

00193 

00194 

00195 
00195 

00197 

00193 

00199 

00200 

00201 

00202 

00203 

00204 
Q0205 
00206 
00207 
0C208 

00209 

00210 
00211 
00212 

00213 

00214 

00215 

00216 

00217 

00218 

00219 

00220 
00221 
00222 

00223 

00224 

00225 
00226 

00227 
00228 

00229 

00230 


ISN 0114 CALL CONMIN ( X, VLB, VUB ,G,WK( NHSCAL) ,WK(NOF ) ,WK(NA ) ,WK(NS) ,WK( NG1 ), 00231 
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(a) 

ro 

o 


♦VERSION 1.3.0 (01 


MAY 80) 
1WK(NG2) 


SIM CON SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.55.40 

WK( N3 ) >WK( NC ) >IUK( NISC ) > INK( NIC ) >Il.'K( NMS1 ) >N1 >N2 >N3>N4 >N5 ) 00232 



C 

HAS STORAGE BEEN EXCEEDED. 

00233 

ISN 0115 


IF (NAC.GE.N3) GO TO 140 

00234 


C 

EVALUATE OBJECTIVE AND CONSTRAINTS. 

00235 

ISN 0117 


CALL FUN ( ND V , X , NCCN > OB J , G ) 

00236 

ISN 0118 


OBJ 1=03 J 

00237 

ISN 0119 


IF ( IGOTO.GT. 0 ) GO TO 120 

00238 


C 

OPTIMIZATION COMPLETE. 

00239 

ISN 0121 


IER=0 

00240 

ISN 0122 


RETURN 

00241 


ISN 0149 


ISN 0150 


C 

C 

170 


180 


ISN 

0151 

190 

ISN 

0152 

200 

ISN 

0153 

210 

ISN 

0154 

220 

ISN 

0155 

230 


-00242 
00243 
-00244 

00245 

00246 

00247 

00248 

00249 

00250 

00251 

00252 

00253 

00254 
0C255 

00256 

00257 

00258 

00259 

00260 
00261 
00262 

00263 

00264 

00265 

00266 
00267 

-00268 
00269 
-00270 

00271 

00272 

FORMAT ( 1HI>///////12Xi 29(2H* )/12X,lH*,55X,lH*/12X,lH*,22X,llHS ,100273 
1 M C O N,22X,1H#/12X,1H»,55X,1H*/12X,1H*,18X,19HF0RTRAN PROGRAM F000274 
2R,18X,1H#/12X,1H*,55X,1H*/12X,1H#,16X,23HSIMPLIFIED COMMIN USAGE, 100275 
36X,1H*/12X,1H*,55X,1H*/12X,29(2H* )) 00276 

FORMAT (////17X, 16HINPUT PARAMETERS//17X,36HNUM8ER OF DESIGN VARIA00277 
1BLES, NDV = > 15/1 7X , 36HNUM3ER OF CONSTRAINTS, UCCN =,15/100278 

27X.36HI1AXIMUM ITERATIONS, UMAX =,I5/17X,36HFRINT CONTRGL00279 

3, IPRINT = , I5/17X, 36HSCALIN3 FARA11ETER, ISCA00280 

4L = , 15/1 7X , 36HCCNVERGENCE CRITERIA, DELFUN =,E12.5/17X,36HC00281 

50NVERGENCE CRITERIA, DABFUN =,E12.5) 00282 

FORMAT ( //30X, 16HDESIGN VARIABLES/24X,5HLO!!ER,7X,7HINITIAL,5X,5HUP00283 
1PER/24X,5HB0UND,8X,5HVALUE,6X,5HB0UND/19X,1HI,4X,6HVLB( I ),8X,4HX( 100264 
2 ) ,6X,6HVUB( I ) ) 00285 

FORilAT ( 15X, 15 , 3E1 2 .5 ) 00286 

FORMAT (//19X.36HSTCRAGE REQUIREMENTS FOR WORK ARRAYS) 00287 

FORMAT (////12X,47(1H*)//16X,25HSIMC0N OPTIMIZATION ERROR//12X.47H00288 ' 
1 STORAGE IN WORK ARRAY NK OR I UK IS INSUFFICIENT) 00239 

FORMAT ( /21X.5HARRAY , 3X, 9HDIMENSI0N,2X,8HREQUIRED ,3X,4HUSED/20X, 7H00290 




C 

c 

REQUIRED STORAGE EXCEEDS AVAILABLE STORAGE 

ISN 

0123 

130 

CONTINUE 



c 

INSUFFICIENT STORAGE TO START OPTIMIZATION. 

ISN 

0124 


WRITE (6,220) 

ISN 

0125 


WRITE (6,230) NWK,NREQR»NREQR,NIWK,NREQI,NREQI 

ISN 

0126 


WRITE (6,240) 

ISN 

0127 


RETURN 

ISN 

0128 

140 

CONTINUE 



c 

INSUFFICIENT STORAGE FOR GRADIENTS DURING OPTIMIZATION. 

ISN 

0129 


WRITE (6,220) 

ISN 

0130 


N3SAV=N3 

ISN 

0131 


N3=l 

ISN 

0132 


IF (HCON.EQ.O) GO TO 160 

ISN 

0134 


DO 150 1=1 »NCON 

ISN 

0135 


IF (G(I).GT.-.2) N3=N3+1 

ISN 

0137 

150 

CONTINUE 

ISN 

0138 

160 

IF (NSIDE.GT.O) N3=N3+NDV 

ISN 

0140 


IF (N3.LT.N3SAV) N3=N3SAV+NDV 

ISN 

0142 


N4=N3 

ISN 

0143 


IF (N4.LT.NDV) N4=NDV 

ISN 

0145 


NREQR=3*N1+2*N2+N3*( N1+N3 )+N4 

ISN 

0146 


NREQI=N2+N3+2#N4 

ISN 

0147 


WRITE (6,250) NWK,NIWK,NREQR,NREQI 

ISN 

0148 


RETURN 



c 

r 

FORMATS 
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♦VERSION 1.3.0 (01 MAY 80) SIHCON SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.55.40 PAGE 6 

1NK( NNK ) , I8,2I10/19X, 9HIUK( MINK) . I7> 2110 ) 00291 

ISN 0156 290 FORMAT (//22X.27HOPTIMIZATION CANNOT PR0CEED//22X, 2SHRETURNING TO 00292 

1CALLIN3 PR03RAM//12X>47( 1H* ) ) 00293 

ISN 0157 250 FORMAT (/12X,68HREC;UIRED STORAGE FOR GRADIENT INFORMATION EXCEEDS 00294 

1AVAILABLE STORAGE//12Xi5H ARRAY > 14X j 7HI,'!<( NNK ) >5X> 9HIl!K( NIKK )/12X> 9H00295 
2DIMENSION, 15X,I6 ,8X,I6/12X> 19HSU3GESTED DIMENSION, 5X, 16, 8X, 16 ) 00296 

ISN 0158 END 00297 

♦OPTIONS IN EFFECT*NAME ( MAIN ) OPTIMIZED) LINECOUNTf 60 ) SIZE(MAX) AUTOD3L( NONE ) 

♦OPTIONS IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFCRMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG! I) 
♦STATISTICS* SOURCE STATEMENTS = 157, PROGRAM SIZE = 3730, SUBPROGRAM NAME =SIMC0N 

♦STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 2996K BYTES OF CORE NOT USED 


Co 

rv> 



+ VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.141/10.55.45 PAGE 1 

REQUESTED OPTIONS : SOURCE , NOMAP , NOXREF , NOLIST , NOD ECK , OPT( 3 ) , AUTCDSU NONE ) . NOALC 
OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZE<3) LINECOUNT(60) SIZE(MAX) AUTODBLtNONE ) 

SOURCE EBCDIC NOLIST NODECK 03JECT NOMAP NOFORMAT GOSTMT NOXREF NOALC NOANSF TERM IBM FUG(I) 


CO 

PO 

ro 


ISN 0002 


ISN 0003 
ISN 0004 
ISN 0005 


ISN 0006 
ISN 0007 


ISN 0008 
ISN 0009 
ISN 0010 
ISN 0011 
ISN 0012 
ISN 0013 
ISN 0014 
ISN 0015 
ISN 0016 


ISN 0017 
ISN 0018 
ISN 0019 
ISN 0020 
ISN 0021 
ISN 0022 


ISN 0024 
ISN 0025 


c 

DATA 

SET 

U477MAIN 

AT 

LEVEL 

004 

AS 

OF 

09/16/81 


c 

DATA 

SET 

U477MAIN 

AT 

LEVEL 

003 

AS 

OF 

03/16/81 

00001 

C 

DATA 

SET 

U477MAIM 

AT 

LEVEL 

002 

AS 

OF 

03/13/81 

00002 

c 

DATA 

SET 

U477MAIN 

AT 

LEVEL 

001 

AS 

OF 

02/13/81 

000C3 

c 

DATA 

SET 

9188MAIH 

AT 

LEVEL 

001 

AS 

OF 

09/12/80 

00004 

c 

DATA 

SET 

9188MAIH 

AT 

LEVEL 

001 

AS 

OF 

07/10/80 

00005 


C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXSSXXXXJ:XKXXXXXXXXXXXXXXXXOCOO& 
C COPES - CONTROL PROGRAM FOR ENGINEERING SYNTHESIS. 00007 
C XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX00003 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 


COMMON /CNMN1/ DELFUH,DABFUN,FDCH>FDCHM,CT,CTMIN,CTL,CTLMIN,ALFHAX00009 
l.ABOBJl, THETA, OBJ, NOV, NCON,NSIOE,IFRINT,NFDG,NSCAL, LIN03J, UMAX, IT00010 


2RM , ICNDIR , IGOTO ,NAC, INFO, INFOG , ITER 00011 

COMMON /COPcSl/ TITLE(20) 00012 

COMMON /COPES2/ RA(5000 ) , IA( 1000 ) 00013 

COMMON /C0PES3/ SGNOPT , NCALC , 103 J , NSV , NSCB J , NCCNA , N2VX , M2VX , N2VY , MO 00 14 
12VY,N2VAR , IPSENS, IP2VAR >IPDBS,NACMXl iNDVTOT » LOCR( 25 ) > LOCK 25 ) ,ISCR00015 
21 >ISCR2 ,NXAPRXiNPS,NPFS,NPA,NF , INOM, IPAFRX,KNIN,KMAX,XFACT1 ,XFACT2C0016 
3 , NAN2 , NAN3 , NPMAX , NPTOT , JNCM , MAXTRM 00017 

COMMON /GL03CM/ ARRAY! 1500) C0018 

COMMON /UIOS/ 151 > 161 00019 

BY G. N. VANDERPLAATS OCT., 1974. 00020 

NASA-AMES RESEARCH CENTER, MOFFETT FIELD, CALIF. 00021 

NCALC OPTIONS: 00022 

0. READ ALL INPUT AND STOP. 00023 

1. SINGLE PASS ANALYSIS. 00024 

2. OPTIMIZATION. 00025 

3. SENSITIVITY - Z = F(X). 00026 

4. TNO VARIABLE FUNCTION SPACE - Z = F(X,Y). 00027 

5. OPTIMUM SENSITIVITY. 00023 

6. ANALYSIS/OPTIMIZATICN USING APPROXIMATION TECHNIQUES. 00029 

00030 


xxxxxxxxxx INPUT x«xxxxxxxO0031 


00032 

DIMENSIONS OF ARRAYS ARRAY, RA AND IA. 00033 

CALL MYTIME ( ITIMc ) 00034 

ITIMEC = 1 00035 

WRITE (26,3000) ITIMEC , ITIME 00036 

3000 FORMAT (100X.2I10) 00037 

151 = 25 00033 

161 = 26 00039 

NARRAY=1500 00040 

NDRA=5000 00041 

N3IA=1000 00042 

READ GENERAL SYNTHESIS CONTROL INPUT. 00043 

SCRATCH TAPE NUMBERS. 00C44 

ISCR1=11 00045 

ISCR2=12 00046 

CALL COPEOl (RA,IA,NDRA,NDIA) 00047 

NAN2=0 00048 

NAN3-0 00049 

IF (NCALC. LT.O. OR. NCALC. GT. 6) GO TO 340 00050 

CHECK TO INSURE STORAGE REQUIREMENTS DO NOT EXCEED 00051 

DIMENSIONED SIZES OF ARRAYS RA AND IA. C0052 

NDRA1=L0CR( 25 ) 00053 

NDIA1=L0CI(25) 00054 



♦VERSION 1.3 
ISN 0026 
ISH 0028 
I£N 0029 
ISH 0030 

ISN 0031 
ISH 0032 
ISH 0033 


ISN 0035 
ISH 0036 
ISN 0037 


0 (01 MAY 80) MAIN SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

IF ( NDRA1 . LE.NDRA. AND.NDIA1 . LE .HQIA ) GO TO 10 
WRITE (161,360) NDRA.NDRAl ,NDIA,NDIA1 
GO TO 390 
10 CONTINUE 

C READ USER INPUT. 

ICALC=1 

CALL ANALIZ (ICALC) 

IF ( NCALC. LT. 1 .OR .NCALC.GT.6 ) GO TO 390 


Si********* 

ICA LC=2 
JCALC=3 

IF ( NCALC . NE . 2 . AND . 

IF ABS(X(I)).GT.0 
OPTIMIZATION. 


EXECUTION 


NCALC.LT. 5) GO TO 60 


OVER-RIDE USER INPUT OF DECISION VARIABLES FOR 


DATE 82 . 141/10.55 , 

00055 

00056 
CO 057 

00058 

00059 

00060 
00061 
00062 

00063 

**#*#x***K00069 

00065 

00066 

00067 

00068 

00069 

00070 

00071 

00072 


95 


ISH 0039 


DO 90 1=1, NDV 

00073 

ISN 0090 


XX=ABS( RA( I ) ) 

00079 


C 

OVER-RIDE ANALIZ INPUT. 

00075 

ISN 0091 


N5=L0CR( 5 ) 

00076 

ISN 0092 


M2=LGCI( 2 ) 

00077 

ISH 0093 


DO 20 J=l,NDVTOT 

00078 

ISH 0099 


NNl=IA< M2 ) 

00079 

ISH 0095 


M2=M2+1 

00080 

ISN 0096 


IF (NNI.NE.I) GO TO 20 

00031 

ISN 0093 


NN1=IA( J ) 

00082 

ISH 0099 


IF (XX.LT.1.0E-10) GO TO 30 

00033 

ISN 0051 


ARRAY! HN1 )=RA( I )*RA( N5 ) 

00089 

ISN 0052 

20 

N5=H5+1 

00085 

ISH 0053 


GO TO 90 

00086 

ISN 0059 

30 

R A( I )= ARRAY! NH1 )/RA( N5 ) 

00037 

ISN 0055 

90 

CONTINUE 

00088 


C 

TRANSFER DESIGN VARIABLES TO ARRAY. 

00089 

ISN 0056 


M2=LQCI( 2 ) 

0C090 

ISH 0057 


N5=L0CR( 5 ) 

00091 

ISN 0058 


DO 50 1=1 ,NDVTOT 

00092 

ISN 0059 


H=IA( M2 ) 

00093 

ISN 0060 


M=IA( I ) 

00099 

ISH 0061 


ARRAY! M)=RA(N)*RA(N5) 

00095 

ISN 0062 


H5=N5+1 

00096 

ISH 0063 

50 

M2=l!2+1 

00097 

ISN 0069 

60 

CONTINUE 

00098 

ISN 0065 


IF (NCALC. NE. 3. AND. NCALC. HE. 5) GO TO 80 

00099 


TRANSFER NOMINAL VALUES OF SENSITIVITY VARIABLES TO ARRAY. 


-00100 

00101 

-00102 



ISN 

0067 


M16 = L0CI( 16) 

00103 


ISH 

0068 


M17=L0CI( 17) 

00109 


ISN 

0069 


N15=L0CR! 15) 

00105 


ISN 

0070 


DO 70 1=1, NSV 

00106 


ISH 

0071 


HN=IA(MI6) 

00107 

CO 

PO 

ISN 

0072 


M16=M16+1 

00103 

ISN 

0073 


ARRAY! NH)=RA(N15) 

00109 

CO 

ISH 

0079 


H15=H15+IA( M17 ) 

00110 


ISH 

0075 

70 

M17=M17+1 

00111 


ISH 

0076 

80 

CONTINUE 

00112 


ISN 

0077 


IF (NCALC.LT. 6) GO TO 290 

00113 
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+VERSION 1.3.0 

(01 MAY 80) MAIN SYSTEM/370 FORTRAH H EXTENDED (ENHANCED) DATE 82.141/10.55.45 








C 

INITIALIZATION FOR APPROXIMATE AHALYSIS/OPTIMIZATION 

00115 











ISH 

0079 


IF (NPA.EQ.O) GO TO 130 

00117 



C 

ANALIZ INPUT DEFINES AH X-VECTOR. 

00118 

1SN 

0081 


M5=L0CI(5) 

00119 

ISH 

0082 


N23-LOCR( 23) 

00120 

ISU 

0083 


DO 120 1=1 iHXAPRX 

00121 

ISH 

0084 


J=IA(M5) ' 

00122 



C 

IS THIS A DESIGN VARIABLE. 

00123 

ISN 

0085 


DO 90 K=1»HOVTOT 

00124 

ISH 

0086 


KK=K 

00125 

ISH 

0037 


IF (IA(K).EQ.J) GO TO 100 

00126 

ISH 

0069 

90 

CONTINUE 

00127 



C 

NO. 

00128 

ISH 

0090 


AHULT=1 . 

00129 

ISH 

0091 


GO TO 110 

00130 



C 

YES. 

00131 

ISH 

0092 

100 

K=L0CR(5)+KK-1 

00132 

ISH 

0093 


AtiULT=RA(K) 

00133 

ISH 

0094 

110 

RA< N23 )=ARRAY( J )/AMULT 

00134 

ISH 

0095 


K5=K5+1 

00135 

ISH 

0096 

120 

N23=H23+1 

00136 

ISH 

0097 

130 

CONTINUE 

00137 

ISH 

0098 


IF (NPS.GT. O.OR .NPFS.GT. 0 ) GO TO 190 

00138 



C 

ONLY ONE DESIGN VECTOR IS AVAILABLE. CREATE A SECOND X-VECTOR 

00139 



C 

SO OPTIMIZATION CAN PROCEED. 

00140 

ISH 

0100 


H23=LOCR(23) 

00141 

ISH 

0101 


N24=N23+NXAPRX 

00142 

ISH 

0102 


K5=L0CI(5) 

00143 

ISH 

0103 


DO 180 1=1 iHXAPRX 

00144 



C 

GLOBAL LOCATION. 

00145 

ISH 

0104 


IG=IA(M5) 

00146 

ISH 

0105 


M5=M5+1 

00147 



C 

PROPOSED X- VALUE. 

00143 

ISH 

0106 


XX=1.1*RA(N23) 

00149 

ISH 

0107 


IF (ABS(XX).LT.l.OE-lO) XX=.l 

00150 



c 

IS THIS A DESIGN VARIABLE. 

00151 

ISH 

0109 


H5=L0CR(5) 

00152 

ISH 

0110 


DO 140 J=1 >NDVTOT 

00153 

ISH 

0111 


JJ=J 

00154 

ISH 

0112 


AMJ=RA(N5) 

00155 

ISH 

0113 


IF (IA(J).EQ.IG) GO TO 150 

00156 



c 

HO. 

00157 

ISH 

0115 


N5-N5+1 

00158 

ISH 

0116 

140 

CONTINUE 

00159 

ISH 

0117 


GO TO 170 

00160 

ISH 

0118 

150 

CONTINUE 

00161 



C 

YES. NHICH DESIGN VARIABLE IS IT. 

00162 

ISH 

0119 


ID=LOCI( 2 J+JJ-l 

00163 

ISH 

0120 


ID=IA( ID ) 

00164 



c 

INSURE XX IS WITHIN BOUNDS. 

00165 

ISH 

0121 


N2=LOCR( 2 J+ID-l 

00166 

ISH 

0122 


N3=L0CR( 3 l+ID-l 

00167 

ISH 

0123 


BL=RA(H2)*ABS(AMJ) 

00163 

ISH 

0124 


BU : RA( N3 )*ABS( AMJ ) 

00169 

ISH 

0125 


IF (EL.LE.BU) GO TO 160 

00170 

ISH 

0127 


SAV = BL 

00171 

ISH 

0123 


BL-BU 

00172 
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♦VERSION 1.3.0 (01 MAY 60) MAIN SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82 . 141/10 .55. 45 


ISN 

0129 


BU=SAV 

00173 

ISN 

0130 

160 

IF (XX.LT.BL) XX=BL 

00174 

ISN 

0132 


IF (XX.GT.EU) XX=BU 

0C175 

ISN 

0134 


DX=RA(H23)-XX 

00176 

ISN 

0135 


IF ( ABS( DX ) . LT. 1 . 0E-6 ) XX=1 . 001*RA( N23) 

00177 

ISN 

0137 


IF ( A3S( XX ) . LT. 1 . 0E-6 ) XX=.001 

00173 

ISN 

0139 

170 

RA(N24)=XX 

00179 

ISN 

0140 


N23=N23+1 

00180 

ISN 

0141 

160 

N24=N24+1 

00181 

ISN 

0142 

190 

CONTINUE 

00182 

ISN 

0143 


REMIND ISCR2 

00183 

ISN 

0144 


NPSA=NPS+NPA 

00184 

ISN 

0145 


IF (NPSA.EQ.O ) GO TO 250 

00135 

ISN 

0147 


IF (NPS.EQ.O ) GO TO 210 

00166 



C 

READ X-VECTORS. 

00187 

ISN 

0149 


NXI= LOCR ( 23 )+NPA*NXAPRX 

00183 

ISN 

0150 


DO 200 J=1,HPS 

00139 

ISN 

0151 


NXIJ=NXI+NXAPRX-l 

00190 

ISN 

0152 


READ ( ISCR2 ) ( RA( I ) , I=NXI,NXIJ ) 

00191 

ISN 

0153 

200 

NXI=NXI+NXAPRX 

00192 

ISN 

0154 

210 

CONTINUE 

00193 

ISN 

0155 


IF (NPFS.LE.O) NPSA=NPTOT 

00194 

ISN 

0157 


NXI=LOCR( 23 ) 

00195 

ISN 

0153 


NY-NXI +HXAPRX*NPTOT 

00196 

ISN 

0159 


DO 240 J=1,NPSA 

00197 



C 

TRANSFER X-VALUES. 

00193 

ISN 

0160 


MS=LOCI(5) 

00199 

ISN 

0161 


I1=NXI 

00200 

ISN 

0162 


DO 220 I=1,NXAPRX 

00201 

ISN 

0163 


II-IAI M5 ) 

00202 

ISN 

0164 


ARRAY! II )=RA( 11 ) 

00203 

ISN 

0165 


M5=M5+1 

00204 

ISN 

0166 

220 

11=11+1 

00205 



C 

AHALIZE. 

00206 

ISN 

0167 


HAN2=NAN2+1 

00207 

ISN 

0168 


CALL ANALIZ (ICALC) 

00203 



C 

PUT FUNCTION VALUES IN Y- ARRAY. 

0G209 

ISN 

0169 


M6=L0CI(6 ) 

00210 

ISN 

0170 


I1=NY 

00211 

ISN 

0171 


DO 230 1=1, NF 

00212 

ISN 

0172 


II=IA(M6) 

00213 

ISN 

0173 


RA( 11 )=ARRAY( II) 

00214 

ISN 

0174 


11=11+1 

00215 

ISN 

0175 

230 

M6=M6+ 1 

00216 

ISN 

0176 


NXI=NXI+NXAPRX 

00217 

ISN 

0177 


NY=NY+NF 

00218 

ISN 

0178 

240 

CONTINUE 

00219 

ISN 

0179 

250 

CONTINUE 

00220 

ISN 

0160 


IF (HFFS.LE.O) GO TO 270 

00221 

ISN 

0162 


HXI=LOCR ( 23 1 +NPSA*NXAFRX 

00222 

ISN 

0183 


NY= LOCR ( 23 ) +HXAPRX*NPTOT+NF#NPSA 

00223 



C 

READ X AND Y VECTORS. 

00224 

ISN 

0164 


DO 260 J=1 ,NPFS 

00225 

ISN 

0135 


NXIJ=NXI+NXAPRX-1 

00226 

ISN 

0166 


NYJ=NY+NF-1 

00227 



c 

X-VECTCR . 

00226 

ISN 

0187 


READ (ISCR2) ( R A( I ) , I=NXI > NXI J ) 

00229 



c 

Y-VECTOR . 

00230 

ISN 

0188 


READ ( ISCR2 ) (RA( I ) , I=NY,NYJ ) 

00231 
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♦VERSION 1.3.0 (01 MAY SO) 


MAIN 


SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 


DATE 82.161/10.55.45 


CJ 

INJ 

CTl 


ISN 

0189 


NXI=NXI+NXAPRX 

00232 

ISN 

0190 

260 

NY=NY+NF 

00233 

ISN 

0191 

270 

CONTINUE 

00234 



C 

PUT X-F PAIRS BACK ON ISCR2. 

00235 

ISN 

0192 


REMIND I SCR 2 

00236 

ISN 

0193 


NXI=LOCR( 23) 

00237 

ISN 

0194 


NY=NXI*NXAPRX*HPTOT 

00238 

ISN 

0195 


DO 280 1=1 iNPTOT 

00239 

ISN 

0196 


NXIJ=NXI+NXAPRX-I 

00240 

ISN 

0197 


NYJ=NY+NF-1 

00241 



c 

X-VECTOR. 

00242 

ISN 

0198 


MRITE (ISCR2) ( RA( J ) , J=NXI ,NXIJ ) 

00243 



c 

Y-VECTOR. 

00244 

ISN 

0199 


WRITE ( ISCR2 ) (RA(J),J=NY,NYJ) 

00245 

ISN 

0200 


NXI=NXIJ+1 

00246 

ISN 

0201 

280 

HY=NYJ+1 

00247 

ISN 

0202 

290 

CONTINUE 

00248 

ISN 

0203 


GO TO (300, 300, 310, 320, 310, 330), NCALC 

00249 


ISN 0204 
ISN 0205 
ISN 0206 
ISN 0207 
ISN 0203 


ISN 0210 

ISN 0211 
ISN 0212 
ISN 0213 
ISN 0214 


ISN 0215 


ISN 0216 
ISN 0217 

ISN 0218 
ISN 0219 

ISN 0220 
ISN 0221 

ISN 0222 

ISN 0223 
ISN 0224 


ISN 0225 
ISN 0226 


C 

C 

C 

300 


ONE ANALYSIS 


NAH2=NAN2+1 

CALL AHA LIZ (ICALC) 

NAN3=NAN3*1 

CALL ANALIZ (JCALC) 

IF (NCALC.EQ.l) GO TO 340 


OPTIMIZATION 


OPTIMIZATION. 

CALL COPE02 ( ARRAY > RA » IA > NARR AY > NDRA »NDIA ) 

OUTPUT RESULTS. 

CALL C0PE18 (IOBJ,NDVTOT,NCONA,RA,IA,LOCR, LOCI, ARRAY) 

HAN3-NAN3+1 

CALL ANALIZ (JCALC) 

GO TO 340 


C 

c 

c 

310 

C 

C 


SENSITIVITY ANALYSIS 


CONTINUE 

ARRAY STARTING LOCATIONS. 

SENS. 

Nl=LOCR( 15 ) 

NN3=L0CR(16)-N1 

NSENSZ. 

N2=L0CI( 15 ) 

NN9=NSOBJ 

ISENS. 

N3=LOCI( 16 ) 

NN10=NSV 

NSENS. 

N4=L0CI(17) 

TEMP. 

N5=LQCR( 23 ) 

CALL COPE04 ( ARRAY > NARR AY, RA( N1 ) , IA(N2 ) , IA! N3) , IA(N4 ) >RA( M5 ) 
1N9 , NN 1 0 ,RA , IA , NDRA , NDIA ) 

O’JTFUT RESULTS. 

CALL COFE05 (RA, IA, NORA, NDIA, ISCR1 ) 

GO TO 340 


00250 

00251 
00252 

00253 

00254 
0C255 

00256 

00257 
00258 

00259 

00260 

00261 

00262 

00263 

00264 

00265 

00266 
00267 

00268 

00269 
00270 

00271 

00272 

00273 

00274 

00275 

00276 

00277 

00278 

00279 

00260 
00281 
00282 

00283 

00284 

00285 
,NN8,N00286 

00287 

00288 

00289 

00290 
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♦VERSION 1.3.0 (01 MAY 80) MAIN SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82.191/10.55.95 PAGE 6 


ISN 0227 320 CONTINUE 00291 

C : 00292 

C TWO VARIABLE FUNCTION SPACE 00293 

C 00299 

ISN 0228 CALL COPE06 ( ARRAY >RA > IA,NARRAY,NDRA>1T IA ) 00295 

C OUTPUT RESULTS. 00295 

ISN 0229 CALL COPE07 (RA,IA,NDRA,NDIA,ISCR1 ) 00297 

ISN 0230 GO TO 390 00298 

ISN 0231 330 CONTINUE 00299 

C 00300 

C APPROXIMATE ANALYSIS/OPTIMIZATION. 00301 

C 00302 

ISN 0232 CALL COPE09 00303 

C OUTPUT RESULTS. 00309 

ISN 0233 CALL C0PE19 ( NXAPRXiNF jNPTOT >RA> IA t LOCR » LOCI .TITLE »INOM,NDV> IPAPRXO 0305 

1 > ISCR2 i MAXTRM ) 00306 

ISN 0239 IF (KMAX.LT.O) GO TO 390 00307 

ISN 0236 CALL C0PE18 ( IOBJ ,NDVTOT,NCONA,RA, IA, LOCR , LOCI .ARRAY) 00308 

ISN 0237 NAN3=NAN3+1 00309 

ISN 0233 CALL ANALIZ (JCALC) 00310 

ISN 0239 390 CONTINUE 00311 

ISN 0290 WRITE (161,350) NAN2.NAN3 00312 

ISN 0291 REMIND ISCR1 00313 

ISN 0292 REWIND ISCR2 00319 

ISN 0293 CALL MYTINE ( ITIME ) 00315 

ISN 0299 ITINEC = 9 00316 

ISN 0295 WRITE (26,3000) ITIMEC , ITIME 00317 

ISN 0296 STOP 00318 

C 00319 

C FORMATS 00320 

C 00321 

ISN 0297 350 FORMAT ( 1H1 ,9X, 23HPROGRAM CALLS TO ANALIZ//8X,5HICALC,3X,5HCALLS/100322 

10X, 1H1 , 7X> 1H1/10X, 1H2 ,I8/10X, 1H3.I8 ) 00323 

ISN 0298 360 FORMAT (//5X.60HREQUIREO STORAGE FOR ARRAY RA OR IA EXCEEDS DIMENS00329 

1IONED SIZE/5X,5HARRAY,2X,9HDIMENSION,2X,8KSEQUIRED/7X,2HRA, 18, 6X, 100325 


25/7X,2HIA,I8»6X»I5//5X,22H* * PROGRAM TERMINATED) 00326 

ISN 0299 END 00327 

^OPTIONS IN EFFECT*NAME( MAIN ) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTODBL( NONE ) 

^OPTIONS IN EFFECT*SOURCE EECDIC NOLIST NODECK OBJECT NOMAP NO FOR MAT GOSTMT NOXREF NOALC NOANSF TERM IBM FLAG(I) 
^STATISTICS* SOURCE STATEMENTS = 298, PROGRAM SIZE = 3980, SUBPROGRAM NAME = MAIN 

*STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 2968K BYTES OF CORE NOT USED 

*STATISTICS* NO DIAGNOSTICS THIS STEP 


CJ 

IN> 


B B 
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APPENDIX C 


REVISED FORTRAN FOR SUPERHYBRID 
BLADE DEMONSTRATION CASE 



CO 

CO 

o 


♦VERSION 1.3.0 (01 MAY 80) SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) DATE 82 . 141/10 .58.59 PAGE 1 

REQUESTED OPTICUS: AUT0DBL(DBL4 ) .SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) OPTIMIZED) LINECOUNTt 60 ) SIZE(MAX) AUTODBLt DBL4 ) 

SOURCE EBCDIC NOLIST NODECK OBJECT NOMAP NOFORMAT GOSTMT NQXREF NOALC NOAHS F TERM IBM FLAG(I) 


C DATA SET U493DSTAEB AT LEVEL TMP AS OF 05/21/82 

C DATA SET U498DSTAEB AT LEVEL 018 AS Or 01/20/82 00001 

C DATA SET U493STAESL AT LEVEL 015 AS OF 10/06/81 00002 

C DATA SET U493STAEBL AT LEVEL 013 AS OF 03/24/81 00003 

C DATA SET U49SSTAEBL AT LEVEL 012 AS OF 08/14/81 00004 

ISN 0002 SUBROUTINE STAEBL 00005 

ISN 0003 COMMON /BLKCU/ XP(3.53,21) , NP(21) , IND(21) , INP 00006 

ISN 0004 COMMON /BLK 2/ NOACR , NOACR1 , NSTA , NSTA1 , POISSH . MST2 . MST3 00007 

ISN 0005 COMMON /BLK 4/ KPM , XNOACR , BR , PI , TERM , NS3 00003 

ISN 0006 COMMON /BLK 7/ AREA( 21 ) , CF( 21 ) , AA(21) , AKG(21) , IT(7,21 ) 00009 

ISN 0007 COMMON /BLK12/ XBARX(21) , XIMAX(21) , XII1IN(21) , YBARYt 21 ) , 00010 

1 TLTA( 21 ) 00011 

ISN 0008 COMMON /BLKAA/ ALPMIN(21) , XSC(21) , YSC(21) , XX121) , YY(21) 00012 

ISN 0009 COMMON /BLK3/ SM3( 21 ) >ITTLE( 13 ).VARI( 235 ) .TMAXl 21 ) >H ALPHA! 21 ) 00013 

ISN 0010 COMMON /BLK A/ ALPHA! 21) , HA(21) , HMNTC21) , HALMINt 21 ) , 00014 

1 HINERT( 21 ) 00015 

ISN 0011 COMMON /BLK 9/ DELTACt 21 ) , DELTAZI 21 ) , P(21) , R(21) , SHUT(21) 00016 

ISN 0012 COMMON /IMPUTT/ XSAVE(IOOO), YSAVE(IOOO), ZSAVE(IOOO), TSAVE( 1 000 )00017 

ISN 0013 COMMON /SC/ XSCSV< 21) . YSCSV(21) , ZSCSV(21) , 00013 

1 ALSAVE( 21 ) , FOLARK 21 ) , ASAVE(21 ) 00019 

ISN 0014 COMMON /ANAL33/ OLEO , DTED , DHOOTD , DTIPO , TTID . TLTD , NCD 00020 

1 , NCK , TSKIN , TCENTR , P3T , PGE 00021 

ISN 0015 DIMENSION YM(53,21) , XM(53,21) , TMC(53,21) , T(120) , TML( 53,21 )00022 

1 , XMF(50,21) , YMF(50,21) , TMLF(S0,21) , XCG(E0,£1) , YCG( 50 , 21 )00023 

2 , XSCCG( 21 ) , YSCCG( 21 ) , XSCGI21) , YSCG(21) , ZSCG(21) , 00024 

3 XG( 50,21) , YG( 50 , 21 ) , ZG(50,21) 00025 

4 , XSCR( 21 ) , YSCR( 21 ) , ZSCRl 21 ) 00026 

5 , X( 50 , 21 ) , Y( 50 , 21 ) , Z(50,21) 00C27 

ISN 0016 REAL*4 A( 51 ) ,B( 51 ) ,C( 51 ) ,D( 51 ) , Al(51 ) ,B1 (51 ) ,C1( 51 ) ,D1( 51 ) , 00028 

1 A2151), 62(51), C2(51),D2(51),A3(51),B3(51),C3(51), 00029 

2 D3(51),S1(51),S2(51) 00030 

ISN 0017 REAL*4 XMMt 51 ) , YMM( 51 ) ,TMM( 51 ) ,XXMF( 25 ) ,YYhF( 25 ) ,TTMLF( 25 ) 00031 

ISN 0018 REAL*4 SOME.STWO 00032 

C 00033 

C CALCULATE MEAN Y VALUE AND THICKNESS NORMAL TO THE CHORD 00034 

C 00035 

ISN 0019 NBR = 1 00036 

ISN 0020 NPS = NP( 1 ) *20 

ISN 0021 DO 5 N = l.NPS *20 

ISN 0022 XP(1,N,1) = XP( 1 ,N,2 ) *20 

ISN 0023 XP(2,N,1) = XP(2,N,2) *20 

ISN 0024 XF( 3,N, 1 ) = XP(3,N,2) *20 

ISN 0025 5 CONTINUE *20 

ISN 0026 DO 20 1 = NBR, NSTA 00037 

ISN 0027 NFS = NP(I) 00033 

ISN 0028 DO 10 N = l.NPS 00039 

ISN 0029 YMIN.I) =(XP(2,N,I) + XP(3,N,I)I / 2.0 00040 

ISN 0030 XM ( N , I ) = XP( 1 ,N,I ) 00C41 

ISN 0031 TMC(N.I) = XP(2,N,I) - XP(3,N,I) 00042 

ISN 0032 10 CONTINUE 00043 

ISN 0033 20 CONTINUE 00044 

C OOC45 

C CALCULATE THICKNESS NORMAL TO MEANLINE 00G46 

C 00047 

ISN 0034 DO 40 I = NBR, NSTA 00048 


l 


) 


♦VERSION 1.3.0 

(01 

MAY 80) STAEBL SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 

DATE 82.191/10.53.59 

ISN 

0035 



NFS = NP( I ) — 1 

00099 

ISM 

0036 



THU 1,1) = 0.0 

00050 

ISN 

0037 



TML(NPS+1 > I ) = 0.0 

00051 

ISN 

0033 



DO 30 N =2, NFS 

00052 

ISN 

0039 



THT1 =ATAN2( <YII(N,I) - YM(N-l.I)) ,(XM(H,I) - XM( N-l , I ) ) ) 

00053 

ISN 

0090 



THT2 =ATAN2( ( YM( N+l , I ) - YtHN.I)) ,<XM(N+l,I) - XM(N,I>)) 

00059 

ISN 

0091 



THT = ( THT1 ♦ THT2 1/2.0 

00055 

ISN 

0092 



TML< Nil ) = TMC(N,I) * COS(THT) 

00056 

ISN 

0093 


30 

CONTINUE 

00057 

ISN 

0099 


90 

CONTINUE 

00053 

ISN 

0 095 



NSTN3 = NSTA - NER 

00059 

ISN 

0096 



DO 95 I = NBR , NSTA , HSTNB 

00060 

ISN 

0097 



NPS = NP( I ) 

00061 



C 


WRITE (6.900) ( YM( Nil ) iN=l iNPS) 

00062 



C 


WRITE (6,900) (XM(N,I),N=1,NPS) 

00C63 



C 


WRITE (6.900) ( TMC( N, I ) ,N=1 ,NPS ) 

00069 



C 


WRITE (6,900) ( TML( N, I ) ,N=1 ,NPS ) 

00065 

ISN 

0093 


95 

CONTINUE 

00066 



C 



00067 



C 


SAVE MEAN Y VALVES AND X VALVES IN AN ARRAY AND INTERPOLATE 

C0063 



C 


FOR EQUAL INCREMENT X VALVES . REPEAT FCR THICKNESSES 

00069 



C 



00070 

ISN 

0099 



DO 1101 = NBR, NSTA 

00071 

ISN 

0050 



NPF = 15 

00072 

ISN 

0051 



NFS = NP( I ) 

00073 



c 



00079 



c 


FILL IN DUMMY ARRAYS XMM , YMH , TMM FROM Xtl,YM,THL VECTORS 

00075 



c 



00076 

ISN 

0052 



DO 201 K = l.NPS 

00077 

ISN 

0053 



TMM(K) = TML(K.I) 

00078 

ISN 

0059 



XMM(K) = XM(K,I) 

00079 

ISN 

0055 

201 

YMM(K) = YM(K,I) 

00080 



C 



00081 



C 



00032 



C 


CALL P3MFIT FOR CURVE FIT 

00033 



C 



00039 

ISN 

0056 



CALL PBMFIT(XH!1,YMM,1.,1.,NPS,0,A,B,C,D,A1,B1,C1,D1,S1 ) 

00035 



c 



00086 

ISN 

0057 



CALL PBMFIT( XMMiTMM, 1 . ,1 . , NFS , 0 , A2 , B2 , C2 , D2 , A3 , B3 , C3 ,D3 , S2 ) 

00087 



c 



00088 



c 


EQUAL BREAKUP ARC-LENGTH 

00089 



c 



00090 

ISN 

0053 



SARC = SI (NPS) / NPF 

00091 



c 



00092 



c 


NOU SEARCH SI ARRAY FOR INTERVAL VALUE 

00093 



c 



00099 

ISN 

0059 



NODE = 1 

00095 

ISN 

0060 



ARC! = SARC / 2. 

00096 

ISN 

0061 

205 

N = 1 

00097 

ISN 

0062 

210 

IFIARCl .LE. Sl(N)) GO TO 220 

00093 

ISN 

0069 



N = N + 1 

00099 

ISN 

0065 



GO TO 210 

00100 

ISN 

0066 

220 

DIST = (ARC! - Sl(N-ll) / (S1(N) - Sl(N-ll) 

00101 

ISN 

0067 



SONE = (Sl(N) - SKN-l ) ) * DIST 

00102 

ISN 

0063 



STWO = ( S2( N ) - S2(N-1 ) ) * DIST 

00103 



C 



00109 

ISN 

0069 



CALL CU3ICI A( N-1),B( N-l ),C( N-l ),D( N-l ), SONE, XXHF( NODE)) 

00105 

ISN 

0070 



CALL CUBIC! Al( N-l ),B1 ( N-l ),C1( N-l ),D1( N-l ),SCNE,YYMF( NODE)) 

00106 

ISN 

0071 



CALL CUBIC! A3(N-1 ) >B3( N-l ) ,C3( N-l ) ,D3( N-l ) ,STI10,TTMLF( NODE ) ) 

00107 



♦VERSION 1.3.0 

(01 

MAY 80) STAEBL SYSTEM/370 FORTRAN H 

EXTENDED (ENHANCED) 

DATE 82.141/10 



c 




00108 

ISN 

0072 



NODE = NODE + 1 


00109 

ISH 

0073 



ARC1 = ARC1 + SARC 


00110 

ISN 

0074 



IF( NODE .LE. NPF) GO TO 205 


00111 



c 




C0112 



c 


FILL IN THE XMF.YMF.TMLF VECTORS WITH 

THE INTERPOLATED VALUES 00113 



c 




00114 

ISN 

0076 



DO 230 K = l.NPF 


00115 

ISN 

0077 



XMF ( K » I ) = XXMF(K) 


00116 

ISN 

0078 



YMF(K.I) = YYMF(K) 


00117 



c 


WRITE! 6, 902) I , K , XMF ( K » I ) > YMF ( K » I ) 


0011S 

ISN 

0079 

902 

FORMAT! 5X, ■ I ,K,XMF , YMF 1 .2I5.2E12.5) 


00119 

ISN 

0080 

230 

TMLFIK.I) = TTMLF(K) 


00120 



C 




00121 

ISN 

0081 


110 

CONTINUE 


00122 



C 




00123 



c 


TRANSLATE COORDINATES TO AN ENGINE AXIS SYSTEM 

00124 



c 




00125 

ISN 

0082 



DO 130 I = NBRiNSTA 


00126 



c 




00127 

ISN 

0083 



XCHORD = SMB! I) 


00128 



c 




00129 

ISN 

0084 



XSCLE = XCHORD - XSC(I) 


00130 



c 




00131 

ISN 

0035 



XSCCG(I) = XSCLE - ( XCHCRD - XBARX(I)) 


00132 

ISN 

0086 



YSCCG(I) = YSC(I) - YBARY(I) 


00133 



c 




00134 

ISN 

0087 



DO 120 N = l.NPF 


00135 

ISN 

0088 



XCG(N.I) = XMF(N.I) - (XCHORD - XBARX(I)) 

00136 

ISN 

0039 



YCG(N.I) = YMF(N.I) - YBARY(I) 


00137 

ISN 

0090 


120 

CONTINUE 


00133 

ISN 

0091 


130 

CONTINUE 


00139 



c 




C0140 



c 


SHIFT XY PLANE TO ENGINE AXIS YZ 


00141 



c 




00142 

ISN 

0092 



DO 150 I = N3R.NSTA 


00143 

ISN 

0093 



XSCG(I) = R!I) 


00144 

ISN 

0094 



YSCG(I) = YSCCG(I) 


00145 

ISN 

0095 



ZSCG(I) = XSCCG(I) 


00146 

ISN 

0096 



DO 140 N = l.NPF 


00147 

ISN 

0097 



XG(N,I) = R( I ) 


00143 

ISN 

0098 



YGtN.I) = YCG(N.I) 


00149 

ISN 

0099 



ZG(N.I) = XCG(N.I) 


00150 

ISN 

0100 


140 

CONTINUE 


00151 

ISN 

0101 


150 

CONTINUE 


00152 



c 




00153 



c 


ROTATE THRU ALPHA CHORD - 90.0 


00154 



c 




00155 

ISN 

0102 



DO 170 I = NBR.NSTA 


00156 



c 


ALPHA! I ) = 90. * .0174533 


00157 

ISN 

0103 



AHG =-ALFHA(I) + 90.0 * .0174533 


00158 

ISN 

0104 



EM = COS(ANG) 


00159 

ISN 

0105 



EN = SIN! AHG) 


00160 

ISN 

0106 



XSCR(I) = XSCG(I) 


00161 

ISN 

0107 



YSCR(I) = YSCG(I) * EM + EN * ZSCG(I) 


00162 

ISN 

0103 



ZSCR(I) = EM * ZSCG(I) - EN * YSCG(I) 


00163 



c 


WRITE (6.900) AHG, EN , EM , XSCR(I) , 

YSCR(I) , ZSCR(I) , 

AREA! I JC0164 

ISN 

0109 



DO 160 N = l.NPF 


00165 

ISN 

0110 



X! N, I ) = XGtN.I) 


00166 
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ISN 

0111 


YIN, I) = YGUI.I)* EM + EN * ZG(N,I) 

00167 

ISN 

0112 


Z(H,I> = EM * ZG(N,I) - EN * YG(N,I) 

00163 

ISN 

0113 

160 

CONTINUE 

00169 

ISN 

cm 

170 

CONTINUE 

00170 



C 

DO 175 I = NCR > NSTA , NSTN3 

00171 



C 

URITE (6,900) (XCG(N,I),H=1,NPF) 

00172 



C 

(.’RITE (6,900) ( YCG(N, I ) , N=1 >NPF ) 

00173 



C 

URITE (6,900) (XG(N,I),N=1,NPF) 

00174 



C 

WRITE (6,900) (YG(N,I),N=1,NFF) 

00175 



c 

WRITE (6,900) (ZG(N,I),N=1,NPF) 

00176 



c 

WRITE (6,900) (X(N,I),N=1,NPF) 

00177 



c 

WRITE (6,900) (Y(N,I),N=1,NPF) 

00173 



c 

WRITE (6,900) ( Z(N,I ) ,N= 1 ,HPF ) 

00179 



c 

WRITE (6,900) ( TNLF( N» I ) ,M=1 ,NPF ) 

00180 



C 175 

CONTINUE 

00181 

ISN 

0115 


IJ = 1 

00182 

ISN 

0116 

C 

IF(IJ ,EQ. 1) GO TO 811 

00183 

00184 



C 

T03902 GENERATED NODES AND THICKNESSES 

00185 



C 


00186 

ISN 

0118 


DO 800 I = NDR.NSTA 

00187 

ISN 

0119 


DO 601 J = l.NPF 

00188 

ISN 

0120 

801 

READ( 5 ,802 ) Y( J , I ) ,Z( J ,1 ) 

00189 

ISN 

0121 

802 

FORMAT!/, 32X.2F8.0) 

00190 



C 


00191 

ISN 

0122 


DO 805 J = l.NPF 

00192 

ISN 

0123 


READ( 5,803 ) P1.P2 

00193 

ISN 

0124 

803 

FORMAT ( 24X , F8 . 0 , // , 24X , F8 . 0 ) 

00194 

ISN 

0125 

805 

TMLF(J.I) = (PI + P2 ) / 2. 

00195 



C 


00196 



c 

WRITE! 6 ,810 ) I 

00197 



C810 

FORMAT! 5X, 'T039 NODES AND THICKNESSES FOR SECTION ',15) 

00193 



C 

WRITE! 6 ,900 ) ( X ( N , I ) ,N=1 ,NPF ) 

00199 



C 

WRITE( 6 , 900 ) (Y(N,I),N=1,NFF) 

00200 



C 

WRITE( 6 , 900 ) ( Z(N,I ) ,N=1 ,NPF ) 

00201 



C 

WRITE! 6, 900) ( TMLF ( N> I ) »N=1 ,NPF ) 

00202 



C 


00203 

ISN 

0126 

800 

CONTINUE 

00204 

ISN 

0127 

811 

CONTINUE 

00205 



c 


00206 

ISN 

0128 


J = 0 

00207 

ISN 

0129 


K = 0 

00208 

ISN 

0130 


DO 190 I = N8R.NSTA 

00209 

ISN 

0131 


K = K + 1 

00210 

ISN 

0132 


XSCSV(K) = XSCR(I) 

00211 

ISN 

0133 


YSCSV(K) = YSCR(I) 

00212 

ISN 

0134 


ZSCSV(K) = ZSCR(I) 

00213 

ISN 

0135 


ALSAVE(K) = ALPHA! I) 

00214 

ISN 

0136 


POLARKK) = XIMIN(I) + XIMAX(I) 

00215 

ISN 

0137 


ASAVE(K) = AREA! I) 

00216 

ISN 

0138 


DO 160 N = l.NPF 

00217 

ISN 

0139 


J = J +1 

00218 

ISN 

0140 


XSAVE(J) = X(N,I ) 

00219 

ISN 

0141 


YSAVE(J) = Y(N,I ) 

00220 

ISN 

0142 


ZSAVE(J) = Z(N,I) 

00221 

ISN 

0143 


TSAVE(J) = TMLF(N.I) 

00222 



c 

WRITE (7,901) XSAVE(J) , YSAVE(J) , ZSAVE(J) , TSAVE(J) 

00223 

ISN 

0144 

180 

CONTINUE 

00224 

ISN 

0145 

190 

CONTINUE 

00225 
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ISN 0146 
ISH 0147 
ISN 0148 


ISN 0149 
ISH 0150 
ISN 0151 


K = 0 

DO 200 I = N3R.NSTA 
K = K ♦ 1 

WRITE (7,901) XSCSV(K) , 
1 , POLARI(K) , ASAVE(K) 
200 CONTINUE 

NTNMR = NSTA - NSR + 1 
IF ( NCO .Eq. 1) 

1CALL HOLLOW (DLED , OTED 


SYSTEM/370 FORTRAN H EXTENDED (ENHANCED) 


YSCSV(K) 


ALSAVE(K) 


2 TTID , TLTD , NPF , NTNNR) 00235 

ISN 0153 IF ( NCD .EQ. 2) C 0236 

1 CALL LAHIN1 (TSKIN , TCENTR , PBT , PGE , NPF , NTMNR ) 00237 

ISN 0155 901 FORMAT (6E12.5) 002*8 

ISN 0156 900 FORMAT (1X.9F8.5) 00239 

ISN 0157 RETURN 00240 

ISN 0153 END 00241 

^OPTIONS IN EFFECT*NAME( MAIN ) OPTIMIZED) LINECOUNT( 60 ) SIZE(MAX) AUTODBU DBL4 ) 

*0PTICN5 IN EFFECT*SOURCE EBCDIC NOLIST NODECK OBJECT NCMAP NOFCRMAT GCSTMT NOKREF NOALC NOANSF TERM IBM FLAG! I) 
^STATISTICS* SOURCE STATEMENTS = 157, PROGRAM SIZE = 141976, SUBPROGRAM NAME =STAEBL 

^STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 2972K BYTES OF CORE NOT USED 


DATE 82.141/10.58.59 
00226 

00227 

00228 

00229 

00230 

00231 

00232 

00233 

00234 

00235 

00236 

00237 

00238 

00239 

00240 

00241 


! 
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REQUESTED OPTIONS: AUTODBU DBL4 ) .SOURCE 

OPTIONS IN EFFECT: NAME (MAIN) 0PTIMIZE<3) LINECOUNT( 60 ) SIZE(MAX) AUTODBU DBL4 ) 

SOURCE EBCDIC NOLIST MODECK OBJECT NOMAP NCFORMAT GOSTHT NOXREF NOALC NOANSF TERM IBM FLAG(I) 



C 


00370 

ISN 0002 


SUBROUTINE INPUT (NR, NC) 

00871 


C 


00872 


C 

MATERIAL PROERTIES AND GEOMETRY INPUT 

0CS73 


C 


00874 

ISN 0003 


IMPLICIT REAL*8(A-H,0-Z) 

00375 

ISN 0004 


COMMON /ZCOEF/ El 1 ( 7 ) , E22( 7 ) , E33( 7) ,G12( 7) ,G23( 7) ,G13( 7 ) , 

00376 



1 V12(7),V13(7),V23(7) 

00877 

ISN 0005 


COMMON /PLY1/ PLY(21,25,7),THETA( 7) >RHO( 7) 

00373 

ISN 0006 


COMMON /FAIL/ X1T( 7 ) ,X1C( 7) ,X2T( 7) ,X2C( 7) ,S6P( 7 ) ,S6M( 7) ,TSAI( 6, 

25)00379*35 


C 


00880 


C 

WRITE! 8, 1 ) 

00231 


Cl 

FORMAT! 5X> ' IS THIS AN ISOTROPIC BLADE, 1=YES‘ ) 

00382 


c 

READ18,*) ISO 

00G83 


c 

I F ( ISO .HE. 1) GO TO 2 

00384 


c 


00885 


C 

ISOTROPIC BLADE 

0CS86 


c 


00887 


c 

WRITE! 8, 3 ) 

00883 


C3 

FORMAT! 5X, 'INPUT-E! PSI), V AND DENSITY! LB/IN3) .FREE FORMAT') 

003S9 


C 

READ(8>*) E , V , R 

00090 

ISN 0007 


E = 16100000. 

00391 

ISN 0008 


V = .33 

00392 

ISN 0009 


R = .16 

00893 

ISN 0010 


DPLY = 1. / 7. 

00894 

ISN 0011 


YIELD = 110000. 

00895*35 

ISN 0012 


SHEAR = 0.577 * YIELD 

00396*36 


C 


*49 


C 

TI LAYERS 

*49 


c 


*49 

ISN 0013 


I = 1 

*49 

ISN 0014 


DO 100 II = 1,3 

*49 


c 


00398*35 

ISN 0015 


X1T(I) = YIELD 

00699*35 

ISN 0016 


X1C(I) = YIELD 

00900*35 

ISN 0017 


X2T( I ) = YIELD 

00901*35 

ISN 001S 


X2C( I ) = YIELD 

00902*35 

ISN 0019 


S6P( I ) = SHEAR 

00903*35 

ISN 0020 


S6M( I ) = SHEAR 

00904*35 

ISN 0021 


Ell(I) = E 

00905 

ISN 0022 


E22( I ) = E 

00905 

ISN 0023 


E33( I ) = E 

00907 

ISN 0024 


G12( I ) = E / 2. / (1. + V) 

00903 

ISN 0025 


G 1 3 ( X ) = G12( I ) 

00909 

ISN 0026 


G23( I ) = G12( I ) 

00910 

ISN 0027 


V12( I ) = V 

C0911 

ISN 0028 


V13( I ) = V 

00912 

ISN 0029 


V23( I ) = V 

00913 

ISN 0030 


RHO(I) = R / 386.4 

*49 

ISN 0031 


THETA(I) = 0. 

*49 

ISN 0032 

100 

1 = 1 + 3 

*49 


c 


*49 


c 

B/A AND G/E LAYERS 

*49 


c 


*49 

ISN 0033 


12 = 2 

*49 



♦VERSION 1.3.0 

(01 

MAY 80) INPUT SYSTEU/370 FORTRAN H EXTENDED (ENHANCED) 

DATE 82.141/10.59.56 

ISN 

0034 


13 = 3 

*49 



c 


*49 

ISN 

0035 


E1BA = 31.0E6 

*49 

ISN 

0036 


El BA = 0.9 * E1BA 

*49 

ISN 

0037 


E2BA = 20.0E6 

*49 

ISN 

0038 


E2BA = 0.9 * E2BA 

*49 

ISN 

0039 


V12BA = 0.27 

*49 

ISN 

0040 


G3A = 8.5E6 

*49 

ISN 

0041 


GBA = 0.9 * GBA 

*49 

ISN 

0042 


RBA = 0.097 

*49 

ISN 

0043 


R3A = 0.9 * RBA 

*49 

ISN 

0044 


X1TBA = 140000.0 

*49 

ISN 

0045 


XI TEA = 0.9 * X1TBA 

*49 

ISN 

0046 


X1CBA = 200000.0 

*49 

ISN 

0047 


X1CBA = 0.9 * X1CBA 

*49 

ISN 

0048 


X2TBA = 14800.0 

*49 

ISN 

0049 


X2TBA = 0.9 * X2TBA 

*49 

ISN 

0050 


X2CBA = 32200.0 

*49 

ISM 

0051 


X2CBA = 0.9 * X2CBA 

*49 

ISN 

0052 


SBA = 14500.0 

*49 

ISN 

0053 


SBA = 0.9 * SBA 

*49 



c 


*49 

ISN 

0054 


E1GE = 18.5E6 

*49 

ISN 

0055 


E2GE = 1.54E6 

*49 

ISN 

0056 


V12GE = 0.3 

*49 

ISN 

0057 


GGE = 0.85E6 

*49 

ISN 

0058 


RGE = 0.056 

*49 

ISN 

0059 


X1TGE = 160000.0 

*49 

ISN 

0060 


X1CGE = 160000.0 

*49 

ISN 

0061 


X2TGE = 7500.0 

*49 

ISN 

0062 


X2CGE = 25000.0 

*49 

ISN 

0063 


SGE = 10000.0 

*49 



c 


*49 

ISN 

0064 


DO 200 II = 1,2 

*49 

ISN 

0065 


E11(I2) = E1BA 

*49 

ISN 

0066 


E 2 2 ( 12 ) = E2BA 

*49 

ISN 

0067 


E33(I2) = E22( 12 ) 

*49 

ISN 

0068 


G12( 12 ) = GBA 

*49 

ISN 

0069 


G13(I2) = GBA 

*49 

ISN 

0070 


G23( 12 ) = GBA 

*49 

ISN 

0071 


V12( 12 ) = V12BA 

*49 

ISN 

0072 


V13(I2) = V123A 

*49 

ISN 

0073 


V23( 12 ) = V12BA 

*49 

ISN 

0074 


RHO( 12 ) = RBA / 386.4 

*49 

ISN 

0075 


X1T( 12 ) = X1TBA 

*49 

ISN 

0076 


X1CU2) = X1CBA 

*49 

ISN 

0077 


X2T( 12 ) = X2TBA 

*49 

ISN 

0078 


X2C( 12 ) = XZCEA 

*49 

ISN 

0079 


S6P( 12 ) = SBA 

*49 

ISN 

0080 


S6M( 12 ) = SBA 

*49 



c 


*49 

ISN 

0031 


El 1 ( 13 ) = E1GE 

*49 

ISN 

0082 


E22( 13 ) = E2GE 

*49 

ISN 

0CS3 


E33( 13 ) = E22( 13 ) 

*49 

ISN 

00S4 


G12( 13 ) = GGE 

*49 

ISN 

0035 


G 1 3 ( 1 3 ) = GGE 

*49 

ISN 

0C26 


G23CI3) = GGE 

*49 

ISN 

0037 


V12( 13 ) = V12GE 

*49 

ISN 

0088 


V13< 13 ) = V12GE 

*49 
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ISN 

0039 


V23( 13 ) 

= 

V12GE 

*49 

ISN 

0090 


RHO( 13 ) 

r 

RGE / 386.4 

*49 

ISN 

0091 


X1TII3) 

= 

X1TGE 

*49 

ISN 

0092 


X1C( 13 ) 

= 

X1CGE 

*49 

ISN 

0093 


X2T( 13 ) 

= 

X2TGE 

*49 

ISN 

0094 


X2C( 13 ) 

= 

X2CGE 

*49 

ISN 

0095 


S6P( 13 ) 

= 

S3E 

*49 

ISN 

0096 


S 6 tl( 13 ) 

= 

SGE 

*49 



C 




*49 

ISN 

0097 


12 = 12 

+ 

4 

*49 

ISN 

0098 

200 

13 = 13 

■f 

2 

*49 



C 




00961*41 



C 




00962 



C 




00963 

ISN 

0099 


RETURN 



00964 

ISN 

0100 


END 



00965 


^OPTIONS IN EFFECT*NAME( MAIN ) OPTIMIZE! 3) LINECOUNT( 60 ) SIZE(MAX) AUTCDBL( DBL4 ) 

^OPTIONS IN EFFECT*SOURCE EBCDIC NOIIST NCDECK OBJECT NOMAP NOFCRMAT G05TMT NOXREF NOALC NOANSF TERM IBM FLAG! I) 
^STATISTICS* SOURCE STATEMENTS = 99, PROGRAM SIZE = 1402, SUBPROGRAM NAME = INFUT 

^STATISTICS* NO DIAGNOSTICS GENERATED 

****** END OF COMPILATION ****** 3004K BYTES OF CORE NOT USED 


to 

CO 
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